Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Διπλότυπη Εγγραφή
Έστω ότι έχουμε τον πίνακα "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 τελευταία μηνύματα. Αυτά θέλω να τα βγάζει μόνο όταν δεν υπάρχει ο πελάτης. Ευχαριστώ |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Γενικά] Διπλότυπη εμφάνιση Unicode σε διαφορετικούς χαρακτήρες γραμμάτων | alex | Excel - Ερωτήσεις / Απαντήσεις | 0 | 09-05-14 08:27 |
Νέα εγγραφή σε ημερομηνία | stavross | Access - Ερωτήσεις / Απαντήσεις | 27 | 30-11-12 07:42 |
[ Φόρμες ] Έλεγχος για διπλότυπη τιμή | ΤΖΙΜΗΣ | Access - Ερωτήσεις / Απαντήσεις | 4 | 02-08-11 14:05 |
Αυτόματη εγγραφή | TZON_FON | Access - Ερωτήσεις / Απαντήσεις | 11 | 23-10-10 16:18 |
[ Φόρμες ] ΜΕΤΑΒΑΣΗ ΣΕ ΕΓΓΡΑΦΗ | gregory_m | Access - Ερωτήσεις / Απαντήσεις | 2 | 27-09-10 22:26 |
Η ώρα είναι 21:50.