Subformulário com auto preenchimento e botão cancelar

Estou com dois problemas em um subformulário (Movimentação):

1 - Ao abrir o formulário principal, exibo os dados do formulário principal e incluo alguns dados no subformulário, como sugestão de preenchimento:



Me.SubAnalyzes.SetFocus
  DoCmd.GoToRecord , , acLast
 DoCmd.GoToRecord , , acNext
   Me!SubAnalyzes!created = Date
  Me!SubAnalyzes!updated = Date
Me!SubAnalyzes!analist = Me.txtuser
   maior = DMax("[n_analise]", "analyzes", "[account_id] = " & [account_id] & "")
maior = maior + 1
   Me!SubAnalyzes!n_analise = maior


Mas eu não quero que essas informações sejam salvas na tabela "analyzes" automaticamente, apenas quando o usuário clicar no botão "Salvar Alterações".
No momento, estou apagando essas informações quando o usuário clica no botão "Cancelar", mas não vejo sentido em gravar informações e apagar. Gostaria de deixar a sugestão sem gravar automaticamente. É possível?

2 - Esse mesmo subformulário, quando acessa um BD em MariaDB, não vai para um novo registro no subForm. Precisaria fazer isso, porque outros aplicativos acessam as informações nesse SGDB. Alguém tem alguma ideia da causa?

Boa tarde,
veja se esse post (código msg 7) lhe ajuda.

https://www.maximoaccess.com/t2351-salvamento-automatico#18700

Abraço, Delson

Delson, antes de mais nada obrigada pela sua atenção.

O problema é que o comando : DoCmd.RunCommand acCmdUndo realmente cancela o update do formulário principal, mas não do sub-formulário.

A minha opção, até encontrar uma solução, será não sugerir preenchimento dos campos, deixando o sub-formulário vazio.

Talvez, esse seja um dos problemas inerentes ao Access que é não separar a camada da aplicação da camada de dados.

Qual seria a sintaxe do Access para apenas sugerir um valor para o campo e não atribuir esse valor na tabela??!!??

Já está parecendo maluquice...

Para cancelar as alterações no subForm

Forms!EdtAnalyzes.SubAnalyzes.SetFocus
'Desfaz as alterações do subform
DoCmd.RunCommand (acCmdUndo)

Isso funciona porque pré preenchi o sub-form

Mas, se clicar em cancelar, sem ter alterado nada no form principal...

Erro em tempo de execução '2046'
O comando ou ação 'Desfazer' não está disponível

DoCmd.RunCommand acCmdUndo

Existe uma maneira de dizer em VBA para o access: por favor, não faça nada, fique quieto!

Boa noite,

tente acoplar os dois códigos ao comando Cancelar.
Me.undo 'para concelar no Formulário
Forms!Nomedoseuformulário.Undo ou Forms!Nomedoseuformulário.Nomedoseusubformulário.Undo 'para concelar no Subformulário

Boa sorte! Delson

Olá Alexandre, obrigada pela atenção! Nos formulários de inclusão todos campos são "não acoplados" e os de edição do form principal também...mas os do sub-form, disponíveis para edição, não sei bem como fazer essa lista que você mencionou.

No form principal tenho os dados do processo, e também seu status atual na análise técnica. No sub formulário, toda a movimentação, e o que aconteceu em cada etapa, editado por quem...Quando é aberto esse formulário, os campos de movimentação ficam disponíveis para edição.

O que eu gostaria é uma espécie de Rollback.

Me perdoem o pitaco. Tente assim

Crie duas tabelas temporárias e determine como origem de dados dos respectivos formulários (ex: tblVendasTemp e tblDetVendasTemp)

no botão salvar coloque assim:

 If MsgBox("Confirma inclusão do registro?", vbQuestion + vbYesNo, "Inclusão") = vbNo Then Exit Function
   
   Set db = CurrentDb
   Dim rs As Recordset
   Dim rs2 As Recordset
       
'Aqui se salva os dados na tabela principal "tblVendas"

   Set rs = db.OpenRecordset("tblVendas")
   
   rs.AddNew
   rs("CampoChave") = Me.CampoChave
   (outros campos)
   rs.Update
   rs.Close
   
'Aqui vamos salvar os dados do subformulário.

   Dim cod As String
   CampoChave = DLast("CampoChave", "tblVendas")
   
   Set rs = db.OpenRecordset("tblDetVendas")
   Set rs2 = db.OpenRecordset("tblDetVendasTemp")
       
   Do While Not rs2.EOF
       rs.AddNew
           rs("CampoChave") = rs2!CampoChave
           (Outros campos)
       rs.Update

       rs2.MoveNext
   Loop
       
   MsgBox "Registro salvo com sucesso!", vbInformation, "Inclusão"
   limpaTemporario