Este fórum está sendo desativado

[Berti]

Fala pessoal,

Montando um form aqui me deparei com a situação:

Inclui o código em um textbox para mostrar a hora atual, porém fica estático e não acompanha a hora do PC, ou seja, só atualiza se eu fechar e abrir novamente o form. O código é o seguinte:

Código: Selecionar todos

Me.txt_hora = Time
Me.txt_hora = Format(Time, "HH:MM:SS")

O que preciso é que o txtbox fique rodando a hora real, porque conforme cada lançamento que é gerado, ele joga a hora que consta naquele momento no txtbox.

Deixei o modelo em anexo para facilitar.

Obs.: Os lançamentos deste form vão para um banco em access.

Se alguém pude ajudar, obrigado desde já.

LANÇAMENTOS_LIBERAR_BOLETAS.zip

[laennder]

Você terá que usar o Application.OnTime, para uma macro atualizar o valor do textbox a cada segundo.

Dê uma olhada nesse outro tópico.

http://gurudoexcel.com/forum/viewtopic. ... 176&p=6348

[Berti]

Laennder

Por favor, poderia me explicar o caminho das pedras? rsrsrs

Em célula em uma sheet, consegui aplicar o exemplo do post, mas em uma txtbox não.

Obrigado.

[Berti]

Consegui resolver.

Código: Selecionar todos

Global onOff As Boolean
Sub relogio()
 
On Error Resume Next
 
Frm_libera.txt_hora = Now()
Frm_libera.txt_hora = Format(Time, "HH:MM:SS")

If onOff = True Then
Application.OnTime Now + TimeValue("00:00:01"), "relogio"
Else
Application.OnTime 0, ""
End If

End Sub

Código: Selecionar todos

Private Sub UserForm_Activate()

onOff = True ' variável declarada como global as boolean
Application.OnTime Now + TimeValue("00:00:01"), "relogio"

End Sub

Código: Selecionar todos

Sub Auto_Open()

On Error Resume Next
Frm_libera.Show

End Sub

Pra quem for útil, está aí!

Obrigado!