Public Sub CloseAllForms()
    Dim frm As AccessObject, db As Object
    Set db = Application.CurrentProject
       
    For Each frm In db.AllForms
        If frm.IsLoaded = True Then
            DoCmd.Close acForm, frm.Name, acSaveYes
        End If
    Next frm
End Sub

Call CloseAllForms

Public Sub CloseAllForms2(sTag As String)
    Dim frm As AccessObject, db As Object
    Dim frmSet As Form
   
    Set db = Application.CurrentProject
       
    For Each frm In db.AllForms
        If frm.IsLoaded = True Then
            Set frmSet = Forms(frm.Name)
            If frmSet.Tag = sTag Then DoCmd.Close acForm, frm.Name, acSaveYes
        End If
    Next frm
End Sub

Call CloseAllForms2("X")

• Große und farbige Checkboxen
• Auslesen von eingebauten und benutzerdefinierten CommandBars aus externen DB's
• Beliebigen Cursor in Formularen anzeigen
• Hand-Cursor in Formularen anzeigen
• Einlesen von Dateien in eine MS-Access Datenbank