Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   κλείσιμο όλων των ανοιχτών φορμών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3216-kleisimo-olon-ton-anoixton-formon.html)

γιώργοςΚ 28-06-14 11:18
κλείσιμο όλων των ανοιχτών φορμών
 
Χαιρετώ τους φίλους του φόρμουμ

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

Σας ευχαριστώ εκ προτέρων

kapetang 28-06-14 16:19
Καλησπέρα

Γιώργο ο δοκίμασε τον παρακάτω κώδικα.

Κώδικας:
Private Sub cmdCloseForms_Click()
Dim j As Long
    For j = 0 To Forms.Count - 1
        DoCmd.Close acForm, Forms(0).Name
    Next
End Sub

Private Sub cmdCloseFormsNotCurrent_Click()
Dim j As Long
    For j = 0 To Forms.Count - 2
        If Me.Name <> Forms(0).Name Then
            DoCmd.Close acForm, Forms(0).Name
        Else
            DoCmd.Close acForm, Forms(1).Name
        End If
    Next
End Sub
Η πρώτη διαδικασία κλείνει όλες τις φόρμες, ακόμα και αυτή που περιέχει τον κώδικα.

Η δεύτερη κλείνει όλες τις άλλες εκτός από την τρέχουσα.

Φιλικά/Γιώργος

γιώργοςΚ 30-06-14 09:27
Καλημέρα Γιώργο,

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

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

kapetang 30-06-14 15:34
Καλησπέρα

Γιώργο ο κώδικας βρίσκεται σε κάποια φόρμα (πχ Form1).

Η πρώτη διαδικασία κλείνει όλες τις φόρμες (και την Form1).

H δεύτερη κλείνει όλες τις φόρμες εκτός από την τρέχουσα (Form1).

Για να κάνει η δεύτερη διαδικασία αυτό που θέλεις, αντί me.Name γράψε σε εισαγωγικά το όνομα της φόρμας που θα μείνει ανοιχτή (πχ «switchboard»)

Φιλικά/Γιώργος

ΥΓ Αν η switchboard είναι η τρέχουσα ο κώδικας δε χρειάζεται αλλαγή

γιώργοςΚ 30-06-14 23:45
Καλησπέρα Γιώργο,

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

Καλό βράδυ φίλε.

γιώργοςΚ 01-07-14 20:07
Γιώργο σε ευχαριστώ φίλε,

Ο κώδικας που μου έχεις στείλει κάνει ακριβώς ότι ζητώ (το δεύτερο σκέλος)

Σε ευχαριστώ και πάλι


Η ώρα είναι 07:39.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2