[Resolvido]preenchimento automático de um campo

Bom dia pessoal

Tenho a seguinte duvida: É possível numa tabela guarda o registo da função Agora() num campo automaticamente?
Por exemplo, tenho um campo de uma tabela com o tipo de dados sim/não, é possível CASO esse campo seja sim guardar noutro campo da mesma tabela a hora em que foi colocado o visto(sim) com a função Agora()? Contudo CASO o campo esteja não a função Agora() não é aplicada e o campo está em branco.

Exemplo:

campo1/\/\campo2
sim/\/\/\/\/\Agora()

Campo1/\/\/\campo2
não/\/\/\/\/\/\______

Ignorem os termos /\ e __ são apenas espaços.

consegui resolver pessoal fiz por um formulário o seguinte:

Private Sub yuy_Click()
Dim strReg As Date
Dim x As Integer

If IsNull(consulta_saida) Then
MsgBox "Selecione uma data!"
Else
strReg = Me.consulta_saida.Column(0)
End If

If Me.Dirty Then
x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
If x = vbNo Then
Me.Undo
Else
DoCmd.RunCommand acCmdSaveRecord
CurrentDb.Execute "update registos set saida = -1 where data = #" & strReg & "#"
CurrentDb.Execute "update registos set teste = now() where data = #" & strReg & "#"
DoCmd.GoToRecord , , acNewRec
Me.consulta_saida.Requery
End If
End If


End Sub