Alterar caixa de selecção e preencher campo oculto com data sistema

Bom dia,

Precisava de saber como posso ao escolher ou alterar valores de uma caixa de selecção (1 na imagem anexa), colocar a data de sistema num campo oculto (2).

Imagem em anexo

Obrigado

1.º - Não deve duplicar as duvidas respeite as regras do forum.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

No evento ao alterar ou ao sair colocas a referencia para atualizar o campo 2 tipo

Me.Campo2 = Agora()
ou
Me.Campo2 = Data()

e nas propriedades do campo 2 colocas como oculto
ou se queres que fique oculto apos a atualização colocas
Me.Campo2 = Agora()
Me.Campo2.Visible = False
ou
Me.Campo2 = Data()
Me.Campo2.Visible = False

Não testei mas deve ser mais ou menos isto.

toyebom,

Peço desculpa, mas não tinha a certeza sobre o local indicado para colocar o tópico, mas penso que aqui é o sitio indicado.

Vou retirar o outro tópico.

Agradeço desde já a sua sugestão e vou desde já experimentar.

toyebom,

Lamento mas não funciona. Coloca a data na própria caixa de combinação. O que eu pretendo é coloque a data do sistema no campo 2 (Ultima_actualizacao_UIQC) que está oculto, quando se escolhe uma das 3 opções disponíveis na caixa de selecção.

Coloca no campo 1 no evento "Depois de Atualizar"

Me.NomeDoTeuCampo = Date

Eu utilizo assim com critério:

Private Sub Verificação116_AfterUpdate()
If Me.Texto119.Value = "" Or Empty Or IsNull(Me.Texto119) And Me.Verificação116 = True Then
Me.Texto119 = Date
ElseIf Me.Verificação116 = False And Me.Texto119.Value = Date Then
Me.Texto119 = ""
End If
End Sub

toyebom,

Desculpa mas mesmo assim não está a funcionar.

Substitui os teus campos "Texto119" e "Verificação116", pelo nome dos meus campos na base de dados e apesar de não dar erro, não actualiza nada!