Check If Form Open or Not
Function IsLoaded(szName As String)
Dim frm As Object
For Each frm In UserForms
If frm.Name = szName Then
IsLoaded=True
Exit For
End If
Next frm
End Function
--
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"kirkm" wrote in message
...
I'm prety sure this is Access code
Function IsOpen(szName As String)
IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, szName) < 0)
End Function
Anyone know the Excel equivalent?
Thanks - Kirk
|