[Resolvido]Não salvar quando troco de guias.

Olá amigos,
Meu problema é o seguinte tenho um formulário com controles de guias com 2 guias: |Consultar| |Cadastrar|
Quando clico na guia cadastrar tem um botão add registro, limpar campos. Caso eu fecho o form ele gera uma pergunta se desejo salvar os dados. Até ae tudo bem, só que caso eu preencha alguma coisa e clico de volta na guia |consultar| ele salva o registro.
Queria que só salvasse se eu clicasse em add registro.
Não sei se entenderam, toda vez que clico na guia |consultar| ele salva os dados que foram preenchidos na guia |cadastro|.
Como resolvo isso??
Grato

Teste assim por favor~

Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
DoCmd.RunCommand acCmdUndo

End If

Amigo obrigado pela ajuda..
Onde coloco esse código?
Ao clicar na guia |consultar|?
Se possível eu não queria que limpasse o campo...

Ao passar de uma guia para outra, neste caso página no evento Open. Mas se não limpar os campos estes vão ser guardados por defeito pelo Access.

Não consegui, coloquei no evento ao clicar, não tem evento ao abrir na guia...
Pelo visto a solução vai ser criar forms separados ao invés de guias...
=/

Pensei que estava a utilizar um botão para abrir a guia, ao invés de usar a mudança de página. Mas mesmo na mudança de uma guia para a outra seria no evento clique. Desculpe que quando lhe respondi, estava a pensar em form > form

Fiz o que você falou, coloquei isso no evento ao clicar...mas nada aconteceu..nem a msgbox...fiz algo errado?

Private Sub Consultar_Click()
Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
DoCmd.RunCommand acCmdUndo
End Sub

Eu vou testar aqui er já lhe retorno, pois uso esse código na hora de saída do form.

Então é assim

Se houver alteração, ao clicar no botão (seja para sair, seja para mudar de guia), o código funciona mas, se não houver alteração ele não funciona, certo. Então, se não houve alteração, deixa tudo como está, se houver, pergunta se quer ou não alterar.

A segunda coisa que te,m que ter em atenção, é que o Access por defeito, guarda os dados se o utilizador não o fizer. Logo, necessitamos do Undo, para desfazer o que foi feito.

Tomei a liberdade de enviar meu projeto pro seu e-mail..
Tenta ver onde to errando..
Obrigado!

Fez bem amigo, só que está no 7 e eu não tenho aqui. Vou pedir ao Haryshon o favor de ver isto para si, ok.

Amigo Fiz o seguinte:
Na guia |Cadastrar| tenho um botão (limpar) onde eu limpo os campos...
Fiz o seguinte adicionei o comando DoCmd.RunCommand acCmdDeleteRecord até que resolveu, mas suponhamos que o usuário modifique apenas um campo...depois clique na guia |consultar|, e ao voltar a guia |cadastrar| simplesmente apagar o campo...o registro ficará salvo.

DoCmd.RunCommand acCmdDeleteRecord
Teria como eu retirar o aviso de excluir o registro?

Consegui, cabeça quente já não to pensando direito...
DoCmd.SetWarnings False

Esqueci de colocar o resolvido...Até pq como eu disse caso ele simplesmente apague ele vai estar editando o registro que foi feito e não adicionando um novo, então ficou sussa...
Obrigado pela ajuda.

O Mestre Vieira havia me encaminhado o Post.. Resolveu amigão?

Consegui sim Na guia |Cadastrar| tenho um botão (limpar) onde eu limpo os campos...
Dae eu adicionei o comando DoCmd.RunCommand acCmdDeleteRecord no botão.
Obrigado pela ajuda amigos.

O Fórum agradece o retorno. Bom trabalho.