Question

我创建了几个函数来确定MS Access中用户的权限级别。我有一个名为tblEmployees的表，其中包含以下字段：（FirstName，LastName，Email，Role，Login，PermissionLevel）。

我已创建此功能以确定＆＃34;登录＆＃34; （每次都很好）：

Option Compare Database Public intPermissionLevel As Integer

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

然后我创建了这个函数，使用为＆＃34; Login＆＃34;提供的值来查找权限级别。上面的getUserName函数的字段。正确的值被传递到＆＃34; LookupPermissionLevel＆＃34;功能，但每次都会出现以下错误。（ct627是我的用户名，它包含在tblEmployees中）

＆＃34;您作为查询参数输入的表达式产生了此错误：＆＃39; ct627＆＃39;＆＃34;

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 & "'")

MS Access VBA DLookup功能错误

2 个答案: