Check If Form Open or Not

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

kirkm - 06 Mar 2008 08:59 GMT

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

Reply to this Message

Bob Phillips - 06 Mar 2008 09:42 GMT

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

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> I'm prety sure this is Access code
>
[quoted text clipped - 5 lines]
>
> Thanks - Kirk

Reply to this Message

kirkm - 07 Mar 2008 00:32 GMT

Thanks Bob, That did it brilliantly.

Cheers - Kirk

Reply to this Message