MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Qui 13 Jul 2017, 12:10

    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
    Anexos
    1.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 6 vez(es)
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    Registrado : 18/07/2012

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

    Mensagem  toyebom em Qui 13 Jul 2017, 13:00

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Qui 13 Jul 2017, 13:19

    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.


    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Qui 13 Jul 2017, 13:40

    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.

    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    Registrado : 18/07/2012

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

    Mensagem  toyebom em Qui 13 Jul 2017, 18:11

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Sex 14 Jul 2017, 12:39

    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!

      Data/hora atual: Sab 18 Nov 2017, 13:34