[raycomp]

I need code to detect if no forms are open to exit sub and show new form

my current code:

Private Sub mnuSwitchUser_Click()

  Dim X As Form

[i][b]'need code here to detect something like
' If no open forms then
'    frmLogin.show
'    exit sub
' end if[/b][/i]

  'unload all open forms
Beep
    MsgDVZ vbCrLf & "Remember!!! All un-saved data in open forms will be lost " & _
        vbCrLf & vbCrLf & " - Do you want to close all forms?", "Sh16 - Close all forms...", 2, False
            If mdiMainMenu.bNo = True Then
                Exit Sub
                End If
For Each X In Forms
    Unload X
    Set X = Nothing
Next X

frmLogin.Show

End Sub

This post has been edited by raycomp: 03 February 2012 - 12:16 PM

[BobRodes]

Forms.Count!

This post has been edited by BobRodes: 05 February 2012 - 10:18 AM