opa pessoal to com um Codigo pra Incluir ta blz ,mas quando eu Clico no Botao Incluir e na Msgbox coloco Nao  , e mexo nos botoes de navegacao <<  <  > >> , o registro é incluido mesmo assim

  If MsgBox("Continuar?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
    MsgBox "Sim"
  Else
    MsgBox "Não"
  End If

mas ficaria a mensagem de inclusao + essa?

naun resolveu irmao

If MsgBox("Incluir?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
    'comando para incluir
  Else
    'comandos para cancelar inclusão
End If

deste jeito ja esta irmao , so q estou usando tipo um botao de navegacao deste tipo , ponho num modulo

Public Sub Primeiro(botao As Recordset)
On Error GoTo TRATAERRO
botao.MoveMin
If botao.BOF Then botao.MoveMin
TRATAERRO:
If err.Number = 3021 Then
    MsgBox ("Não há nada Cadastrado"), vbCritical, "Erro"
'Else
'    MsgBox ("Erro Desconhcido, entre em contato com o Programador"), vbCritical, Err.Number
End If
End Sub

 

e depois eu ponho assim no botao no form "Primeiro rsarea "

 

e tipo esse é meu botao incluir

 

If MsgBox("Você Deseja Incluir esses Registros?", vbQuestion + vbYesNo + vbDefaultButton1, "|||| Areas Incluir ||||") = vbYes Then
  rsarea.Update
    Else
        Exit Sub
  End If
   MsgBox "A Nova Area foi Incluida com Sucesso!", vbInformation, "|||| Areas Incluir ||||"
 

mas quando eu aperto o botao incluir mas escolho Nao , ele naun inclui como deveria ser ne , mas se eu logo depois de dizer que Nao mas aperto esse botao de navegacao , o registro é incluido por ainda estar escrito nas txts e naun foram limpados, entendeu