Check to ensure form is open before proceeding

[BonnieG]

I'm struggling with a bit of code and can't seem to get the syntax right.

I have an On Click procedure for one of my buttons but I don't want to allow it to run unless another form is currently open.

My other form is frm_go_live and it contains some variables relating to a project launch. I need that form to be open before my On Click procedure will work.

Something along these lines...

If (Forms!frm_go_live) [B]SOMETHING[/B] Then
    
    MsgBox "Please ensure the go live form is open before attempting to run this script."

Else

 

[PeterF]

Define a function is loaded like:

Function IsLoaded(MyFormName As String) As Boolean
    IsLoaded = SysCmd(acSysCmdGetObjectState, acForm, MyFormName)
End Function

And test like:

If not(isloaded("frm_go_live") Then
    MsgBox "Please ensure the go live form is open before attempting to run this script."
Else

Or skip the function and use the acSysCmdGetObjectState direct like:

If SysCmd(acSysCmdGetObjectState, acForm, "frm_go_live") = 0  Then
    MsgBox "Please ensure the go live form is open before attempting to run this script."
Else

 

[BonnieG]

Thank you, that's brilliant! I used the second example and it works perfectly. Really appreciate it.