Is the form open?

[Nirious]

Hi,

Can anyone help me find out wether a form is open or not from vba-code.

I have some code in one form, that shouldn't be executed when another form is open. (Just one form, not all)

 

[Mile-O]

This example is in the Northwind Database:

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Returns True if the specified form is open in Form view or Datasheet view.
    
    Const conObjStateClosed = 0
    Const conDesignView = 0
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
    
End Function

 

[ghudson]

Bill [Gates] was kind enough to add the IsLoaded Property to Access 2003. Considering it has been a part of the Northwind db since Access 97.

 

[Nirious]

Thx,

that's exactly what I needed