Question

我有一个问题，微软访问我编写的代码来查找ADMINSTRATOR TABLE中的USER TYPE字段。由于语法错误3075在查询表达式中缺少表达式运算符，因此无法运行＃39;用户类型＆＃39; 它用于我的登录菜单，以区分两种不同的用户类型，并将它们带到不同的形式。

在我实现用户安全代码

之前，代码正常工作

Dim UserLevel As Integer 
UserLevel = DLookup("USER TYPE", "ADMINSTRATOR TABLE", "USER ID = '" & Me.txtLoginID & "'")

这是我的代码：

 Private Sub Command1_Click()
    Dim UserLevel As Integer

    If IsNull(Me.txtLoginID) Then
        MsgBox "Please enter Login ID", vbInformation, "Login ID Required"
        Me.txtLoginID.SetFocus
    ElseIf IsNull(Me.txtPassword) Then
        MsgBox "Please enter Password", vbInformation, "Password Required"
        Me.txtPassword.SetFocus
    Else
    If (IsNull(DLookup("[User ID]", "ADMINSTRATOR TABLE", "[User ID]='" & Me.txtLoginID.Value & "' And Password = '" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Incorrect Password or Login ID", vbInformation, "Login unsuccessful"
        Else
        UserLevel = DLookup("USER TYPE", "ADMINSTRATOR TABLE", "USER ID = '" & Me.txtLoginID & "'")
           DoCmd.Close
            If UserLevel = 1 Then
             MsgBox "Login Success", vbInformation, "Login Success"
             DoCmd.OpenForm "MAIN MENU"
           Else
           MsgBox "Login Success", vbInformation, "Login Success"
           DoCmd.OpenForm "ADMINISTRATOR FORM"
    End If
    End If
    End If
    End Sub

Answer 1

包含空格或特殊字符的字段名称和表名（设计选择不佳）需要用方括号括起来。

[Msoft Access]运行DLookup

1 个答案: