How to chech if form is open. ACCESS 2000

You need to use the Access Forms collection.

......

Dim n as object
dim formname as string
.......

formname = "name of form you are trying to find"

for each n in currectdb.forms
  if n.name = formname then
     MsgBox "Form " & n.name & " exists and is open"
     goto foundit
   end if
next n

msgbox "Form " & formname & " is not open"
exit sub

foundit: .....
   rest of code

Very simple, but works every time.

Alan Thomas

Chonny,

Pass the form name to the following function. Function will return true if form is open and false otherwise.

Function IsFormOpen(ByVal strFormName As string) As Integer
   If SysCmd(acSysCmdGetObjectState, acForm,strFormName) <> 0 Then
      If Forms(strFormName).CurrentView <> 0 Then
         IsFormOpen = True
      End If
   End If
End Function

Best Regards
Vadivel

MVP ASP/ASP.NET
http://vadivel.thinkingms.com