Microsoft access database 2007 2010编码错误=编译错误:“;如果没有“如果”块,则结束;

Microsoft access database 2007 2010编码错误=编译错误:“;如果没有“如果”块,则结束;,database,ms-access,Database,Ms Access,这是我在登录屏幕上使用的代码,用于使用youtube链接登录Button,但我面临着困难。第一行以黄色突出显示,这可能表明它有问题: Private Sub Command9_Click() If IsNull(Me.TxtUsername) Then MsgBox "Please enter Username", vbInformation, "Username required" Me.TxtUsername.SetFocus ElseIf IsNull(Me.txtPasswo

这是我在登录屏幕上使用的代码,用于使用youtube链接登录Button,但我面临着困难。第一行以黄色突出显示,这可能表明它有问题:

Private Sub Command9_Click()
If IsNull(Me.TxtUsername) Then
   MsgBox "Please enter Username", vbInformation, "Username required"
   Me.TxtUsername.SetFocus
ElseIf IsNull(Me.txtPassword) Then
   MsgBox "Please enter Password", vbInformation, "Password required"
   Me.txtPassword.SetFocus
Else
   'process the job

   If (IsNull(DLookup("[Username]", "User details", "[Username] ='" & Me.TxtUsername.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Incorrect Username or Password"
   Else
        DoCmd.Close

        End If
   End If
End If
End Sub

您有3个结束条件,但只有2个条件。 卸下其中一个端部