Condition Syntax

[Klion]

Need a statement like

If (frmResultsSummary is open) then
DoCmd.Close acForm, "frmResultsSummary"
End if


No clue what syntax is to check if something is open though, tried a few searches with no luck.

-Klion

 

[scottn]

I usually define this little function somewhere in my project:

Public Function IsOpen(strName As String, Optional intType As AcObjectType = acForm)

'From: Getz, Litwin, Gilbert.  Access 200 Delevoper's Handbook Volume 1: Desktop Edition.  1999, Sybex.
'Returns true if the form is open (loaded)

    IsOpen = (SysCmd(acSysCmdGetObjectState, intType, strName) <> 0)
End Function

Once you've defined this, you can write easy-to-read code like this:

If IsOpen("MyForm", acForm) Then
    '...
End If

'or

If IsOpen("MyReport", acReport) Then
    '...
End If

 

[adam_fleck]

isFormOpen

If you create a new module and paste in this code:

Function IsFormOpen(strFormName As String) As Boolean

    IsFormOpen = (SysCmd(acSysCmdGetObjectState, acForm, strFormName) = acObjStateOpen)

End Function

(from ghudson, http://www.access-programmers.co.uk...hlight=isloaded)

then you'll be able to call the function like this:

If IsFormOpen("form_name") then
    Do_Something
End If

 

[Klion]

Perfect, thanks a lot.