Προτεραιότητα σε πλαίσια επιλογής
 

Καλησπέρα και καλή εβδομάδα (για αύριο)
Για ακόμα μια φορά θέλω την βοήθεια σας

Στο πεδίο μιας φόρμας εάν δεν κάνω καταχώριση τρέχει ο παρακάτω κώδικας.

Private Sub KATHGORIA_Exit(Cancel As Integer)
If IsNull(KATHGORIA) Or KATHGORIA = "" Then MsgBox "Πρεπει να καταχωρισεις κατηγορια
Οποσδηποτε": Me.KATHGORIA.SetFocus
End Sub

Το ζητούμενο είναι εάν επιλεγεί η έξοδος πατώντας στο (EXODOS) να παρακάμπτει τον πιώ πάνω κώδικα.

ΕΥΧΑΡΙΣΤΩ.

Καλησπέρα

Δήμο, δοκίμασε το εξής:

1) Δήλωσε μια μεταβλητή επιπέδου φόρμας (έξω από ρουτίνες)

DIM blnEXit As Boolean

2) Στη ρουτίνα του κουμπιού EXODOS, πρόσθεσε την εντολή:

blnExit=TRUE.

3) Στην αρχή του κώδικα της ρουτίνας KATHGORIA_Exit, πρόσθεσε τον κώδικα.

If blnExit Then
blnExit=FALSE
Exit Sub
End If

Φιλικά/Γιώργος

Αγαπητέ Γιώργο ευχαριστώ για την απάντηση.

Θα το δοκιμάσω αύριο τρίτη απόγευμα γιατί είμαι ακόμα στην δουλειά ( 10+30) και είμαι από το πρωί.

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

Μήπως είναι καλύτερα από την πείρα σου αντί να ελέγχω με την έξοδο από κάθε πεδίο ένα-ένα να κάνω έλεγχο για όλα τα πεδία μαζί πριν την αποθήκευση ?.


καλό βραδυ

Καλησπέρα

Δήμο, αν στη σχεδίαση του πίνακα ορίσεις να μη παίρνουν τα πεδία κενές τιμές (Required=Yes, Allow Zero Leght =No), χωρίς κώδικα, όταν θα αποθηκεύεται η εγγραφή, θα γίνεται έλεγχος από την access.

Αγαπητέ Γιώργο και πάλι σε ευχαριστώ και καλό μεσημέρι.
Το απόγευμα θα κάνω τις δοκιμές .