[Resolvido]Gravar alterações automáticamente

Pessoal, com a ajuda de vocês consegui fazer com que as mudanças de usuários em qualquer campo do Formulário, fizesse com que fosse gravado em seu sub formulário a data e a ocorrência, sendo que na coluna da ocorrência ficasse gravado o valor da caixa de combinação “Situação” do Formulário principal. O código utilizado é esse aqui:

Private Sub Form_BeforeUpdate(Cancel As Integer)
DoCmd.SetWarnings False
Dim strSql As String
strSql = "INSERT INTO tblHistoricos (idInquerito, DataHistorico, Ocorrencia) VALUES (" & Me.Id & ", Date(), '" & Situação & "')"
DoCmd.RunSQL (strSql)
DoCmd.SetWarnings False

O probleminha que vem ocorrendo é que qualquer mudança em qualquer campo, seja, a caixa de combinação, a caixa de texto ou a caixa de seleção, faz com que grave a data e a ocorrência no subformulário, sendo que a minha intenção é de que somente ficasse gravado no subformulário quando a mudança fosse realizada na caixa de combinação “Situação”.
Qual mudança no código acima eu devo fazer para que somente grave a data e a ocorrência no subformulário quando realizar mudança na caixa de combinação “Situação”, sendo que, caso sejam realizado mudanças nos outros campos, nada fosse gravado.

Obs.: Procurei por todos os tópicos da busca, mas ainda não encontrei nada semelhante.

Tente mudar para o evento "Ao atualizar" da combo. Talvez tenha que alterar um pouco, mas precisaríamos saber qual é a função da combo, se ela está vinculada a algum campo da tabela, se precisa ser verificado quando o valor da combo for diferente de um dos campos em um registro específico da tabela, etc, etc. Quanto mais informação mais eficaz será a solução.

A combo possui cinco valores (situações) e não está vinculada a nenhum campo. Apenas serve para indicar qual a situação do registro.
Exemplo: O registro(processo) estava no Fórum e voltou para mais diligências. Quando ele volta, vem com um prazo determinado. Aí, eu mudo na combo Situação, de Fórum para Cartório. Neste momento, no subfomrulário fica gravado no campo Data, a data da mudança e no campo ocorrência a Situação, que seria Cartório.
O problema é que se eu fizer qualquer alteração em outro campo como caixas de textos, fica gravada a data e a situação no subformulario, o que eu não gostaria.

O evento está ocorrendo no form, então qualquer alteração no form o dispara.
Não seria o caso de colocar o evento AfterUpdate na combo Situacao?

Acredito que seria necessário, ainda, programar a combo para receber o valor do registro atual, caso contrário, como ela irá saber que a condição mudou?

Criquio,
o AfterUpdate na combo não se encarrega disso?
Pois se, com o evento no form está gravando no sub, imagino que uma alteração na combo tenha o mesmo efeito.
Abraço, mestre!

Sim, mas como a combo não está acoplada a nenhum campo da tabela, e imaginando que o amigo do tópico está se referindo a mudar algo em um registro já gravado na tabela, a combo precisaria saber qual registro está gravado na tabela para saber se ele foi alterado. Talvez eu não tenha entendido bem ainda, mas achei que seja isso.

É, também estou na dúvida.
Aguardemos o retorno do Veríssimo!

Eu retirei o código do evento ao antes de atualizar do form e o inseri no evento após atualizar da combo e deu certo. Está gravando somente nas alterações realizadas na combo.
Porém, outro problema surgiu:
O código estava no botão Salvar com uma mensagem de "Salvar", sim ou não. Caso escolhesse Não, então Me.Undo e o código e ele só gravava nos campos date e ocorrência se clicasse em Sim na msgbox.
Agora, depois da remoção do código, está gravando tanto se eu clicar em Sim ou Não.

Eu uso Access 2010. A Microsoft disponibilizou download de qualquer programa gratuitamente com licença por dois anos para alunos da minha faculdade.

Antes, com o código no botão Salvar que tinha uma megbox Sim ou Não, as alterações eram salvas somente quando se escolhia a opção Sim, já que a opção Não, estava com o código Me.Undo. Agora, com o cóigo no evento após atualizar da combo, os eventos e as datas são gravadas tanto para a opção Sim, quanto para a opção Não.
Não sei se fui bem claro.

