Αποτροπή διπλής καταχώρησης

[choulio19]

Καλησπέρα. Έστω ότι έχουμε έναν πίνακα pelates και μέσα έχουμε " Όνομα " , " Επώνυμο " και μία φόρμα kataxwrisi μέσα στην οποία καταχωρούμε νέους πελάτες. Τώρα αυτό που θέλω είναι να με βοηθήσετε με το πως θα αποτρέπω τις διπλές καταχωρήσεις. Δλδ αν υπάρχει είδη ένας και πάω να τον περάσω ξανά να βγάζει ένα μήνυμα και να λέει ότι η καταχώρηση υπάρχει είδη. Ευχαριστώ πολύ

[ΤΖΙΜΗΣ]

Γιώργο πελάτες με ίδο Επώνυμο και Όνομα μπορεί να υπάρξει.Συνεπώς θα πρέπει να ορίσεις ένα μοναδικό στοιχείο που να τους ξεχωρίζεις.Πχ. ΑΦΜ ,Αριθμός Ταυτότητας. Βάλε και ένα άλλο μοναδικό πεδίο στον πίνακα σου και πες μας.
Φιλικά Τζίμης

[Tasos]

Καλησπέρα!
Πρακτικά δεν αρκεί το επώνυμο & το όνομα για να μπορέσουμε να αποτρέψουμε διπλότυπα.

Τι θα κάνεις αν πρέπει να καταχωρήσεις 2 πελάτες που έχουν το ίδιο ονοματεπώνυμο;
Θα πρέπει να υπάρχει και ένα τρίτο στοιχείο πχ Ημ. γέννησης ή Α.Φ.Μ για να μπορείς να αποτρέπεις με αξιοπιστία τις διπλές καταχωρήσεις.

Περιμένουμε νέα σου και ίσως και ένα παράδειγμα με μερικές εγγραφές για να σε βοηθήσουμε..

Φιλικά

Τάσος

[choulio19]

παιδιά ευχαριστώ για τις απαντήσεις. Επειδή αυτό που θα φτιάξω είναι για άλλον δε θέλει σε αφμ κτλπ αλλά μόνο σε αυτά τα δυο. Έστω να ειδοποιεί ότι υπάρχει η καταχώρηση. Ευχαριστώ

[Tasos]

Καλημέρα!

Αγαπητέ Γιώργο, μετά από αυτά που απαντήθηκαν πιστεύω ότι 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

Φιλιά

Τάσος

[choulio19]

Το κατάλαβα Τάσο.. Σε ευχαριστώ πολύ για την πολύτιμη βοήθειά σου (όπως πάντα άλλωστε)