Forum - CloseButton σε Φόρμα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - CloseButton σε Φόρμα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1668-closebutton-se-forma.html)

CloseButton σε Φόρμα

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

Παράθεση:

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

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

Κώδικας:

Private Sub close_Click()

    If Me.Check<> 0 Then

     DoCmd.close acForm, "form1"

     Else

     MsgBox " Κάντε Επιλογή! "

    End If

   End Sub

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

Καλημέρα σε όλους!

Παράθεση:

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

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

Αυτό όμως είναι καθαρά δικό σου θέμα.

Όταν θέλεις να κλείσει μια φόρμα μόνο κάτω από ορισμένες προϋποθέσεις, ο πιο σίγουρος
τρόπος είναι να γράψεις κώδικα στο συμβάν της φόρμας "Με την αποφόρτωση" (Form_Unload)
όπου σου προσφέρεται η επιλογή "Cancel" που ακυρώνει τη διαδικασία κλεισίματος ακόμα και αν ο χρήστης
προσπαθήσει να κλείσει ολόκληρη την εφαρμογή.

Παράδειγμα:

Έστω ότι το πλαίσιο ελέγχου (CheckBox) της φόρμας ονομάζεται "Check1".

Στο συμβάν της φόρμας μπορεί να τοποθετηθεί ο παρακάτω κώδικας:

Κώδικας:

Private Sub Form_Unload(Cancel As Integer)

    If Not Nz(Me.Check1) Then

        Cancel = True

        MsgBox "Πρέπει να τσεκάτετε το πλαίσιο ελέγχου για να κλείσει η φόρμα!", vbInformation

    End If

End Sub

Φιλικά

Τάσος

Σας ευχαριστώ για τις απαντήσεις, θα τις μελετήσω.