Κλείσιμο όλων των ανοιχτών φορμών εκτός απο την 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