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/3163-diplotypi-eggrafi.html)

Διπλότυπη Εγγραφή

Έστω ότι έχουμε τον πίνακα "pelates" με τα πεδία:
ID (αυτόματη αρίθμηση)
onoma (κείμενο)
eponymo (κείμενο)

γράφοντας τον παρακάτω κώδικα αποτρέπουμε την διπλή εγγραφή

Κώδικας:

Private Sub Form_BeforeUpdate(Cancel As Integer)

    If Me.Field1 & "" = "" Or Me.Field2 & "" = "" Then

        Cancel = True

        MsgBox "Τα πεδία 'onoma' και 'eponymo' πρέπει να συμπληρωθούν για να αποθηκευτεί η εγγραφή.", vbExclamation

        Exit Sub

    End If

    If DCount("*", "[pelates]", "[onoma] ='" & Me.Field1 & "' AND eponymo='" & Me.Field2 & "'") Then

        MsgBox "Διπλότυπη εγγραφή!", vbExclamation

        Cancel = True

    End If

End Sub

Δουλεύει σωστά.

Τα μηνύματα που παίρνω όταν πατάω αποθήκευση είναι

msg1 "Ο πελάτης υπάρχει ήδη στο σύστημα"

Πατώντας οκ με πάει στο
msg2 "Δεν υπάρχει τρέχουσα εγγραφή"

Πατώντας οκ με πάει στο
msg3 "Ο νέος πελάτης καταχωρήθηκε με επιτυχία"

Φυσικά δεν αποθηκεύει την εγγραφή.

Το θέμα είναι πως παρακάμπτουμε τα 2 τελευταία μηνύματα.
Αυτά θέλω να τα βγάζει μόνο όταν δεν υπάρχει ο πελάτης.
Ευχαριστώ

Καλησπέρα
Δεν θέλησα να διαφοροποιηθώ ιδιαίτερα από ό,τι έχεις αναρτήσει. Ούτε θα σχολιάσω τη σχεδίαση σου. Τα 'λάθη' που εισπράτεις οφείλονταιι στο γεγονός οτι ακυρώνεις την εγγραφή ως διπλότυπη, όμως δεν λες στην Access τι να κάνει μετά.
Εκεί στο κουμπάκι Save είχες -μάλλον- μακροεντολή η οποία έπρεπε να σώσει κάτι που είχες ακυρώσε και επομένως δεν υπήρχε!
Ελπίζω να βοηθηθείς από την δική μου απάντηση...

Με εκτίμηση
Νίκος

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