Εμφάνιση ενός μόνο μηνύματος
  #5  
Παλιά 27-09-12, 07:15
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού 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
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση