[Resolvido]Botão salvar e cancelar formulário e subformulário

Boa tarde galera!

Eu já pesquisei de várias formas aqui no fórum mas não encontrei uma solução para o meu problema...

Fiz um formulário com um subformulário dentro. Agora quero criar 1 botão para salvar e outro para cancelar os dois formulários de uma vez.
O botão de salvar até que funciona, mas não tenho certeza se é pq ela tá salvando qualquer coisa...Até coloquei os botões no rodapé para testar se daria certo, mas não...alguém me ajuda, por favor?!

PS: não entendo bulhufas de VBA!!! Vou testando o que vou encontrando...hahaha!

Private Sub salvar_admto_Click()
   DoCmd.RunCommand acCmdSaveRecord
End Sub

Private Sub cancelar_admto_Click()
   Form.Undo
   DoCmd.Close
End Sub

knaomitk, veja se seria isto.

Em vez de código VBA criei uma consulta que exclui-se o registro do Form e SubForm.

knaomitk, Incluir comentários nos codigos para um melhor intendimento do que foi feito.

Oi bigfill! Obrigada por responder!

Fiz igual ao que você enviou, mas o botão só cancela o registro no formulário "Tabela1" e não nos dois...

knaomitk, posta seu BD aqui para ajudarmos.

Segue o arquivo do projeto!
Tem muitas coisas, mas o meu problema está no formulário 06a_ADIANTAMENTOS.

knaomitk, Segue o BD, espero que seja o isto. Sua referencia ao formulário que estava errada, mais a forma estava correta.
no botão salvar alterei o código também para criar um novo registro.

Oi bigfill!
Muito obrigada por me ajudar, mas o botão só cancela o registro do subformulário e o que eu quero fazer é que ele cancele dos dois (adiantamento e despesa....tem como fazer isso?

knaomitk, Foi o que eu fiz, testei aqui e esta correto. Veja na imagem onde esta excluindo (Circulado de verde), caso deseja excluir em outro luga também nos alteramos.

Oi Bigfill!
Aqui continua deletando somente a despesa e não o adiantamento...(mistério!)
Vou anexar o projeto que você mesmo enviou...vai que está acontecendo algum erro de versões...eu uso o office 2013...

knaomitk, entendi o que esta ocorrendo, uma coisa simples que faz toda a diferença. Mais o access e assim, uma virgula faz toda a diferença.

Note a ondem que esta o codigo abaixo.

Código:

DoCmd.SetWarnings False
DoCmd.OpenQuery "CON_CANCELA_FORADMTO", acViewNormal, acEdit
DoCmd.OpenQuery "CON_CANCELA_SUBFORADMTO", acViewNormal, acEdit
Me.Requery
DoCmd.GoToRecord , "", acNewRec
DoCmd.SetWarnings True

Para funcionar devera ficar conforme abaixo. Pois como o subformulário esta vinculado ao formulário, você não pode excluir o formulário sem ter excluído o subformulário.

Apenas a ordem de exclusão.

Código:

DoCmd.SetWarnings False
DoCmd.OpenQuery "CON_CANCELA_SUBFORADMTO", acViewNormal, acEdit
DoCmd.OpenQuery "CON_CANCELA_FORADMTO", acViewNormal, acEdit
Me.Requery
DoCmd.GoToRecord , "", acNewRec
DoCmd.SetWarnings True

AEEEEEEEEE!!!!!!!

Deu certo!!!! Nossa! Já tava achando q era impossível! Até procurei em outros fóruns, em português, em inglês, em espanhol e nada!!!

MUITO OBRIGADA PELA AJUDA E DEDICAÇÃO A MIM BIGFILL!!!

RESOLVIDO!

knaomitk, Obrigado pelo retorno o fórum agradece.