If CurrentProject.AllForms("YourFormNameHere").IsLoaded Then
'it's open
Else
'it's not
End If
There's an example in the Northwind sample database that also checks to see
whether the form is open in Design View. Look for the IsLoaded function in
the Utility Functions module.