meerdere formulieren met één commando sluiten

[fjvanlochem]

Forum leden,

Is het mogelijk om in Access VBA meerdere formulieren met één commando te sluiten?

Floris

 

[OctaFish]

Het commando kan hetzelfde zijn, maar de actie moet voor elk formulier apart worden uitgevoerd. Maar je kunt de AllForms collectie gebruik om alle openstaande formulieren met één functie te sluiten.

 

[OctaFish]

En dat ziet er, in een functie, dan zo uit:

Function CloseForms()
Dim obj As AccessObject
Dim proj As Object

    Set proj = Application.CurrentProject
        For Each obj In proj.AllForms
        If obj.IsLoaded = True Then
            DoCmd.Close acForm, obj.Name
        End If
    Next obj

End Function

En je gebruikt 'm dan zo op een knop:

Sub testje_Click()
     CloseForms
End Sub