CodeItBetter Programming Another VB Programming Blog

'Forms - How to check whether a Form is already loaded

Option Explicit
 
'Add two Command Buttons to your form. Add Another Form (Form 2).
'The first one is to detect whether Form2 is loaded or not
'the second button is to load Form2

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 I
End Function
 
Private Sub Command1_Click()
    If FormLoadedByName("Form2") = True Then
        MsgBox "The Form is loaded"
    Else
        MsgBox "The Form is not loaded"
    End If
End Sub
 
Private Sub Command2_Click()
    Load Form2
End Sub