[Resolvido]Gravar as datas das alterações

vc pode colocar no evento apos atualizar da caixa de combinação
para executar uma consulta acresimo que cria os dados desejados.

se quiser um exemplo mencione o nome dos campos e das tabelas para que possamos montar o exemplo.

É o seguinte: No meu projeto, existe uma tabela tblHistóricos, que gerou o formulário sfrmHistóricos e que está acoplada a uma aba existente no formulário frmInqueritos, sendo que em todos os registros deste formulário frmInqueritos, eu possa mudar a situação, cada vez que seja necessário, pois ao vencer a data prazo, tenho que mudar a situação. Nessa aba sfrmHistóricos existem dois campos; um com um selecionador de data e outro com o campo evento, nos quais seleciono a data e digito a movimentação. Porém, gostaria todas as vezes em que eu realizasse a mudança da caixa de combinação Situação, automaticamente fosse gravado a data e a situação na aba onde existe o sfrmHistórico.

coloque no evento apos atualizar da caixa o seguinte:
dim banco as database, tabe as recordset

Set banco= CurrentDb()
Set tabe = banco.OpenRecordset("tblHistóricos")

tabe.addnew
tabe("nomedocampodatanatabela") = date
tabe("nomedocampoeventonatabela") = caixacombinaçãonoformulario
tabe.update
tabe.close
banco.close
set tabe = nothing
set banco = nothing

Não consegui, acho que não estou fazendo direito. Note que ao selecionar um registro na lista e abri-lo, um formulário aparece para atualizarmos o registro. Gostaria que, ao mudar o campo Situação, automaticamente, na aba Eventos, ficassem gravados a data e a situação mudada.
Segue link do projeto:

http://dl.dropbox.com/u/8157744/Controle%20de%20Inqu%C3%A9ritos.zip

Veja por favor se está como pretende;

http://dl.dropbox.com/u/771097/Controle%20de%20Inqu%C3%A9ritos%20OLD.rar

Escolha a situação e aperte o botão salvar.

Funcionou como pretendia ?


Aguardo

É isso mesmo, JPaulo. Do jeito que eu queria. Vai me ajudar muito.
Agora, como se faz para não aparecer aquela mensagem de que está prestes a inserir uma linha e também como fazer para não abrir a aba Eventos automaticamente? Será que é possível isso, já que aquela mensagem é automatica e do próprio Access?

Deixei ficar assim para você ver a funcionar.

Coloque no inicio do código

DoCmd.SetWarnings False

E no final do código

DoCmd.SetWarnings True

OK!!!!!Perfeito!!!!!
Agora só falta ele parar de abrir a aba Eventos automaticamente. Tens o código?

Surgiu outro probleminha!
Qualquer alteração que eu faça em outro campo, mesmo não mudando o campo Situação, fica gravado na aba Eventos.

JPaulo, consegui fazer com que a aba Eventos parasse de abrir automaticamente. Não havia percebido as linhas no final do código.
Outra coisa:
Antes, ao clicar em "Não" para salvar, os campos eram desativados, agora não mais. Deve ser por causa do Exit Sub logo após Me.Undo. Não estou conseguindo fazer com que desative automaticamente ao se clicar em "Não" para salvar.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Salvar a alteração no Inquérito " & Format(Me!Inquerito, "000/00") & "?", vbExclamation + vbYesNo, "Confirmação") = vbNo Then
Me.Undo
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!Guia.Pages("Eventos").SetFocus
Me.sfrmHistoricos.Requery
End Sub

Deu certo, JPaulo, era só retirar a linha Exit Sub. Agora está legal.
Muito obrigado pela grande ajuda!!!