Criando um Relógio Digital no Access

Olá pessoal, certa vez estava fazendo algumas coisas no Access e decidi colocar um tipo de relógio digital que ficasse atualizando automaticamente dentro do formulário, depois de muito pesquisar eu achei um tutorial que ensinava, deu tudo certo e eu fiquei feliz, tão feliz que decidi ensinar como faz. Essa não deve ser a única nem a melhor maneira de fazer isso, mais tá ai pra quem quiser usar.

Vou criar o relógio em um formulário alheio de qualquer tabela, se você quiser criar em um formulário vinculado a alguma tabela ou consulta basta seguir os passos.

Vamos nessa:

Primeiro vamos criar um formulário em branco para usarmos.
Para criar um formulário em branco vá até a guia “Criar” no grupo “Formulários” e clique em “Design de Formulário”.


Ao clicar neste botão o Access criará um formulário no modo design parecido com o abaixo.


Agora vamos colocar uma caixa de texto em qualquer lugar desse formulário.

Para colocar uma caixa de texto vá até a guia “Design” no grupo “Controles” e selecione a Caixa de Texto.


Ao clicar repare que o botão ficara destacado no menu, isso significa que a opção esta selecionada, agora desenhe a caixa de texto dentro do seu formulário, para fazer isso clique em qualquer ponto do formulário segure e arraste até onde desejar.


Foi criado um Rótulo (Texto0:) e uma caixa de texto (NãoAcoplado), não vamos precisar do rótulo se você quiser apagá-lo fique a vontade.

Agora vamos editar algumas propriedades da caixa de texto criada, selecione a caixa de texto e aperte a tecla F4 do seu teclado para abrir a “Folha de Propriedades”.


Clique na aba “Todas” e edite as seguintes propriedades:

Nome: txt_clock (coloque o nome que você possa identificar a caixa de texto).
Estilo da borda: Transparente.
Estilo de fundo: Transparente.
Ativado: Não.
Bloqueado: Sim.

Agora vamos fazer o nosso relógio funcionar de verdade.

Ainda na “Folha de Propriedades” selecione a opção “Formulário” na caixa de seleção na parte de cima.


Agora selecione a aba “Evento” e vamos editar algumas opções.

Localize a opção “No timer” e selecione a opção “[Procedimento do Evento]” clique no botão pontilhado ao lado direito.


Ao clicar nesse botão abrira o editor do VBA com o seguinte método criado.

Private Sub Form_Timer()
End Sub
Dentro desse método digite a seguinte linha de código.

me.txt_clock = time()

(me.nome_do_campo = time())


Pronto. Agora feche o editor do VBA e volte a Folha de Propriedades e edite a seguinte opção:

No intervalo do cronômetro: 1000

Onde 1000 significa 1 seg.

Após ter feito isso, o seu relógio digital já deve esta funcionando, para visualizar aperte a tecla F5 no seu teclado, e veja se funcionou.



Então é isso pessoal, espero que gostem, qualquer duvida faça sua pergunta abaixo.

6 comentários:

  1. Simplesmente demais! Você explica muito bem, sem firulas e sem falhas. Parabéns!

    ResponderExcluir
  2. Muito bom!
    Ajudou bastante a quem nem conhece!!

    ResponderExcluir
  3. Dica excelente, parabéns o obrigado Kayo.

    ResponderExcluir
  4. Ótimo....obrigado amigo....muito bem explicado....
    Agora quero um script pra mensagem rolando no rodapé... Sou "super" iniciante no ACCESS 2007..

    ResponderExcluir
  5. Muito Obrigado! Tenho pouco conhecimento no access e você ajudou muito!

    ResponderExcluir