If a form is open close on open of another form 2

[RachelK]

Hi,

I have had a dig around on the net and I can't seem to find what I am looking for.

I have a form called "CourseProviders" that is open most of the time however I have another form called "frmStudent", upon open of the "frmStudent" form I would like to check the form "frmCourseProviders" is not open and close the "frmCourseProviders" if it is open .

I don't know how go about this any sugestions I would be greatfull. Thanks Rachel

 

[Mute101]

Hi Rachel,

this function will let you check and see if a form is open already;

Function fIsLoaded(ByVal strFormName As String) As Boolean
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function

you can then simply use an if statement to check like so;

If fIsLoaded("frmCourseProviders") Then
    DoCmd.Close acForm, "frmCourseProviders"
End If

That should do what you need.

Sim

----------------------------------------
My doctor says that I have a malformed public duty gland and a natural deficiency in moral fibre and that I'm therefore excused from saving universes.
----------------------------------------

 

[Crowley16]

Ooo, you got that one in mute...

Procrastinate Now!

 

[RachelK]

Sounds like there was a race going on. Anyway I am just starting out so excuse me if I ask stupid questions. The function is that a gobal function that I can call at anytime? Cheers Rachel

 

[Mute101]

It is indeed, place it in a module then you can call it like a built in function. Its code that gets used over and over in a couple of my applications making it a prime function candidate.

----------------------------------------
My doctor says that I have a malformed public duty gland and a natural deficiency in moral fibre and that I'm therefore excused from saving universes.
----------------------------------------

 

[RachelK]

Mute,

It was a global function I there in end. Anyway it worked fantastically. Cheers for your help. Rachel

 

[FancyPrairie]

There is another way to check to see if a form is open (feature added to Access 2000).

    If (CurrentProject.AllForms("frmCourseProviders").IsLoaded) Then
    DoCmd.Close acForm, "frmCourseProviders"

 

[assets]

There is a FASQ that check if an other form is loaded. Also you could write a query on a tomer tat checks if the form has been loaded since (run ever 10 seconds)