[Resolvido]Mensagem, Else sem If ??? não faz sentido

Salve galera,
fico grato a quem me ajudar.

Vejam este código, está aparecendo uma mensagem de erro Else sem If, mas o if ta lá

tem uma imagem em anexo explicando, por favor vejam.

Código:

Private Sub Data_pagamento_AfterUpdate()
If Month(Me.Data_pagamento) <> Month(Me.Data_vencimento) Or Year(Me.Data_pagamento) <> Year(Me.Data_vencimento) Then
    If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
        Me.Parent.CONTRATOS![Prox_Pagamento] = Null
    Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
Else
    If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
        Me.Parent.CONTRATOS![Prox_Pagamento] = Null
    Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
End If
End Sub

Olá ifdelai,

Amigo, logo de cara podemos ver a falta do End If no seu código. Tire esses ":" após o Else. De onde você tirou esses dois pontos? Estude a formação desta condicional   IF  THEN... (ELSEIF).... ELSE... END IF.


Private Sub Data_pagamento_AfterUpdate()

If Month(Me.Data_pagamento) <> Month(Me.Data_vencimento) Or Year(Me.Data_pagamento) <> Year(Me.Data_vencimento) Then    
 
  If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then        
  Me.Parent.CONTRATOS![Prox_Pagamento] = Null    
  Else
  Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
  End If

ElseIf Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then        
Me.Parent.CONTRATOS![Prox_Pagamento] = Null    

Else
Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")End If

End If

End Sub

Olá,
Adicionei os End If como solicitado e agora parece que está ok.

Não havia colocado antes pois o código funcionava normalmente sem eles.
talvez porque não haviam mais if's no código, que eu adicionei agora.

com relaçao aos 2 pontos, sinceramente não sei porque estão ai, pois venho aperfeiçoando o código
a algum tempo, e provavelmente eu devo ter tido um motivo para deixa-los baseado em ajuda
de outros usuários.

ainda com relação aos 2 pontos, eles não tem alguma relação com esta parte do código
estar fazendo referencia a campos que estão em um sub-formulário ou vice versa?

Obrigado

Segue cod modificado e ainda funcionando com os 2 pontos.

Código:

If Month(Me.Data_pagamento) <> Month(Me.Data_vencimento) Or Year(Me.Data_pagamento) <> Year(Me.Data_vencimento) Then
    If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
        Me.Parent.CONTRATOS![Prox_Pagamento] = Null
    Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
    End If
Else
    If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
        Me.Parent.CONTRATOS![Prox_Pagamento] = Null
    Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
    End If
End If
End Sub

Olá amigo,

Não conheço essa forma de codificar com dois pontos após o Else, mas se depura normalmente... Por favor, dê como resolvido o tópico.

Um abs.

Ok.

Problema resolvido, vou abrir outro tópico sobre esta questão.

desde já muito obrigado pelo axilio.

Sucesso.