Forms

[simo]

Is there a way of seeing whether a form is open or not in access 2000
using visual basic coding, as i want to transfer data from one form to
two different ones depending on which one is open.
Can anyone help
Simo!

[storrboy]

On Feb 25, 8:46 am, "simo" <[e-mail]:

Is there a way of seeing whether a form is open or not in access 2000
using visual basic coding, as i want to transfer data from one form to
two different ones depending on which one is open.
Can anyone help
Simo!

When a form is open it is added to the Forms collection. Make an
attempt to reference it - Forms("FormName"). If it is not open an
error will occur. Trap the error and you'll know...

Dim frm as Form

On Error Resume Next
Set frm=Forms("FormName")
If Err<>0 then Msgbox "Form is not available at the moment."

[simo]

On 25 Feb, 15:14, "storrboy" <[e-mail]:

On Feb 25, 8:46 am, "simo" <[e-mail]:

Is there a way of seeing whether a form is open or not in access 2000
using visual basic coding, as i want to transfer data from one form to
two different ones depending on which one is open.
Can anyone help
Simo!

When a form is open it is added to the Forms collection. Make an
attempt to reference it - Forms("FormName"). If it is not open an
error will occur. Trap the error and you'll know...

Dim frm as Form

On Error Resume Next
Set frm=Forms("FormName")
If Err<>0 then Msgbox "Form is not available at the moment."

thanks

[fredg]

On 25 Feb 2007 05:46:47 -0800, simo wrote:

Is there a way of seeing whether a form is open or not in access 2000
using visual basic coding, as i want to transfer data from one form to
two different ones depending on which one is open.
Can anyone help
Simo!

You can use the IsLoaded property to determine if a form is open.
In Access 2000 or newer:

If Not CurrentProject.AllForms("FormName").IsLoaded Then
Do something here
Else
Do something else
End If
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

[chris]

On Feb 25, 8:46 am, "simo" <[e-mail]:

Is there a way of seeing whether a form is open or not in access 2000
using visual basic coding, as i want to transfer data from one form to
two different ones depending on which one is open.
Can anyone help
Simo!

You can create a function called isOpen:

Function isOpen(strName As String, _
Optional intObjectType As Variant = acForm)
' Returns True if strName is open, False otherwise.
' Assume the caller wants to know about a form.
isOpen = (SysCmd(acSysCmdGetObjectState, _
intObjectType, strName) <0)
End Function

Then you just check

If isOpen("ProgramName") Then