[Resolvido]Erro de Compilação Else sem IF

Private Sub Dt_Descarga_Dirty(Cancel As Integer)
If IsNull(Cliente_Contratante) = True Then
'Menssagem
MsgBox "O Contratante:" & vbCrLf & "É de Preenchimento Obrigatório", vbOKOnly + vbExclamation, "Atenção!"
Me.BtPesquisar.SetFocus
Else
Me.Dt_Descarga.SetFocus
ElseIf IsNull(Dt_Carregamento) = True Then
MsgBox "Informe: A data do Carregamento", vbOKOnly + vbExclamation, "Atenção!"
Me.Dt_Carregamento.SetFocus
Else
Me.Qt_Carregamento.SetFocus
End If
End Sub

onde estou errando

Os Elses solitários na linha estão causando o problema. A estrutura do If é:

CORRETO

If...
ElseIf...
ElseIf...
Else... ' pode ter ou não dependendo da situação, mas sempre na última condição.
End If

ERRADO:

If...
ElseIf...
Else
ElseIf...
End If

A logica para a utilização do If é a seguinte:

IF xxxxxx Then
blablabla
ElseIf xxxxx Then
blablabla
ElseIf xxxx Then
blablabla
Else
blablabla
End If


Executar uma rotina caso seja verdadeira Executa a rotina, caso contrario (Else) executa a outra.


Para mais condiçoes utiliza-se o ElseIf...

O else somente se nenhuma das opçoes forem satisfeitas, portanto so utiliza um else por If.


No seu caso tem dois.


Cumprimentos.

Código:

If IsNull(Cliente_Contratante) Then
    'Menssagem
    MsgBox "O Contratante:" & vbCrLf & "É de Preenchimento Obrigatório", vbOKOnly + vbExclamation, "Atenção!"
    Me.BtPesquisar.SetFocus
Else
    Me.Dt_Descarga.SetFocus
ElseIf IsNull(Dt_Carregamento) Then
    MsgBox "Informe: A data do Carregamento", vbOKOnly + vbExclamation, "Atenção!"
    Me.Dt_Carregamento.SetFocus
Else
    Me.Qt_Carregamento.SetFocus
End If

Não pode usar um ElseIf logo após o Else referente ao mesmo If.

Fazendo a indentação do código, facilita a visualização.

Obrigado a todos.

É possível ter Elses separados quando se tem uma subestrutura If, ou seja, um bloco If dento de outro:

Código:

If ... Then
    ...
ElseIf ... Then
    If ... then
        ...
    Else
        ...
    End If
Else
    ....
End If