O código estava assim antes:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Deseja salvar as alterações no Inquérito " & Format(Me!Inquerito, "000/00") & "?", vbExclamation + vbYesNo, "Confirmação") = vbNo Then
Me.Undo
If Me.Inquerito.Enabled = True Then
Me.Inquerito.Enabled = False
Else
Me.Inquerito.Enabled = False
End If
If Me.DataDeVencimento.Enabled = True Then
Me.DataDeVencimento.Enabled = False
Else
Me.DataDeVencimento.Enabled = False
End If
If Me.Flagrante.Enabled = True Then
Me.Flagrante.Enabled = False
Else
Me.Flagrante.Enabled = False
End If
If Me.Cota.Enabled = True Then
Me.Cota.Enabled = False
Else
Me.Cota.Enabled = False
End If
If Me.Natureza.Enabled = True Then
Me.Natureza.Enabled = False
Else
Me.Natureza.Enabled = False
End If
If Me.Vítima.Enabled = True Then
Me.Vítima.Enabled = False
Else
Me.Vítima.Enabled = False
End If
If Me.Indiciado.Enabled = True Then
Me.Indiciado.Enabled = False
Else
Me.Indiciado.Enabled = False
End If
If Me.Situação.Enabled = True Then
Me.Situação.Enabled = False
Else
Me.Situação.Enabled = False
End If
If Me.Processo.Enabled = True Then
Me.Processo.Enabled = False
Else
Me.Processo.Enabled = False
End If
If Me.Vara.Enabled = True Then
Me.Vara.Enabled = False
Else
Me.Vara.Enabled = False
End If
MsgBox "As alterações não foram salvas.", vbInformation, "Aviso"
Exit Sub
Else
DoCmd.SetWarnings False
Dim strSql As String
strSql = "INSERT INTO tblHistoricos (idInquerito, DataHistorico, Ocorrencia) VALUES (" & Me.Id & ", Date(), '" & Situação & "')"
DoCmd.RunSQL (strSql)
DoCmd.SetWarnings False
End If
If Me.Inquerito.Enabled = True Then
Me.Inquerito.Enabled = False
Else
Me.Inquerito.Enabled = False
End If
If Me.DataDeVencimento.Enabled = True Then
Me.DataDeVencimento.Enabled = False
Else
Me.DataDeVencimento.Enabled = False
End If
If Me.Flagrante.Enabled = True Then
Me.Flagrante.Enabled = False
Else
Me.Flagrante.Enabled = False
End If
If Me.Cota.Enabled = True Then
Me.Cota.Enabled = False
Else
Me.Cota.Enabled = False
End If
If Me.Natureza.Enabled = True Then
Me.Natureza.Enabled = False
Else
Me.Natureza.Enabled = False
End If
If Me.Vítima.Enabled = True Then
Me.Vítima.Enabled = False
Else
Me.Vítima.Enabled = False
End If
If Me.Indiciado.Enabled = True Then
Me.Indiciado.Enabled = False
Else
Me.Indiciado.Enabled = False
End If
If Me.Situação.Enabled = True Then
Me.Situação.Enabled = False
Else
Me.Situação.Enabled = False
End If
If Me.Processo.Enabled = True Then
Me.Processo.Enabled = False
Else
Me.Processo.Enabled = False
End If
If Me.Vara.Enabled = True Then
Me.Vara.Enabled = False
Else
Me.Vara.Enabled = False
End If
Me.sfrmHistoricos.Requery
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub

Assim, caso eu clicasse em Não, ele não grava nosubformulário. Agora, com o trecho do códig direto na combo, ele está gravando as alterações nessa combo mesmo eu clicando em Não.

Não entendi!

Mas se eu colocar uma msbbox na combo, mesmo no evento antes de atualizar dela, ao clicar em salvar, duas msgbox irão aparecer; a do form e da combo.

Vou continuar tentanto e posto aqui meus sucessos oou não.
Desde já, agradeço e muito pela ajuda!

Faltou o Resolvido