27-09-12, 07:15
|
| Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.011
| |
Καλημέρα!
Αγαπητέ Γιώργο, μετά από αυτά που απαντήθηκαν πιστεύω ότι o γνωστός σου αντιλαμβάνεται ότι δεν θα
μπορέσει να καταχωρήσει στη βάση του 2 εγγραφές με το ονοματεπώνυμο πχ. "Παπαδόπουλος Ιωάννης".
Θα σου δώσω ένα γενικότερο παράδειγμα.
Έστω ότι έχουμε τον πίνακα "tblCustomers" με τα πεδία: - ID (αυτόματη αρίθμηση)
- Field1 (κείμενο)
- Field2 (κείμενο)
Ο κώδικας στη φόρμα που θα αποτρέπει τυχόν διπλότυπες εγγραφές αλλά και που υποχρεώνει τη συμπλήρωση των πεδίων Field1 και Field2 είναι: Κώδικας: Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Field1 & "" = "" Or Me.Field2 & "" = "" Then
Cancel = True
MsgBox "Τα πεδία 'Field1' και 'Field2' πρέπει να συμπληρωθούν για να αποθηκευτεί η εγγραφή.", vbExclamation
Exit Sub
End If
If DCount("*", "[tblCustomers]", "[Field1] ='" & Me.Field1 & "' AND Field2='" & Me.Field2 & "'") Then
MsgBox "Διπλότυπη εγγραφή!", vbExclamation
Cancel = True
End If
End Sub
Φιλιά
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |