Ανανέωση ιστοσελίδας

[Χρήστος]

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

[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

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

[Tasos]

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

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

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

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

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

Όταν θέλεις να κλείσει μια φόρμα μόνο κάτω από ορισμένες προϋποθέσεις, ο πιο σίγουρος
τρόπος είναι να γράψεις κώδικα στο συμβάν της φόρμας "Με την αποφόρτωση" (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

Φιλικά

Τάσος

[Χρήστος]

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