Κλείσιμο όλων των ανοιχτών φορμών εκτός απο την MainForm και την LoginForm

[γιώργοςΚ]

Καλημερα σε όλους τους φίλους του φορουμ,

Εύχομαι κατά αρχάς Καλές Γιορτές - με υγεία πάνω απο όλα..!!

Αντιμετωπίζω ένα μικρό πρόβημα το οποίο δεν μπορώ να επιλύσω καθώς δεν διαθέτω τις απαιτούμενες γνώσεις προγραμματισμού Vba.

Με την βοήθεια του φίλου Γιώργου (Kapetang) κάποια στιγμή μου είχε γράψει έναν κώδικα έτσι ώστε όταν καλείται να βρίσκει και να κλείνει όλες τις ανοιχτές φόρμες που υπάρχουν στην βάση μου. Το πρόβλημα όμως τώρα ειναι ότι δεν θέλω να κλείνει δύο συγκεκριμμένες φόρμες (την frmStartupScreen και την frmLogon).

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

Function CloseAllForms()

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
DoCmd.Close acForm, obj.Name, acSaveYes
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
'έχω δώσει αυτήν την εντολή εφόσον θέλω να παραμένουν ανοιχτές αυτές οι δύο φόρμες όμως μου δημιουργεί πρόβλημα εφόσον ανοίξουν εκ νέου....

DoCmd.OpenForm "frmLogon"
DoCmd.OpenForm "frmStartupScreen"

End Function

[kapetang]

Καλημέρα

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

Public Sub CloseAllForms()
    Dim j As Long
    For j = Forms.Count - 1 To 0 Step -1
        If Not (Forms(j).Name = "frmLogon" Or _
            Forms(j).Name = "frmStartupScreen") Then
            DoCmd.Close acForm, Forms(j).Name, acSaveYes
        End If
    Next
End Sub

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

[γιώργοςΚ]

Καλησπέρα φίλε Γιώργο και εύχομαι να είσαι καλά,

Και φυσικά δουλεύει φίλε μου ο κώδκας εφόσον προέρχεται απο εσένα..!!!!
Γιώργο σε υπέρ-ευχαριστώ και εύχομαι ο θεός να σου δίνει πάνω απο όλα υγεία αλλά και δύναμη και κουράγιο να μπορείς να ανέχεσαι εμάς τους αρχάριους που σας κουράζουμε με τις αδεξιότητες μας στο θέμα vba και φυσικά βάζω τον εαυτό μου πρώτα απο όλους..

Σε ευχαριστώ Γιώργο νάσαι καλά.