[Resolvido]Dúvida em código FechaSeInativo

Caros Amigos,

Baixei o código abaixo do Grande Mestre JPaulo e tentei adaptar as minhas necessidades. O código faz corretamente o que diz fazer: Fechar o banco de dados após 10 minutos de inatividade. Inatividade essa: Mover o mouse (zera cronômetro). No entando, no meu caso, se usuário ficar só cadastrando em determinado formulário, usando só teclado ao completar os 10 minutos fechar banco. Qual propriedade posso colocar Usar teclado zera cronômetro?

No evento Mover o mouse:
Me.lblTempo.Caption = "00:00:00"

Qual o evento para teclado?
Me.lblTempo.Caption = "00:00:00"

Private Sub Form_Timer()
'By JPaulo Maximo Access
Static strHora As Integer
Static strMinutos As Integer
Static strSegundos As Integer

If Trim(lblTempo.Caption) = "00:00:00" Then
strHora = 0
strMinutos = 0
strSegundos = 0
End If

strSegundos = strSegundos + 1

If strSegundos = 60 Then
strSegundos = 0
strMinutos = strMinutos + 1
If strMinutos = 60 Then
strMinutos = 0
strHora = strHora + 1
If strHora = 24 Then
strHora = 0
End If
End If
End If

lblTempo.Caption = Format(strHora, "00") & ":" & _
Format(strMinutos, "00") & ":" & _
Format(strSegundos, "00")
'tempo de inatividade do banco para encerramento, aqui o exemplo são de 10 minutos
If lblTempo.Caption = "00:10:00" Then
DoCmd.Quit acQuitSaveAll
End If

End Sub

Muito grato

Código:

Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Me.lblTempo.Caption = "00:00:00"
End Sub

Bom dia,

Perfeito. Tudo funcionando corretamente. Muito grato.
Uma curiosidade: qual a diferença de "Ao apertar a tecla" e "Ao pressionar a tecla"?

Muito obrigado mesmo, forte abraço.

Resolvido com perfeição