[Resolvido]Voltar sem salvar informações nas tabelas

Fala pessoal. Minha dúvida é simples. Quero fazer um botão que volte de um formulário para outro formulário "menu principal" do meu BD sem salvar as informações que por um acaso o usuário esteja digitando. Já tentei alguns códigos, mas sem sucesso.

DoCmd.RunCommand acCmdUndo
DoCmd.Close

Esse funciona um tempo, e depois começa a dar mensagem de erro.

Alguém pode me ajudar?

JVRA

Se não quer mesmo salvar, veja a dica do JPaulo e adpate;

http://maximoaccess.forumeiros.com/t7651-so-salva-se-quiser

Boa noite colega Jvra. Veja o exemplo abaixo. Havendo adição ou alteração e no botão salvar o codigo pede para salvar ou não e se não quer salvar ou alterou e esqueceu de salvar ao clicar no botão fechar o codigo informa que houve alteração e pede para salvar ou não.

http://speedy.sh/aeK2R/Exemplo.rar

Obs: retorne para sabermos se é isso que procura ou não e se for click no resolvido.

Galera, valeu pelas opções enviadas, tentei implementá-las mas não consegui. Enfim, fuçando na internet acabei achando o código abaixo. Achei ele interessante, pois pergunta se queres salvar o registro ou não. O problema que percebi nele, é quando vc clica em sim, salvar, ele não volta pro formulário do comando, permanece no formulário atual, exibindo as informações que vc salvou.
Sou iniciante no access e não sei muito bem editar códigos. Alguém se disporia a editá-lo de forma a sanar esse probleminha. Ou seja, clicando em sim ele salva e vai para o outro formulário. O clicando em não tá ok. Ele sai, vai para o outro formulário, fecha e não salva.
segue o código:

Private Sub Comando34_Click()
If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70
DoCmd.Close
Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If

End Sub

Desde já agradeço.

JVRA.

Ben Hur

Creio que por esse caminho não irá conseguir, pois o formulário está vinculado a tabela ou consulta.
Então, se você mudar de registro,fechar ou sair do formulário, o registro é salvo automaticamente.
Chegou a hora de ser programador.
Para manipular dados em um formulário sem que seja refletido na tabela, devemos fazer um formulário desvinculado da tabela e usar código para quando for salvar ou não.
Como já tem o formulário, desvincule todos os controles dele, eles ficarão não acoplado.
Procure no repositório por formulário não acoplado, que você terá exemplos e verá que não é um bicho cabeludo e feio
Qualquer dúvida, retorne.

Abraços

Valeu meu caro! Vou tentar sua dica, mas antes, o código que postei acima começou a apresentar o seguinte problema: ERRO EM TEMPO DE EXECUÇÃO '2046'. O COMANDO OU A AÇÃO 'DESFAZER' NÃO ESTÁ DISPONÍVEL AGORA.

Estava funcionando legal, agora começou isso. Alguém saberia dizer o que é?

Ele também pede para depurar..

JVRA.

Ben Hur

Primeiro - Esses comandos que você está usando é do antigo Access 95 - versão 7.0.
No Access 97 - Versão 8 - foi criado o Docmd.RunCommand para executar comandos do menu em substituição a esses que você está usando.
Então esses comandos antigos foram mantidos somente para manter a compatibilidade entre as versões.

Portanto: Se ainda quiser continuar a usar esse código, substitua as linhas em marron para as linhas em verde:
=============================
Private Sub Comando34_Click()
If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70
Docmd.RunCommand acCmdUndo

DoCmd.Close
Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Docmd.RunCommand acCmdSaveRecord
End If

End Sub
======================

Segundo -Quanto ao método Undo, nunca o usei, pois nunca confiei nesse comando, posso estar errado, mas prefiro fazer isso através de código.

Abraços

Pois então Balém, como havia dito num post acima, não havia problema com a opção não.
O problema é com a opção sim, que estava salvando, mas não voltava para o formulário de menu. Dai bolei o seguinte código:

Private Sub Comando34_Click()
If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
DoCmd.RunCommand acCmdUndo
DoCmd.Close
Else
If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbYes Then
DoCmd.RunCommand acCmdUndo
DoCmd.Close
End If
End If

End Sub

Obviamente não está salvando, mas está voltando. Creio eu que seria necessário, substituir o comando que está em verde, por um de salvar.
Tem alguma ideia?

Att,

JVRA.

Aew galera, to chegando lá! Ele já salva e volta, utilizei o save. Mas estou tendo que apertar duas vezes o botão sim.
Alguma dica?

JVRA.

Boa noite colega jvra. Você testou o exemplo que lhe passei??? Poderia comentar por gentileza.....

Olá cafpr, testei sim.. achei execelente solução elaborada por vc, mas já tinha adotado outra solução, na qual ao voltar no meio do cadastro incompleto de um registro, ou seja, sem salvar, o código pergunta se vc quer salvar ou não. De qualquer forma, muito obrigado pela ajuda.

Usei o seguinte código

Private Sub Comando34_Click()
If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
Docmd.RunCommand acCmdUndo

DoCmd.Close
Else

Docmd.RunCommand acCmdSaveRecord
DoCmd.Close
End If

End Sub

Apenas acrescentei a linha "DoCmd.Close" que está em verde no código.

Veja se também funciona contigo... abraços