[Resolvido]Botão salvar com função Se

Pessoal boa tarde.

Estou com uma dúvida.
Na verdade não sei como fazer o comando.

Criei um formulário e um campo chamado "resposta".
esse campo avalia se o valor pago é >= ao valor devido.
Se verdadeiro: 1
Senão: 0
Ok até ai deu certo.

Criei o botão de salvar e ok.

E também criei o comando junto para copiar os dados deste que estava utilizando.
Tb deu certo. como esta abaixo:

Private Sub Comando232_Click()


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "CAD_PAC_EXAMES"
On Error GoTo Err_Comando232_Click


DoCmd.GoToRecord , , acNewRec
Forms!CAD_PAC_EXAMES.EmpFantasia = Me.EmpFantasia
Forms!CAD_PAC_EXAMES.COD = Me.[COD]
Forms!CAD_PAC_EXAMES.DtNacimento = Me.[Nome].Column(3)
Forms!CAD_PAC_EXAMES.Codprof = Me.[Codprof]
Forms!CAD_PAC_EXAMES.Exame = Me.Codprof.Column(3)
Forms!CAD_PAC_EXAMES.Experiodico = Me.Codprof.Column(4)
Forms!CAD_PAC_EXAMES.ExDemissional = Me.Codprof.Column(5)
Forms!CAD_PAC_EXAMES.RiscoEsp = Me.Codprof.Column(7)

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando232_Click:
Exit Sub

Err_Comando232_Click:
MsgBox Err.Description
Resume Exit_Comando232_Click

End Sub

O que gostaria de fazer é:

Caso o valor da resposta fosse falso "0" ele executa-se o comando acima;
Senão ele só salva-se.

como posso fazer esse Seimed dentro do comando.

Agradeço pela ajuda pessoal

Olá Fabio, crie uma nova instrução usando o IF sobre o resultado da sua comparação.

Código:


If Valor1 >= Valor2 Then
    'Seu Comando Para Salvar
        DoCmd.CancelEvent
            Exit Sub
Else
    'Seu Comando Para Executar
        DoCmd.CancelEvent
            Exit Sub
End If


Obrigado pessoal