dlookup again

[mrijet]

Hi...can anyone solve this code for me...I don't know why when I log as Admin that I set as Integer which 1 = Admin and 2 = User

Below is the coding of retrieve the data by using dlookup

Dim security As Integer
Dim user As String
 
user = Environ("USERNAME")
Me.txtUser = user
Me.txtUsername = DLookup("UserName", "User", "[UserName]='" & user & "'")
 
If IsNull(DLookup("UserSecurity", "User", "[UserLogin]='" & Me.txtUser & "'")) Then
    MsgBox "No User Security set up for this user. Please contact the Admin", vbOKOnly, "Login Info"
    Me.Command175.Visible = False
Else
    security = DLookup("UserSecurity", "User", "[UserLogin]='" & Me.txtUser.Value & "'")
    If security = 1 Then
        Me.Command175.Visible = True
    Else
        Me.Command175.Visible = False
    End If
End If

The problem when I access as admin it will go on the line 8 until 10

Can anyone help me?

[jforbes]

I don't really understand what problem you are encountering. If you would like to clarify what your error is, that might be helpful.

Looking at your code, there are a few things that I would do differently:

Dim security As Integer
Dim user As String
 
user = Environ("USERNAME")
Me.txtUser = user
Me.txtUsername = Nz(DLookup("UserName", "User", "[UserName]='" & user & "'"), "")
security = Nz(DLookup("UserSecurity", "User", "[UserLogin]='" & user & "'"), 0)
 
Dim security As Integer
Dim user As String
 
user = Environ("USERNAME")
Me.txtUser = user
Me.txtUsername = Nz(DLookup("UserName", "User", "[UserName]='" & user & "'"), "")
security = Nz(DLookup("UserSecurity", "User", "[UserLogin]='" & user & "'"), 0)
 
' Hide Everything First
Me.Command175.Visible = False
 
Select Case security
    Case 1
        Me.Command175.Visible = True
    Case Else
        MsgBox "No User Security set up for this user. Please contact the Admin.", vbOKOnly, "Login Info"
End Select

[mrijet]

Thanks for replying..@jforbes

The problem that happen to me was...as you know..my table field for user has been set which Admin as 1 and User as 2....The problem in my coding...it cannot lookup the Admin as 1...they insist to as User = 2...eventhough I put it as Admin, it still go to User which is no = 2....