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

[pdhmos]

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

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

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

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

ΕΥΧΑΡΙΣΤΩ.

[kapetang]

Καλησπέρα

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

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

DIM blnEXit As Boolean

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

blnExit=TRUE.

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

If blnExit Then
blnExit=FALSE
Exit Sub
End If

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

[pdhmos]

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

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

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

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


καλό βραδυ

[kapetang]

Καλησπέρα

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

[pdhmos]

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