I followed the instructions Richard provided in creating a logon form in the TechHelp video series for User Level Security. I have added to it with a Title combo box which the users select their given job title from the list. All boxes send the data to a TempVar for use elsewhere in the database.

I am now trying to update this form so that if a user is not current, it pops a message box up saying "Inactive User" and then quits the database. In the underlying UserT, I have added a yes/no field for "Current" and in the VBA for the Logon button it looks like the included code. It is not working in the fact that when I click the Logon button it comes up with Run-time error '3075'" Syntax error in string query expression 'Current=Current'".

I just want the button to check the UserT if a user is still current and if not tell the user so and then quit the database.

Details

Private Sub LogonBtn_Click()

    Dim ID As Long, PW As String, JT As Long, Current As String
    
    ID = Nz(DLookup("UserID", "UserT", "Username=""" & Username & """"), 0)
    If ID = 0 Then
        MsgBox "User not found"
        Quit
        
    End If
    
    PW = Nz(DLookup("Password", "UserT", "UserID=" & ID), "")
    If PW <> Password Then
        MsgBox "Incorrect Password"
        Quit
    
    End If
    
    JT = Nz(DLookup("Job_Title", "UserT", "Job_Title=""" & "Job_Title" & """"), 0)
    
    Current = Nz(DLookup("Current", "UserT", "Current=" & "Current" & """"), 0)
    If Current <> True Then
        MsgBox "Inactive User"
        Quit
        
    End If

    TempVars("Username") = Username.Value
    TempVars("UserID") = ID
    TempVars("Title") = Job_Title.Value
    DoCmd.OpenForm "Main Menu"
    DoCmd.Close acForm, Me.Name, acSaveYes
    
End Sub
Copy