Checking for open forms in access 97

  • Thread starter Thread starter John
  • Start date Start date
John said:
Hi

How can I check if a particular form is already open in access 97?

Thanks

Regards
Click to expand...

Copy this into a standard module and then use it to test for open forms...

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet
view.
On Error GoTo ErrHandler

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

Exit Function

ErrHandler:
MsgBox Err.Description
End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

open office and access 97 2
Repairing access 97 db 1
Weird problems installing Access 97 on WIndows 2000 Profressional 3
Can't open my Access files after conversion from Access 97 to Access 2003 5
MS Access 97 and 2003 installed on same PC, default want to be 97 4
access 97 to access 2010 conversion? 1
Count Results in Access 97 8
Access 97 and 2007 on the same machine 6

Back
Top