的MS Access VBA查阅函数错误

问题描述：

我已经创建了几个功能，以确定在MS Access用户的权限级别。我有一个包含以下字段的表称为tblEmployees：（名字，姓氏，电子邮件，角色，登录，PermissionLevel）。的MS Access VBA查阅函数错误

我创造了这个功能，确定了“登录”（每次都正常工作）：

Option Compare Database Public intPermissionLevel As Integer 

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

我已经然后创建了这个功能来查找使用“登录”提供的值的权限级别字段由上面的getUserName函数。正确的值传递到“LookupPermissionLevel”功能，但是我每次收到下面的错误。（ct627是我的用户名，它是包含在tblEmployees）

“您所输入的查询参数的表达产生这样的错误：‘ct627’”

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

End Function

再添'''getusername –

后，我试图getUserName前添加一个单引号，getUserName后和之前和之后getUserName。我也用双引号尝试过所有组合。这些都没有奏效。 – Chuck0185

答

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

再添“getusername之前;-) – PhilS

我试着getUserName前添加一个单引号，getUserName后和之前和之后getUserName。我也用双引号尝试过所有组合。这些都没有奏效。 – Chuck0185

答

我想你实际上是都是正确的。谢谢！这正是我需要做的：

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

的MS Access VBA查阅函数错误

相关推荐