You may use a code like this
Code:
Function Isopen(formname As String) as Boolean
Dim f As Form
Isopen = False
For Each f In Forms
If formname = f.Name Then
Isopen = True
Exit For
End If
Next f
Exit Function
This function returns True if the form is open, else it returns False.
Good luck