timer sur une appli pour deconnecter les utilisateurs qui dorment

regler la minuterie sur 30 x 10000 = 300000 pour qu'il se passe quelquechose toutes les 5 mn

ce quelquechose va etre l'accroissement de la variable deconnect jusqu'a ce qu'elle atteigne 7 au bout de 30 minutes

là l'user a 10 minutes pour cliquer sur prolonger sinon l'appli se ferme

sur event timer

Private Sub Form_Timer()

deconnect = deconnect + 1

If deconnect = 7 Then DoCmd.OpenForm "F_deconnexion"

If deconnect = 9 Then DoCmd.Quit

End Sub

avoir un formulaire deconnexion permettant de prolonger l'utilisation

avec le code associé sur event clic du bouton

Private Sub b_prolong_Click()

deconnect = 1

DoCmd.Close

End Sub

sans oublier la variable deconnect

déclarée sur un module standard

Public deconnect As Integer

à initialiser sur l'ouverture ou le chargement de votre formulaire "menu general" ou interface centrale

deconnect = 0