[Resolvido]Timer para o banco

Uso um código para fechar o banco após 30 min se ficar inoperante, só que ao passar a utilizar o Access 2010 ele não reinicia a contagem após uso do formulário. Teria algum ponto a ser alterado?

Onde:

No módulo:

Option Compare Database
Option Explicit
'----------------------INICIO-------------------------------------
Global DESLIGAR As Boolean, offtime As Integer
Public Const TFORM = 1000 ' coloque em de cada formulário

Sub contar()
offtime = offtime + 1
If offtime = 1800 Then DoCmd.Quit 'SE ATINGIR 1800 SEGUNDOS OU 30 MIN DESLIGARÁ
End Sub
Sub recontar()
offtime = 0
End Sub
'coloque o sub contar no evento timer de cada formulário
'coloque o sub recontar nos eventos ao mover o mouse da seção detalhe e ao apertar tecla de cad formulário
'coloque visualizar tecla = sim em cada formulário
' para tempo igual 10 minutos ´por ex. coloque no tempoparado = 600 (10 x 60)
'---------------------------FIM----------------------------------

No form em Ao clicar:

Private Sub Form_Click()
recontar
End Sub

No form em Ao mover o mouse:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
recontar
End Sub

No form em Ao apertar a tecla:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
recontar
End Sub

No form em No timer:

Private Sub Form_Timer()
contar
On Error GoTo 10
Me.Rótulo4.Caption = offtime 'só para acompanhar a execução no formulário MENU
10
End Sub

Boa Tarde Colega

O Mestre JPaulo tem aqui no repositório um exemplo desses. Fica mais fácil, pois nem todos temos o Access 2010 para experimentar. Não quer tentar?

Penso que é este

http://maximoaccess.forumeiros.com/t2195-encerra-banco-se-inativo-durante-10-minutos

Já que usa todas essas linhas em cada formulário, poderia fazer algo assim, nos formulários:

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

Option Compare Database
Option Explicit
Dim T As Integer

No evento "No timer":

T = T + 1
If T >= 18000 Then
Application.Quit
Else
End If

Nos eventos "Ao carregar", "Ao mover mouse", "Ao apertar tecla":

T = 1

Postamos quase ao mesmo tempo de novo. Tambem eu passei uns bons minutos aqui testando isso

Grato!
Um ótimo final de semana a todos...

Então resolvido? Vou clicar no botão Resolvido aqui, qualquer coisa, pode reabrir.

Sim, tirei proveito de todas as informações!

Muito grato!!!