MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Preencher automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM

    avatar
    Thel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 19/06/2012

    Preencher automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM  Empty Preencher automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM

    Mensagem  Thel 12/3/2023, 14:03

    Bom dia, boa tarde ou boa noite!

    Depois de vasculhar a Internet e quebrar muito a cabeça para encontrar uma função ou um código VBA que preenchesse automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM e não encontrar, eu consegui, graças a Deus, criar um código VBA, adaptando a função interna Now() ou Agora() do MS Access, que somente exibe data/hora no formato DD/MM/AAAA HH:MM:SS.

    Segue as instruções e o exemplo do código VBA:

    Na opção Formato da propriedade do TeuCampoDataHora, digite este formato (isto impedirá que o MS Access trate o campo data/hora do formulário como string após o procedimento):
    dd/mm/yyyy hh:nn

    Na opção Máscara de entrada da propriedade do TeuCampoDataHora, digite esta máscara:
    00/00/0000\ 00:00;0;_

    No evento Ao receber foco do TeuCampoDataHora, digite:  
    Código:

    Private Sub TeuCampoDataHora_GotFocus()
     Dim DataHora As String 'Cria uma variável 'DataHora' para armazenar a data/hora do sistema.
     DataHora = Now() 'Armazena o resultado da função 'Now()' ou 'Agora()' na variável 'DataHora' no formato 'DD/MM/AAAA HH:MM:SS'.
     Me.TeuCampoDataHora.Value = Left(DataHora, 16) 'Retira da variável 'DataHora' apenas os 16 primeiros caracteres, da esquerda para a direita (incluindo espaços, barras e dois pontos), e exibe o resultado no 'TeuCampoDataHora', ficando agora no formato 'DD/MM/AAAA HH:MM'.
    End Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    Preencher automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM  Empty Re: Preencher automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM

    Mensagem  Alexandre Fim 13/3/2023, 11:54

    Olá Thel,

    Não há necessidade de criar uma variável para armazenar a data/hora, porém, você pode criar o formato diretamente na função Now, conforme abaixo:

    Me.TeuCampoDataHora.Value = Format(Now,"dd/mm/yyyy hh:mm")

    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Preencher automaticamente um campo com a data/hora do sistema no formato DD/MM/AAAA HH:MM  Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 23/7/2024, 03:34