Testing for Open Form

  • Thread starter Thread starter Bill H.
  • Start date Start date
Access 2000 and greater try


If CurrentProject.AllForms("MyForm").IsLoaded Then

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..
 
Bill,
This is a function that I've been using for a while, it seems to serve me
well:

------------------------------------

Function IsLoaded(MyFormName)

Dim i

IsLoaded = False
For i = 0 To Forms.COUNT - 1
If Forms(i).FormName = MyFormName Then
IsLoaded = True
Exit Function ' Quit function once form has been found.
End If
Next

End Function
 
Thanks! This is much better!


John Spencer said:
Access 2000 and greater try


If CurrentProject.AllForms("MyForm").IsLoaded Then

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..
Click to expand...
 

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

Calling a Function (Setting a RecordSource) 5
Include variable in contol reference 1
when converting to mde vba code does not work 6
Combo box columns 1
Trying to Print "Client Receipt" form per client visit 2
how to reference a uniqueidentifier 2
appending table from form 10
Preferred reading, writing and looping code 3

Back
Top