I added a new group to GroupT table (GroupID = 8), a new user to UserT (user ID 222)and add a record to GroupXUserT table UserID=222, GroupID = 8 but user gets error msg when trying to login.  Code:  Private Sub Command4_Click()

If IsNull(txtUsername) Then
    MsgBox "Invalid Username"
Exit Sub
End If

Dim X As Long
X = Nz(DLookup("UserID", "UserT", "Username='" & txtUsername & "'"))

If X > 0 Then
    'We have a valid user
    
    DoCmd.OpenForm "MainMenuFpre"
    Forms!MainMenuFpre.Visible = False
    Forms!MainMenuFpre!txtUserID = X
    Forms!MainMenuFpre!txtUsername = txtUsername
If GlobalModule.IsUserInGroup(8) Or GlobalModule.IsUserInGroup(2) Or GlobalModule.IsUserInGroup(7) Then
    DoCmd.OpenForm "MainMenuF"
    Forms!MainMenuF!txtUserID = X
    Forms!MainMenuF!txtUsername = txtUsername
    
    
    DoCmd.Close acForm, "LoginF"
    
Else
    MsgBox "Invalid Logon.  Try again or contact Database Administrator."
End If
End If

End Sub
Please Advise

---

Reply from Alex Hedley:

So they get
MsgBox "Invalid Logon. Try again or contact Database Administrator."

Have you tried adding a breakpoint to your code and stepping through each line to see what is going on?