[Resolvido] Salvar registro

Boa tarde a todos,

Possuo um formulário chamado "Cadastro" e um subformulário chamado "Produtos" ( acoplado ao formulário "Cadastro" ). No evento antes de atualizar do formulário "Cadastro", inseri um código para salvar as alterações feitas no registro pelo usuário no formulário. O que acontece é que toda vez que estou navegando em algum registro no formulário "Cadastro" e sempre que clico dentro do subformulário "Produtos" a mensagem "Deseja salvar alteração?" do código que inseri aparece. Gostaria que quando fosse clicar dentro do subformulário não aparecesse a mensagem e sim aparecesse quando eu fosse para o registro seguinte. É possível ser dessa maneira? Abaixo postei o código que estou usando no Antes de Atualizar do Formulário "Cadastro". No mais, desde já agradeço a atenção valeu!

=====================================================

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strMsg As String
Dim iResponse As Integer

' Especifica a mensagem a ser apresentada.
strMsg = "Deseja salvar as alterações" & Chr(10)
strMsg = strMsg & "Clique Sim para salvar ou Não para ignorar."

' Mostra a caixa de mensagem.
iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Salvar registro?")

' Verifica a resposta do usuário.

If iResponse = vbNo Then
' Desfaz as alterações.
DoCmd.RunCommand acCmdUndo
' Cancela a atualização.
Cancel = True
End If

End Sub

Posso estar enganado mas porque razão é que estas a dizer no codigo se não quer gravar?

Se a tua intenção é gravar o registo no form cadastro e nao te estar sempre a perguntar se quer gravar ou nao, fazes, no evento After update do form:


docmd.update

Se pretendes manter esse codigo de mensagens crias um botão cmdGravar e no evento click colocas esse codigo.

Se eu estiver errado peço que me corrijam...

teste assim;

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If Me.Dirty Then
If MsgBox("O Registo foi alterado ou incluído. Deseja salvar?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
Me.Undo
DoCmd.CancelEvent
End If
End If
End Sub

Valeu pela dica JPaulo, adaptei no meu form e deu certo aqui ... flw!

Valew pelo retorno amigo, o forum agradece.

Jpaulo

Usei o código deu certinho,

Só que quando eu clico no formulário mais uma vez, ou tento fechar ele faz a pergunta de novo, ai se clico em sim tento fechar
ou ir para outro registro repete a pergunta, só quando aperto no não que cessa .