Forum - Σφάλμα σε κώδικα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Σφάλμα σε κώδικα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3991-sfalma-se-kodika.html)

Σφάλμα σε κώδικα

Καλησπέρα και Καλή Χρονιά σε όλους! Για ακόμη μια φορά θα ήθελα την βοήθεία σας.Με τον παρακάτω κώδικα ουσιαστικά διαχωρίζω τι μπορούν οι διαφοροι χρήστες στη βάση μου, ομως μου βγάζει 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

Ευχαριστώ!

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

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