[Msoft Access] DLookup運行代碼出錯

我遇到了Microsoft訪問我編寫的代碼以查找ADMINSTRATOR TABLE中的用戶類型字段的問題。它無法運行，因爲語法錯誤3075缺少表達式查詢表達式'USER TYPE'中的運算符 它用於我的登錄菜單，以區分兩種不同的用戶類型並將它們帶到不同的表單中。[Msoft Access] DLookup運行代碼出錯

代碼工作之前，我實現了用戶安全代碼

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

來源

2017-05-13 MATU

字段名稱和含有空格或特殊字符（設計選擇不當）表名需要用方括號包圍。

來源

2017-05-13 20:27:23 AVG

[Msoft Access] DLookup運行代碼出錯

回答

相關問題