How to check a form if it is opened ?

[wassimdaccache]

Hello everybody


I'm using access 2003

Sometimes I use to open more than form in my project what I need is to check another form if still opened

For example I have :

form name X,Y,Z

I got the focus into X what I need to check is whether Y and Z from are opened ?
Is ther any module on VB for that ... If not any method please ....

[NeoPa]

You have (accidentally) posted this question in the Access Articles section. This is NOT an article.
I'm moving this to the main Access questions forum.

MODERATOR.

[NeoPa]

Hello everybody


I'm using access 2003

Sometimes I use to open more than form in my project what I need is to check another form if still opened

For example I have :

form name X,Y,Z

I got the focus into X what I need to check is whether Y and Z from are opened ?
Is ther any module on VB for that ... If not any method please ....

The Forms collection holds all the open forms.
You can access it via a loop or via the form's name.
Let us know how you get on with this :)

[wassimdaccache]

I found it..........


I declare this module

Public Function Isopen(fn As String) As Boolean 'returns True if form is open
If SysCmd(acSysCmdGetObjectState, acForm, fn) <> 0 Then Isopen = True
End Function

then I use this function

if ( isopen(X) ) then 
msgbox "X IS OPEN " ,,vbinformation 
else
msgbox " not open ",,vbinformation 
end if

byyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy

[ADezii]

Hello everybody


I'm using access 2003

Sometimes I use to open more than form in my project what I need is to check another form if still opened

For example I have :

form name X,Y,Z

I got the focus into X what I need to check is whether Y and Z from are opened ?
Is ther any module on VB for that ... If not any method please ....

You didn't specify what Version of Access you are running, so I'll stay with the simplest and most basic approach, the Forms Collection.

1. NeoPa already pointed you in the right direction in that the Forms Collection contains only the Forms that are Opened. If a Form is not contained within this Collection, it is not open.
2. Copy and Paste this code in a Standard Code Module.
   

   Public Function fIsFormOpen(FormName As String) As Boolean
   Dim frm As Form
    
   For Each frm In Forms
     If frm.Name = FormName Then
       fIsFormOpen = True
         Exit Function
     Else
       fIsFormOpen = False
     End If
   Next
   End Function

3. Call the Function as indicated below.
   

   If fIsFormOpen("X") Then
     Debug.Print "Form X is Open"
   Else
     Debug.Print "Form X is NOT Open"
   End If

NOTE: After seeing wassimdaccache's Post, you are probably better using his approach.

[NeoPa]

The Forms approach can be used quite simply :

Public Function IsFormOpen(strForm As String) As Boolean
    IsFormOpen = False
    'If form open, the test will always return TRUE, otherwise FALSE
    On Error Resume Next
    IsFormOpen = (Forms(strForm).Name = strForm)
End Function

Lines 2 & 3 are essentialy unnecessary.