Função undo em um subformulario

Boa Tarde!!!

Tenho um formulário que possui 2 subformulários.

Estou usando o código abaixo que cancela as alterações que fiz no formulário principal, mais não as feitas nos subformulários.
Como posso resolver isto?

Private Sub btCancelar_Click()

   With CodeContextObject
           If (.Form.Dirty) Then
           DoCmd.RunCommand acCmdUndo
   End If

   End With
   

Dese já agradeço a ajuda.

Olá braine,

Existe algum relacionamento entre as tabelas de um e de outro, algum vínculo relacional entre campos código? Caso contrário, não funcionará.

Existe.

Olá braine,

Deixe-me dar uma olhada, posta por favor um exemplo de seu bd.

Abra "Empenhos Consultas" , selecione o "Pregão", clique em qualquer empenho abaixo.
Abre o "formempenhoentregue"
Altere o arquivo e tente desfazer as alterações.

Olá braine,

Corrigi seus relacionamentos. Não havia lógica neles. Todo bom relacionamento precisa ter integridade referencial. O que precisa aparecer para cada registro da tabela principal na tabela secundária. Veja se está funfando agora.

Agradeço, mais continua com o mesmo problema. O que faço no formulario principal quando aperto em "cancelar" só cancela o feito no formulario principal e não as alterações do subformulário.

Olá braine,

Veja se te atende:

Corrigi os relacionamentos, o 1º subformulário "histórico" está funcionando corretamente, posso alterar que ele cancela a alteração.
Mais o 2º subformulário "Itens" não cancela as alterações. Se puder dar mais uma olhada, segue o banco corrigido.

Olá braine,

O VBA funcionou ou o que? Como está desfazendo?

E que notei e que quando já a algum lançamento no subformulário "historico" e faço alguma alteração ele exclui os dados se forem da 1º linha, da 2º linha em diante não exclui.
E o subformulário "Itens" não acontece nada a alteração permanece.

Faça o teste no ultimo banco de dados que postei

Olá braine,

Veja se atende. Fiz algumas alterações no código porque não tinha reparado que o campo empenho permite duplicação, sendo assim utilizei um campo com duplicação não autorizada como referência para localizar o registro correto e apagar os dados, desfazendo somente as alterações feitas naquele registro específico.

Agradeço, mais seu código e para apagar os campos, não e para desfazer as alterações.

Entre no Formulário "Fornecedores" faça alterações no registro e click em "cancelar", e essa ação que preciso.

Pensei na seguinte opção, colocar um botão no subformulário que ao acionar o botão "cancelar" no formulário principal fosse acionado. mas não sei como faze-lo.

Olá braine,

Entendi. Mas não consigo vislumbrar um meio de resolver a situação a não ser que vc faça o seguinte:

1 - Coloque um botão "Desfazer" em cada um dos formulários(subformulários no formulário principal) com o código apropriado para desfazer.

2 - No botão "Cancelar", ao clicar abra em Pop-up os dois formulários e clique no botão "Desfazer" de cada um deles.


Já tentei de outras maneiras, mas não tive êxito. Espero que ajude. Mas em uma última tentativa faça assim:


Código do Form_Unload do formulário principal:

DoCmd.RunCommand acCmdUndo

Código do botão Cancelar do formulário principal:

DoCmd.Close acForm,"NomedoFormulárioPrincipal",acSaveYes
DoCmd.Openform "NomedoFormulárioPrincipal"

Vou continuar pesquisando.