Security Code

[pastorkc]

I have set my code on my logon button, it keeps telling me that the Security Level has not been defined as a variable.

Private Sub LogonBtn_Click()
     Dim ID As Long, PW As String, SL 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
    
    SL = Nz(DLookup("SecurityLevel", "UserT", "UserID=" & ID), "")
    If SL <> SecurityLevel Then
        MsgBox "Access Denied"
        Quit
    End If
    
    TempVars("SecurityLevel") = SecurityLevel.Value
    DoCmd.OpenForm "MainMenuF"
    DoCmd.Close acForm, Me.Name, acSaveYes

 

[welshgasman]

Not sure why that would be.
I would ask however why the security level is not numeric?
If none found, you are making it a ZLS ?
Also are we talking about SL or SecurityLevel ?

 

[welshgasman]

Probably this.
TempVars("SecurityLevel") = SecurityLevel.Value

should be
TempVars("SecurityLevel") = SL

I would always prefix my controls with Me.

 

[Micron]

it keeps telling me that the Security Level has not been defined as a variable.

Are you making up your own versions of error messages? I interpret the problem to be that you are using Option Explicit and you have an undeclared variable "username".
"Username=""" & Username & """"), 0)

As I see it, nz is returning a 0 if not found?

 

[pastorkc]

Ya I think need to stop and rethink I what I am doing. To many interruptions Thank you everyone.

 

[welshgasman]

Now crossposted at Variable not defined