如果在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

刪除結束條件。 在這里或這里看看語法

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