Detecting if a vbModal form is open

[JJK]

i have a timer event in my app that checks a condition, if the condition is true then i popup a display form, however; i get an error if a modal form is already open. i have good error code in my app. the very first line is similiar to this.
On Error GoTo Timer1_Timer_Err

but on my timer event condition true i have to do something like this to keep from getting an error.
On Error Resume Next
frmCalendarReminder.Show
On Error GoTo Timer1_Timer_Err

is there a way to detect an open modal form, then i can just wrap the form.show around and if statement. thanks...

jj

This code will determine if a form is already open.

Tip by Sam Huggill


Public Function FormLoadedByName(FormName As String) As Boolean  
Dim i As Integer, fnamelc As String  
fnamelc = LCase$(FormName)
FormLoadedByName = False
For i = 0 To Forms.Count - 1 
If LCase$(Forms(i).Name) = fnamelc Then      
FormLoadedByName = True
Exit Function
End If
Next
End Function

Private Sub Command1_Click()
If FormLoadedByName("Form2") = True Then
MsgBox "Form2 is loaded"
Else
MsgBox "Form2 is not loaded"
End If
End Sub

[JJK]

That would work, however; my project has many modal forms so i have have to do a dectect on each of them. Does anyone have any comments on this option. I know the error number that is raised if I try to show a form and a modal form is already open, so i could continue to use the On Error Resume Next, then put an if after the form.show line that says if err.number <> 420 (420 is the error raised in this case) then goto my error handling code. I don't like to use On Error Resume Next, but as of now I don't have any other options.

jj

[seaweed]

Why don't you use a global variable to track the status of open, modal forms? You would just set the variable to true when a modal form is opened, and set it back to false when that form closes. You then just check the variable before attempting to open another modal form.