MS Zugriff VBA DLookup Funktion Fehler

Question

Ich habe ein paar Funktionen erstellt, um die Berechtigungsstufe eines Benutzers in MS Access zu bestimmen. Ich habe eine Tabelle namens tblEmployees, die die folgenden Felder enthält: (Vorname, Nachname, E-Mail, Rolle, Login, PermissionLevel).

Ich habe diese Funktion geschaffen, um die „Login“ (das funktioniert gut jedes Mal), um zu bestimmen:

Option Compare Database Public intPermissionLevel As Integer 

Public Function getUserName() As String 
    getUserName = Environ("USERNAME") 
End Function 

Ich habe dann diese Funktion erstellt die Berechtigungsstufe mit dem Wert für die „Login“ geliefert Nachschlag Feld durch die Funktion getUserName oben. Der richtige Wert wird in die Funktion "LookupPermissionLevel" übergeben, jedoch bekomme ich jedes Mal den folgenden Fehler. (Ct627 ist mein Benutzername und es ist in den tblPersonal enthalten)

„Der Ausdruck, den Sie als Abfrageparameter eingegeben diesen Fehler erzeugt hat:‚ct627‘“

Public Function LookUpPermissionLevel(getUserName As String) As Integer   
     intPermissionLevel = DLookup("PermissionLevel", "tblEmployees", "Login =" & getUserName) 

End Function 

Answer 1

Public Function LookUpPermissionLevel(getUserName As String) As Integer   
     intPermissionLevel = DLookup("PermissionLevel", "tblEmployees", "Login ='" & getUserName & "'") 
LookUpPermissionLevel=intPermissionLevel 
End Function 

Answer 2

Ich glaube, Sie waren wirklich beide richtig. Vielen Dank! Das war, was ich tun musste:

intPermissionLevel = DLookup("[PermissionLevel]", "tblEmployees", "[Login]='" & getUserName & "'")