Criando um Botão Cancelar

olá, pessoal em meu BD, já Criei vários botões que estão ok.
Acontece o seguinte gostaria de implementar um botão de cancelar. ou seja quando clico em novo ou alterar tivesse a opção de cancelar esse registro.

OBS: no meu Botão salvar já esta para perguntar se é para salvar ou não. mas no caso preciso é de um de cancelar.

Agradeço ajuda

Olá! Faça uma pesquisa por "cancelar registro" no fórum. Há alguns tópicos sobre o assunto.

Na minha assinatura ali ↓embaixo↓ tem link para um vídeo com dicas de pesquisas mais eficientes no fórum.

Boa tarde,

Veja se isso serve?? (não testado)

Private Sub SeuBotãoSalvar_Click()
If MsgBox("Deseja salvar registo?", vbYesNoCancel, "Info") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
End If
If MsgBox("Deseja salvar registo?", vbYesNoCancel, "Info") = vbNo Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If MsgBox("Deseja salvar registo?", vbYesNoCancel, "Info") = vbCancel Then
DoCmd.RunCommand acCmdUndo
End If
End Sub

Abraço...

Pessoal estou usando esse comando
Dim strMsg As String
Dim iResponse As Integer

' Especifica a mensagem a ser apresentada.
strMsg = "Deseja salvar as alterações" & Chr(10)
strMsg = strMsg & "Clique Sim para salvar ou Não para ignorar."

' Mostra a caixa de mensagem.
iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Salvar registro?")

Mas quando clico em não ele retorno "erro 2046 o comando ou ação Desfazer não esta disponivel"

Alguém pode ajudar

Olá!

A mensagem de erro está aparecendo provavelmente por que o registro que você estava cadastrando já está salvo na tabela destino.

Quando você inicia o cadastro de um novo registro, nele não salva imediatamente na tabela o novo registro que ainda está sendo editado, mas após ele salvar o registro na tabela, o comando DoCmd.RunCommand acCmdUndo, ou Me.Undo, não irão funcionar. O máximo que eles farão é desfazer a última alteração feita no registro.

No módulo opções do Access, opção Configurações do Cliente, há uma opção chamada Intervalo de atualização. Com esta opção, você pode determinar em quanto tempo o Access fará uma tentativa de atualização automática na base de dados. 60 é tempo padrão (1 min). Você pode mexer aí se desejar mas, o ideal mesmo é tratar este problema através de uma solução lógica.

Há algumas formas de você contornar esse probleminha e o mais rápido é esse:

Private Sub Cancel_Click()

If MsgBox("Você deseja cancelar o registro?",vbQuestion + vbYesNo,"Cancelar") = vbYes then
      ' O comando Me.Refresh atualiza o formulário e por consequência, o record que você iniciou o cadastro.
      ' Ou você pode usar também o comando DoCmd.RefreshRecord
      Me.Refresh
      ' O comando abaixo irá deletar o registro que deseja cancelar
      DoCmd.RunCommand acCmdDeleteRecord
      ' O comando abaixo deixa o formulário em branco, em ponto de bala para um novo registro.
      DoCmd.GoToRecord , , acNewRec
End If

End Sub

Como eu disse acima, esta é uma opção e é a mais simples. Se não lhe atender, vai tentando outras formas.

Abraços.

Gostaria de aproveitar o tópico.

Digamos que eu digitei sem querer na hora da edição, teria como fazer um comando para quando a pessoa digitar algo. Usar o evento ao tirar o foco volte para o dado que estava registrado a menos a pessoa deseja salvar?

obrigado,