Is there a way to check if a form is open or not? 1

[emilybartholomew]

I have a set of interrelated forms. One of the forms I have ("Projects&quot has a button on it that opens a "Project Log" form. The user can enter notes, close the form, and I have some VB code that refreshes the Project form. However, I want to use the Log form even when the original Projects form is not open. Of course, vb gives me an error when I close the log form and it tries to refresh the projects form, which is not open. Is there a way to test if the Projects form is open or not? (Then a simple if statement would do the job...)

Thanks-

emily

 

[FoxProProgrammer]

Hi Emily,

Use the SysCmd Method. Here's an example:

Dim frmStatus as Integer

frmStatus = SysCmd(acSysCmdGetObjectState, acForm, "formname&quot

If frmStatus = 0 Then
' The form is not open
End If

SysCmd returns 0 if not Open, 1 if Open, 2 if Changed/not saved, and 4 if New, or any combination of the above if more than one are true.

You can use this method to check if the form is open, but it almost sounds like the form is being closed when it supposed to be open?

dz

 

[LonnieJohnson]

Sub CheckForm()

Dim frm As Form

For Each frm In Forms

If frm.Name = "MyFormNameHere" Then

'Do something here

End If

Next

End Sub prodevmg@yahoo.com
ProDev, MS Access Applications B-)

http://www.galaxymall.com/software/PRODEV

May God bless you in the year 2002.

 

[emilybartholomew]

Thanks. The SysCmd method works great! (I didn't try the other way, but I'm sure it's good too)