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.