Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Κλείσιμο αναδυόμενης φόρμας όταν κλείνει η κύρια φόρμα

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 27-04-15, 12:22
Όνομα: Αθανασία
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 16-02-2015
Μηνύματα: 9
Προεπιλογή Κλείσιμο αναδυόμενης φόρμας όταν κλείνει η κύρια φόρμα

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

Σας ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb PopUp form close.mdb (380,0 KB, 9 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 27-04-15, 18:11
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.573
Προεπιλογή

Καλησπέρα

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

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

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

Κώδικας:
Private Sub Form_Close()
'Κλείνει την αναδυόμενη φόρμα Προιόντα εαν είναι ανοικτή
    DoCmd.Close acForm, "Προιόντα"
End Sub
Πληροφοριακά, θα μπορούσαμε να ελέγξουμε αν η φόρμα [Προιόντα] είναι φορτωμένη με την η έκφραση:

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

Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 27-04-15, 18:50
Όνομα: Αθανασία
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 16-02-2015
Μηνύματα: 9
Προεπιλογή

Σε ευχαριστώ πολύ που ασχολήθηκες αλλά με τη λύση που μου δίνεις δεν κλείνει η αναδυόμενη φόρμα Προιόντα όταν κλείνει η κύρια φόρμα Πελάτες. Μάλλον δεν το έδωσα να το καταλάβεις
Απάντηση με παράθεση
  #4  
Παλιά 27-04-15, 19:14
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.573
Προεπιλογή

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

Όταν ανοίξεις το αρχείο και παρουσιάσει μήνυμα ασφάλειας ενεργοποίησε τις μακροεντολές.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb PopUpForm Close.mdb (500,0 KB, 29 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 27-04-15, 19:26
Όνομα: Αθανασία
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 16-02-2015
Μηνύματα: 9
Προεπιλογή

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

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Συγχρονισμός αναδυόμενης φόρμας με κύρια φόρμα Alexia Access - Ερωτήσεις / Απαντήσεις 5 04-05-15 07:18
[ Φόρμες ] Άνοιγμα και κλείσιμο φόρμας wait anestaki Access - Ερωτήσεις / Απαντήσεις 9 13-12-14 18:51
[ Φόρμες ] Εμφάνιση μυνήματος μέσω αναδυόμενης φόρμας όπως το Outlook ΔΙΟΝΥΣΙΟΣ Access - Ερωτήσεις / Απαντήσεις 22 21-03-14 12:01
Κλείσιμο ερωτημάτων όταν δεν υπάρχουν κουμπιά κλεισίματος mdragon Access - Ερωτήσεις / Απαντήσεις 3 27-12-10 07:40
Κλείσιμο φόρμας όταν δεν υπαρχουν δεδομένα Meteora Visual Basic for Applications (VBA) 0 04-10-10 20:18


Η ώρα είναι 18:27.