[Resolvido]Timer no Formulário de Fechar Banco

Olá a todos

Fiz um formulário pra fechar o Banco pra efetuar manutenção (tirar todos os usários da rede)

mas queria um esquema pra mostrar tipo um relógio no form, pra dar tempo do usuário terminar algum trabalho ou não ser pego de surpresa,

tentei com o codigo abaixo, mas ele não mostra o cronometro na label (time), simplesmente fecha o banco direto, alguém poderia me dar uma orientação por favor? para mostrar o relogio contando 60 segundos ...

Código:



Private Sub Form_Timer()
Dim Tempo As String
Tempo = Nz(Tempo, 60) - 1
time.Caption = Tempo
If Tempo = 0 Then DoCmd.Quit

End Sub





Mude o nome da Label para lblContagem, time é uma palavra reservada do Access.

Cole tudo isto dentro do formulario,


'Variavel publica
Public strInicia As Integer

Private Sub Form_Load()
'No evento ao carregar do form, coloca o intervalo do cronometro = 1000
Me.TimerInterval = 1000
Form_Timer
End Sub

Private Sub Form_Timer()
'By JPaulo ® Maximo Access
Static strInicioDaContagem As Date

Dim ContaSegundos As Integer

ContaSegundos = 60 'numero de segundos pretendidos

If strInicia = 0 Then strInicioDaContagem = Time

Min = (ContaSegundos - DateDiff("s", strInicioDaContagem, Time)) \ 60
Sec = (ContaSegundos - DateDiff("s", strInicioDaContagem, Time)) Mod 60
Me.lblContagem.Caption = "Este Banco irá Fechar para Manutenção em: " & Format(Sec, "00")
strInicia = strInicia + 1

If Me.lblContagem.Caption = "O Banco vai Encerrar..." Then
DoCmd.Quit
End If

End Sub

Oi Obrigado, mas o código deu um erro, quando chegou no zero ao invés de fechar o banco continuou contando em numeros negativos, -1 -2 -3 ... o que pode ser?

O que acontece é que não foi testado por mim até ao fim, rsrsrsrs

Rectificação:


'Variavel publica
Public strInicia As Integer

Private Sub Form_Load()
'No evento ao carregar do form, coloca o intervalo do cronometro = 1000
Me.TimerInterval = 1000
Form_Timer
End Sub

Private Sub Form_Timer()
'By JPaulo ® Maximo Access
Static strInicioDaContagem As Date

Dim ContaSegundos As Integer

ContaSegundos = 60 'numero de segundos pretendidos

If strInicia = 0 Then strInicioDaContagem = Time

Min = (ContaSegundos - DateDiff("s", strInicioDaContagem, Time)) \ 60
Sec = (ContaSegundos - DateDiff("s", strInicioDaContagem, Time)) Mod 60
Me.lblContagem.Caption = "Este Banco irá Fechar para Manutenção em: " & Format(Sec, "00")
strInicia = strInicia + 1

If Sec=0 Then
DoCmd.Quit
End If

End Sub

Resolvido, muito obrigado ficou perfeito

Beleza. Só faltou acrescentar o [Resolvido]. Estou fazendo-o agora.