This is the code that I use if I wanted to do everything manually.
Code:
Private Sub Command12_Click()
txtID = Forms![LoginForm]![txtEmployeeID]
Dim CoachID As Variant
CoachID = Array("10269443", "10440457", "01654907", "10269343", "01604737", "01654817", "10391316")
If CoachID(0) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf CoachID(1) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf CoachID(2) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf CoachID(3) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf CoachID(4) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf CoachID(5) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf CoachID(6) = txtEmployeeID Then
DoCmd.OpenForm "frmMain", acNormal
ElseIf IsNull(txtID) Then
MsgBox "Please enter a valid Associate ID"
Else
DoCmd.OpenForm "HourlyForm", acNormal
End If
Exit Sub
End Sub