Check if a form is already open using macro (2000)

Topic

New Reply

I have a macro which runs 4 reports. Each of the reports, when run individually starts by opening a form to allow the user to enter some criteria. Each report uses the same form (called imaginatively form1). In the macro which combines them, the form is displayed as each form opens. Is there macro condition which I can enter to check if the form is already open? If it is open I want skip the openform line in the macro.
John

Reply | Quote

Replies

Is the form (form1) closed when the first ‘results’ form is opened? if so why is the form closed after the first form has opened?

Do the forms all run off queries pointed at form1? I’m guessing they do.

If so, opening form1, requesting the criteria and then keeping form1 open in the background (minimised??) would allow the subsequent queries to get the criteria without repeatedly asking for it.

I may be considering this too simplistically, but this is what I’ve done under similar circumstances.

Ian

Reply | Quote

You can put the following function in a standard module:

Function IsLoaded(ByVal strFormName As String) As Boolean
‘ Returns True if the form is loaded
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) Then
IsLoaded = Forms(strFormName).CurrentView
End If
End Function

Call it like this in code

If IsLoaded(“Form1”) Then
…
Else
…
End If

or use it as a condition in a macro.

Reply | Quote

You can also use this in Access 2000 and 2002:

If CurrentProject.AllForms(strFormName).IsLoaded = True then ...

Reply | Quote

thanks all for your help – i’ve pieced together enough to sort the problem from your replies

Reply | Quote