Vérifier si un formulaire est ouvert

Function fIsLoaded(strFormName As String) As Boolean Dim ObjAcc As AccessObject Set ObjAcc = CurrentProject.AllForms(strFormName) If ObjAcc.IsLoaded Then If ObjAcc.CurrentView <> acCurViewDesign Then fIsLoaded = True End If End IfEnd Function

=============

usage

if fIsloaded("monform") then ...