MS Access VBA DLookup Function Error

Question

我创建了几个函数来确定MS Access中用户的权限级别。 我有一个名为 tblEmployees 的表，其中包含以下字段：(名字、姓氏、电子邮件、角色、登录名、权限级别(。

我创建了这个函数来确定"登录"(每次都可以正常工作(：

Option Compare Database Public intPermissionLevel As Integer
Public Function getUserName() As String  
     getUserName = Environ("USERNAME") 
End Function

然后，我创建了此函数，以使用上面的getUserName函数为"登录"字段提供的值查找权限级别。 正确的值被传递到"查找权限级别"函数中，但是我每次都收到以下错误。 (ct627 是我的用户名，包含在 tblEmployee 中(

"您作为查询参数输入的表达式产生了此错误：'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

我认为你们实际上是对的。 谢谢！ 这是我需要做的：

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