Κλείσιμο αναδυόμενης φόρμας όταν κλείνει η κύρια φόρμα

[athanassiab]

Καλησπέρα,
Έχω π.χ. φόρμα Πελάτες και φόρμα Προιόντα. Ανοίγοντας την φόρμα Προιόντα μέσα από τη φόρμα Πελάτες, θέλω να συγχρονίσω τις φόρμες ώστε όταν κλείνει η φόρμα Πελάτες να κλείνει και η φόρμα Προιόντα.
Μπορείτε να μου πείτε τι κάνω λάθος στον κώδικα?
Private Sub Form_Close()
'Κλείνει την αναδυόμενη φόρμα Προιόντα εαν είναι ανοικτή
If IsOpen("Προιόντα") Then
DoCmd.Close acForm, "Προιόντα"
End If
End Sub

Σας ευχαριστώ

[kapetang]

Καλησπέρα

Αθανασία, στον κώδικα χρησιμοποιείς τη συνάρτηση χρήστη isOpen, χωρίς να την ορίσεις.

Έτσι, όταν ο κώδικας την καλεί (προσπαθεί να την εκτελέσει), δεν είναι δυνατόν να εντοπιστεί και προκαλείται λάθος.

Μπορείς να υλοποιήσεις το ζητούμενο με τον παρακάτω απλούστερο κώδικα:

Private Sub Form_Close()
'Κλείνει την αναδυόμενη φόρμα Προιόντα εαν είναι ανοικτή
    DoCmd.Close acForm, "Προιόντα"
End Sub

Πληροφοριακά, θα μπορούσαμε να ελέγξουμε αν η φόρμα [Προιόντα] είναι φορτωμένη με την η έκφραση:

CurrentProject.AllForms("Προιόντα").IsLoad ed

Γιώργος

[athanassiab]

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

[kapetang]

Στο συνημμένο αρχείο, όταν κλείνει η φόρμα [Πελάτες] κλείνει και η φόρμα [Προιόντα], αν είναι ανοιχτή.

Όταν ανοίξεις το αρχείο και παρουσιάσει μήνυμα ασφάλειας ενεργοποίησε τις μακροεντολές.

[athanassiab]

Πόσα ευχαριστώ να πώ δεν ξέρω. Να είστε καλά