База данных Microsoft Access 2007 2010 ошибка кодирования = ошибка компиляции: «end if without block if»

Question

Это код, который я использую для моего экрана входа в систему, для входа в систему buttton, используя ссылку с youtube, но я столкнулся с трудностями. Первая строка выделена желтым цветом, который может предполагать, что существует проблема с этим:

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 

Answer 1

У вас есть 3 EndIfs, но только 2 IFS. Удалите один из эндифов.