I have designed a login screen and after you successfully log in I would like to open multiple forms at the same time. At the moment I can successfully open 1 at a time. Here is my code.
Option Compare Database
Private Sub Command1_Click()
If IsNull(Me.txtLoginID) Then
MsgBox "Please Enter LoginID", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "Please Enter Password", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
'process the job
If (IsNull(DLookup("[UserLogin]", "tblUser", "[Userlogin] ='" & Me.txtLoginID.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
MsgBox "Incorrect LoginID or Password"
Else
DoCmd.Close
'MsgBox "LoginID and Password correct"
DoCmd.OpenForm "P1 Vlan Database Form" *//THIS IS WHERE I WANT TO MAKE IT OPEN MORE THAN ONE FORM//*
End If
End If
End Sub
So if you guys know a way I can add a doCmd.OpenForm to open the other forms I would really appreciate it!
Thank you,
Josh