[Resolvido]Fechar bd com tempo

Boas...

Andei a sondar aqui o forum a tentar encontrar um cod que ao fechar o form ele feche com timer...mas nao consegui colocar nenhum a trabalhar..

vi este exemplo do JPaulo...

Private Sub Form_Load()
'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 = 3 '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


mas não rolou no meu...alterei o vb, mas nada.... no tópico você fala em colocar a Label em lblContagem. Que label?

Abraço

Tente o esquema abaixo:

No início do módulo do formulário:

Option Compare Database
Option Explicit
Dim Contagem As Integer

No botão que você clica para fechar:

TimerInterval = 1000

No evento "No timer":

Contagem = Contagem + 1
If Contagem = 3 Then
Application.Quit
End If

criquio só nao entendi

No evento "No timer": ???

Sim, a contagem tem que ser feita no timer.

Amigo Rui Lopes e Criquio, qual é o problema do meu código ?

Antes da variavel publica, não tem lá nenhum Private Sub Form_Load()


lblContagem é uma label (Rótulo) que você deve inserir no seu formulario.

Veja com atenção;

http://maximoaccess.forumeiros.com/t1663-resolvidotimer-no-formulario-de-fechar-banco

De minha parte nenhum problema amigão. Só ofereci uma alternativa para o amigo

Certo Criquão, mas é sempre bom sabermos o que está acontecer no código que deu origem à abertura deste tópico.

As alternativas são sempre bem vindas, mas à partida põe de parte a origem do problema.

Vamos aguardar o que nos diz o Rui.

Boas JPaulo e criquio...

Penso que com o código em si não tem problema nenhum. Apenas nao estava a entender a situação da label lblContagem .

Então para ver se compreendi...tenho de colocar um rotulo (invisível?) com o nome lblContagem e atribuir-lhe o código?

tal e qual como no exemplo