Check if a form is open and if it is close it?

[Will]

Hi, I am trying to check if a certain form is open and then if it is close
it. I have searched but can't find an answer. Any suggestions?

Thanks

Will

[deko]

> Hi, I am trying to check if a certain form is open and then if it is close

it. I have searched but can't find an answer. Any suggestions?

I use this:

If IsOpen("FormName") Then DoCmd.Close acForm, "FormName"

[put this function in a separate module]
Public Function IsOpen(fn As String) As Boolean 'returns True if form is
open
If SysCmd(acSysCmdGetObjectState, acForm, fn) <> 0 Then IsOpen = True
End Function

[Rog]

DoCmd.Close acForm, "FormName"
Access doesn't give an error if the form is not open.

[Trevor Best]

deko wrote:

Hi, I am trying to check if a certain form is open and then if it is close
it. I have searched but can't find an answer. Any suggestions?

I use this:

If IsOpen("FormName") Then DoCmd.Close acForm, "FormName"

[put this function in a separate module]
Public Function IsOpen(fn As String) As Boolean 'returns True if form is
open
If SysCmd(acSysCmdGetObjectState, acForm, fn) <> 0 Then IsOpen = True
End Function

IsOpen = SysCmd(acSysCmdGetObjectState, acForm, fn)

Would return the same with less code :-)

--
This sig left intentionally blank