Businesstipps Microsoft Office

Access VBA: Eigene Funkton – Alle Formulare auf einmal schließen

Lesezeit: < 1 Minute Besonders wenn sich viele Formulare in Ihrer Datenbank befinden und Sie diese ständig nutzen, kann es manchmal ganz ratsam sein, alle Formulare auf einmal zu schließen. Sie können eine eigene Funktion entwickeln und diese dann mit einem Makro aufrufen. Die folgende Syntax erzeugt die entsprechende Funktion:

< 1 min Lesezeit

Access VBA: Eigene Funkton – Alle Formulare auf einmal schließen

Lesezeit: < 1 Minute

Public Function CloseAllForms()

Dim I As Long, FormName As String

For I = Forms.Count – 1 To 0 Step -1

FormName = Forms(I).Name

DoCmd.Close acForm, FormName, acSaveYes

Next I

End Function

Die Formulare werden beim Schließen direkt gespeichert. Es gehen also keine Änderungen verloren. 

Mit diesem Makro können Sie die Funktion aufrufen und nutzen:
Private Sub MeineSchaltfläche_Click()

CloseAllForms

End Sub

PS: Qualitätsmanagement ist uns wichtig!

Bitte teilen Sie uns mit, wie Ihnen unser Beitrag gefällt. Klicken Sie hierzu auf die unten abgebildeten Sternchen (5 Sternchen = sehr gut):

Bitte warten...

PPS: Ihnen hat der Beitrag besonders gut gefallen?

Unterstützen Sie unser Ratgeberportal: