[nasos23]

Αρχική Δημοσίευση από Χρήστος

Ζητώ και πάλι την βοήθειά σας.
Ας υποθέσουμε οτι σε μια φόρμα υπάρχει ένα checkbox και ένα κουμπί Closebutton κλεισίματος της Φόρμας.
Με το κλικ του CloseButton της Φόρμας θα ήθελα να ελέγχεται το εξής:
-Αν το checkbox είναι ενεργό τότε να κλείνει η φόρμα
-ενώ
-αν δεν είναι
-να μην κλείνει
-και μάλιστα ακόμη και αν πατηθεί το κουμπάκι κλεισίματος στo παράθυρο διαλόγου της Φόρμας πάλι να μην κλείνει
-και να βγάζει προειδοποιητικό μήνυμα που να λέει "Κάντε επιλογή!"

Καλημέρα στην παρέα
Χρήστο
Στη φόρμα μας π.χ. form1 σε μορφή σχεδίασης προσθέτουμε ένα
πλαίσιο ελέγχου - στο παράδειγμα το ονομάζουμε (Check)
και ένα κουμπί κλεισίματος - το ονομάζουμε (close).
Στο κουμπί κλεισίματος με το κλικ [Διαδικασία συμβάντος]
γράφουμε.

Private Sub close_Click()
    If Me.Check<> 0 Then
     DoCmd.close acForm, "form1"
     Else
     MsgBox " Κάντε Επιλογή! "
    End If
   End Sub

Προσάρμοσε αναλόγως τις επιλογές σου.
Φιλικά
Νάσος