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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Αποτροπή διπλής καταχώρησης (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2080-apotropi-diplis-kataxorisis.html)

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

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

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

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

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

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

Φιλικά

Τάσος

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

Καλημέρα!

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

Φιλιά

Τάσος

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