IsLoaded

[swedbera]

Can the IsLoaded function be modified so that it will work with Reports and
Forms? If so, can someone help me with the code? I would really appreciate
it.

Thanks,

Arlene

 

[Rick Brandt]

Can the IsLoaded function be modified so that it will work with Reports and
Forms? If so, can someone help me with the code? I would really appreciate
it.

Function IsRptLoaded(ByVal strRptName As String) As Boolean

' Returns True if the specified report is open

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acReport, strRptName) <>
conObjStateClosed Then
IsRptLoaded = True
End If

End Function

 

[swedbera]

Thank you! I was making it more difficult than it needed to be. This works
great.

Arlene