Determine if a form is already open

[Marty2of5]

Hi, I'm not too familiar with ADO and I keep getting error messages trying to do this how I think it will work.

I have a control on a form (frmMain) that runs some automation before opening another form (frmAssign). However, if the frmAssign is already open, I don't want to run the automation -- I just want it to change the focus to frmAssign.

What is the simplest way to run that conditional?

Thanks,

Marty

 

[CajunCenturion]

One way you might try is to find the form in the Application.CurrentProject.AllForms collection and then check the .IsLoaded property.

Dim TheObj              As AccessObject
For Each TheObj In Application.CurrentProject.AllForms
   If (TheObj.Name = "frmAssign") Then
      If (TheObj.IsLoaded = True) Then
         Skip the Automation
      Else
         Perform the Automation
      Endif
   End if
Next TheObj

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[RoyVidar]

Hi!

If there's a possibility that the form might be open in design view, Rohdem's "IsLoaded" function in faq faq181-320 might be a good alternative.

[tt]If IsLoaded("frmAssign&quot then
' do the automation
else
' set the focus
end if[/tt]

You'll need to copy/paste his code into a module (not a forms module)

Roy-Vidar

 

[Marty2of5]

The users will not have access to design view. CajunCenturion's solution is working. It would be great to use Rohdem's function if this comes up multiple times.

Thanks again!
Marty