Username and Security Level

[krc9127]

Is there a better way to code this? I would like it to look and the username and then see what security level they are. If they are a 2 or 3 they have access otherwise access is denied. I would rather have a security value instead of putting actual names.

This is assigned to the Logon Button:
Private Sub LogonBtn_Click()
Dim ID As Long, PW As String, SecurityLevel 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

TempVars("Username") = Username.Value
DoCmd.OpenForm "MainMenuF"
DoCmd.Close acForm, Me.Name, acSaveYes

End Sub

I have this on each report:
If TempVars("Username") = "Ken" Or TempVars("Username") = "Staton" Or TempVars("Username") = "Kelly" Then
DoCmd.OpenReport "CombinedRider-Special Chart", acViewReport
Else


MsgBox "Access Denied"
End If

[Welshgasman]

So lookup the SecurityLevel?

[krc9127]

That's the part I am not sure about. How to add it. How do I look it up from the username they input?

[Welshgasman]

That's the part I am not sure about. How to add it. How do I look it up from the username they input?

The same way you look up the other data, it is just another field.

[krc9127]

Do I load it into a TempVars as well?

[Welshgasman]

Do I load it into a TempVars as well?

Well I would, as you then have all 3 data items to hand and do not need to look them up all the time?

[krc9127]

So like this:

SL = Nz(DLookup("Username", "UserT", "SecurityLevel=""" & SecurityLevel & """"), 0)
TempVars("SecurityLevel") = SecurityLevel.Value

[Welshgasman]

No
That is looking up username?
If you do not know the syntax, google the function.
Do not just make stuff up, coding does not work like that.

Think about it, you are using security level as criteria. The one thing you are trying to find?