Ανανέωση ιστοσελίδας

[Dimitriss]

Καλησπέρα και Καλή Χρονιά σε όλους! Για ακόμη μια φορά θα ήθελα την βοήθεία σας.Με τον παρακάτω κώδικα ουσιαστικά διαχωρίζω τι μπορούν οι διαφοροι χρήστες στη βάση μου, ομως μου βγάζει error 94 στο DLookup("UserSecurity", "tblUser", "[UserID]=" & InfoUser). Που κάνω λάθος;

Private Sub Insert_Click()
Dim InfoUser As String
Dim SecLevel As String
        InfoUser = Forms![MainMenu]![Level]
        SecLevel = DLookup("UserSecurity", "tblUser", "[UserID]=" & InfoUser)

     If SecLevel = 1 Then
        DoCmd.Close acForm, "MainMenu", acSaveNo
        DoCmd.OpenForm "InsertMenu"
        DoCmd.Maximize
        Forms![InsertMenu]![Level] = InfoUser
        Exit Sub
    ElseIf SecLevel = 2 Then
        DoCmd.Close acForm, "MainMenu", acSaveNo
        DoCmd.OpenForm "InsertMenu"
        DoCmd.Maximize
        Forms![InsertMenu]![Level] = InfoUser
        Exit Sub
    ElseIf SecLevel = 3 Then
        MsgBox "Access denaid!", vbOKOnly, "MS Office"
        Exit Sub
    Else
        MsgBox "Application shut Down!", vbCritical, "MS Office"
        Application.Quit
        Exit Sub
    End If
    
End Sub

Ευχαριστώ!

[nasos23]

Καλημέρα σε όλους
Δημήτρη εάν το UserID στον πίνακα είναι σε μορφή κειμένου δοκίμασε:
SecLevel = DLookup("UserSecurity", "tblUser","[UserID]='" & InfoUser & "'")

[Dimitriss]

Νάσο σε ευχαριστώ για την απάντησή σου. Ηταν κι αυτό μέρος του προβλήματος. Με μια άλλη αλλαγή και την παρατηρησή σου βρέθηκε λύση. Να σαι καλά!