[Resolvido]Poderiam me ajudar com o codigo abaixo?

Preciso que antes de ir para um novo registro ele seja validado.

Private Sub Comando79_Click()

If Me.Resultado_Chamada = Null Or Me.Resultado_Chamada = "" Then
MsgBox "campo de preenchimento obrigatório (Resultado Chamada)."
DoCmd.CancelEvent
DoCmd.GoToRecord , , Me.Resultado_Chamada
Else

If Me.Resultado_Chamada = "Não venda" And Me.Motivo_chamada = "" Or Me.Motivo_chamada = Null Then
MsgBox "campo de preenchimento obrigatório (Motivo Chamada)."
DoCmd.CancelEvent
DoCmd.GoToRecord , , Me.Motivo_chamada

Else
If Me.Resultado_Chamada = "Venda" And Me.Venda_Produto = "" Or Me.Venda_Produto = Null Then
MsgBox "campo de preenchimento obrigatório (Venda Produto)."
DoCmd.CancelEvent
DoCmd.GoToRecord , , Me.Venda_Produto
Else
If Me.Venda_Produto <> "" And Me.Venda_Mix = "" Or Me.Venda_Mix = Null Then
MsgBox "campo de preenchimento obrigatório (Venda Plano)."
DoCmd.CancelEvent
DoCmd.GoToRecord , , Me.Venda_Mix

Else
DoCmd.RunCommand acCmdRecordsGoToNew

End If
End If
End If
End If
End Sub

Conseguir desta forma, entretanto ainda não está como eu quero!

O primeiro If funciona bem porem as outras duas condicionais com referência de texto não funciona, poderiam me ajudar?

Private Sub Comando79_Click()



If IsNull(Me.Resultado_Chamada) Or Me.Resultado_Chamada.Value = "" Then
MsgBox "campo de preenchimento obrigatório (Resultado Chamada)."
DoCmd.CancelEvent
Me.Resultado_Chamada.SetFocus
Else

If Me.Resultado_Chamada = "Não venda" And Me.Motivo_chamada.Value = "" Or IsNull(Me.Motivo_chamada) Then
MsgBox "campo de preenchimento obrigatório (Motivo Chamada)."
DoCmd.CancelEvent
Me.Motivo_chamada.SetFocus

Else
If Me.Resultado_Chamada = "Venda" And Me.Venda_Produto.Value = "" Or IsNull(Me.Venda_Produto) Then
MsgBox "campo de preenchimento obrigatório (Venda Produto)."
DoCmd.CancelEvent
Me.Venda_Produto.SetFocus
Else
If Me.Venda_Produto <> "" And Me.Venda_Mix.Value = "" Or IsNull(Me.Venda_Mix) Then
MsgBox "campo de preenchimento obrigatório (Venda Plano)."
DoCmd.CancelEvent
Me.Venda_Mix.SetFocus

Else
DoCmd.RunCommand acCmdRecordsGoToNew

End If
End If
End If
End If
End Sub

Conseguir resolver:

Private Sub Comando79_Click()
'Validação de Dados Obrigatorios
If IsNull(Me.DDD) Or Me.DDD.Value = "" Then
MsgBox "campo de preenchimento obrigatório (DDD)."
DoCmd.CancelEvent
Me.DDD.SetFocus
Else
If IsNull(Me.Telefone) Or Me.Telefone.Value = "" Then
MsgBox "campo de preenchimento obrigatório (Telefone)."
DoCmd.CancelEvent
Me.Telefone.SetFocus
Else
'Fim


'Validação Campo Resultado Chamada
If IsNull(Me.Resultado_Chamada) Or Me.Resultado_Chamada.Value = "" Then
MsgBox "campo de preenchimento obrigatório (Resultado Chamada)."
DoCmd.CancelEvent
Me.Resultado_Chamada.SetFocus
Else
'Fim

'validação do Campo Resultado Chamada (Motivo não venda)

If Me.Resultado_Chamada.Value = "Não venda" And IsNull(Me.Motivo_chamada) Or Me.Motivo_chamada.Value = "" Then
MsgBox "campo de preenchimento obrigatório (Motivo Chamada)."
DoCmd.CancelEvent
Me.Motivo_chamada.SetFocus
Else
'Fim

'validação do Campo Resultado Chamada (venda)
If Me.Resultado_Chamada.Value = "Venda" And IsNull(Me.Venda_Produto) Or Me.Venda_Produto.Value = "" Then
MsgBox "campo de preenchimento obrigatório (Venda Produto)."
DoCmd.CancelEvent
Me.Venda_Produto.SetFocus
Else
'Fim
'validação do Campo Resultado Chamada (venda Produto)
If Me.Venda_Produto.Value <> "" And IsNull(Me.Venda_Mix) Or Me.Venda_Mix.Value = "" Then
MsgBox "campo de preenchimento obrigatório (Venda Plano)."
DoCmd.CancelEvent
Me.Venda_Mix.SetFocus
Else
'Fim

'Ir Para novo Registro
DoCmd.RunCommand acCmdRecordsGoToNew
'Fim
End If
End If
End If
End If
End If
End If
End Sub

.