[Resolvido]Botão Gravar no Form para Salvar SubForm

Boa tarde

É a primeira vez que participo desde forum, mais tenho utilizado de vários exemplos dele através de pesquisa no google. Muito bom.

Tenho um Form e um SubForm Contínuo e gostaria de salvar clicando no batão do Form.
Pesquisei alguns exemplos mais não consegui resolver a questão.

Se aglguém puder me ajudar, agradeço.

No ckick do botão de comando

Private Sub btn_Salvar_Click()
If Not IsNull(Me.IdProd) And Me.Dirty Then
If MsgBox("O registro foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
'DoCmd.Close
Else
Me.Undo
DoCmd.CancelEvent
End If
End If

DoCmd.GoToRecord , "", acNewRec

End Sub

Bom dia
Obrigado pelo retorno super rápido.

No SubForm o campo que preciso atualizar os valores está acoplado.

Acredito que no código informado falta referenciar o SubForm.
No SubForm ao mudar de registro ele já está salvando. Gostaria de salvar todos os registro do SubForm somente ao clicar no Botão Salvar do Form.

teste

https://www.dropbox.com/s/4w0ydxtx1r9qaz1/ControleEstoque%20-%20C%C3%B3pia.rar?dl=0

CafPr Boa noite

Abri o link que você postou, mais infelizmente ainda estou com o access 2003, não consigo visualizar.

Caso tenha um exemplo para a minha versão fico grato.

Abraços !

CafPr

usei este código no evento so subform "antes de atualizar", porém ao mudar de linha/registro pede a confirmação de Salvar ou Não.

Dim Salvar As Integer

If Me.Dirty Then
Salvar = MsgBox("Deseja Salvar as Alterações...?", vbYesNo, "Atenção! ")

If Salvar = vbNo Then
Me.Undo
DoCmd.CancelEvent

End If
End If

Poste o form e subform que irei colocar o codigo para você.

Olá CafPr

Segue o anexo do Bd.

Obrigado pelo retorno.

Não veio anexo algum;

Bom dia

Estava com a extensão.rar

Agora sim, está anexo.

Boa noite Silvio.

Penso que a maneira de você optar em salvar ou não seria desta forma, mas fica ao seu critério. Veja:

Na tabela Medicação acrescentei o campo salvar(sim/não) e oculteio no Frm_MedicacaoCompraSub.

Coloquei o código no evento após atualizar do campo "compra". Assim terá a opção de salvar quando inserir ou alterar o campo.

CafPr bom dia

Obrigado pelo retorno.

Muito boa a alternativa.

Abraços !

Como ficou o código !


Private Sub TxtCompra_AfterUpdate()
If Not IsNull(Me.TxtCompra) And Me.Dirty Then
If MsgBox("O registro foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
'DoCmd.Close
Else
Me.Undo
DoCmd.CancelEvent
End If
End If

End Sub

OK