[kapetang]

Καλησπέρα

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

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

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

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

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

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

Γιώργος