Если в доступе VBA

Question

Привет, ребята, у меня проблемы со следующим кодом:

Private Sub btnRegistrar_Click()


    If IsNull(txtNumeroActa) Then
        MsgBox "Ingresar Número de Acta"
        Me.txtNumeroActa.SetFocus
    End If
    ElseIf IsNull(txtNumeroActa) Then
        MsgBox "Ingresar NIT"
        Me.txtNumeroActa.SetFocus
    End If
    ElseIf IsNull(txtNumeroActa) And IsNull(txtNumeroActa) Then
        MsgBox "Ingresar Número de Acta y NIT"
        Me.txtNumeroActa.SetFocus
        Me.txtNumeroActa.SetFocus
    End If

End Sub

Когда я запускаю его, появляется сообщение об ошибке: «Иначе без Если есть какие-либо идеи о том, что я могу проверить или изменить?»

Спасибо за внимание.

Answer 1

Удалить End Ifs. Посмотрите на синтаксис, может быть здесь или здесь

If IsNull(txtNumeroActa) Then
    MsgBox "Ingresar Número de Acta"
    Me.txtNumeroActa.SetFocus
ElseIf IsNull(txtNumeroActa) Then
    MsgBox "Ingresar NIT"
    Me.txtNumeroActa.SetFocus
ElseIf IsNull(txtNumeroActa) And IsNull(txtNumeroActa) Then
    MsgBox "Ingresar Número de Acta y NIT"
    Me.txtNumeroActa.SetFocus
    Me.txtNumeroActa.SetFocus
End If