08-10-12, 08:59
|
| Όνομα: Κώστας Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-01-2012 Περιοχή: Πειραιάς
Μηνύματα: 181
| |
Καλημέρα στο forum,
Τάσο μήπως σου κάνει αυτό Κώδικας:
'περίπτωση me.ονομα πεδίου Φόρμας = αριθμός
Dim vr As Variant
vr = DLookup("[ονομα πεδίου που θέλεις]", _
"όνομα πίνακα ή ερώτήματος", _
"[όνομα κλειδιού πίνακα ή άλλου πεδίου πίνακα ή ερώτήματος] = " & me.ονομα πεδίου Φόρμας)
'περίπτωση me.ονομα πεδίου Φόρμας = string
Dim vr As Variant
vr = DLookup("[ονομα πεδίου που θέλεις]", _
"όνομα πίνακα ή ερώτήματος", _
"[όνομα κλειδιού πίνακα ή άλλου πεδίου πίνακα ή ερώτήματος] =' " & me.ονομα πεδίου Φόρμας &"'")
'περίπτωση me.ονομα πεδίου Φόρμας = date
Dim vr As Variant
vr = DLookup("[ονομα πεδίου που θέλεις]", _
"όνομα πίνακα ή ερώτήματος", _
"[όνομα κλειδιού πίνακα ή άλλου πεδίου πίνακα ή ερώτήματος] =# " & me.ονομα πεδίου Φόρμας &"#")
Βάλε τον κώδικα στο συμβάν που θέλεις
|