Discussion :

[chuspyto]

bonjour,

comment faire pour executer une action apres chaque delai d'inactivité d'un utilisateur?

merci

[KIK83]

Salut,

Allez, à mon tour d'essayer de dépanner les autres copains...

A placer dans le code de ton form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Timer()
'Timer de deconnexion
DoCmd.close
MsgBox "En raison d'une trop longue période d'inactivité du logiciel," & Chr(13) & "vous avez été déconnecté.", vbOKOnly + vbInformation, "Information"
'Si tu souhaites ouvrir un form de reconnexion
DoCmd.OpenForm "Ton_Form_de_reconnexion"
End Sub

puis tu vas dans les propriétés de ton formulaire et tu règles l'interval de minuterie (attention c'est en milisecondes !)

A+

[chuspyto]

j'ai vu sur google que l'on pouvait utiliser application.onetime

cela marche t il pour un delai d'inactivité?

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Lheure As Double
Dim Interval as Integer
 
Sub LancerTimer(NbS as integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
   Interval =NbS
   Application.OnTime Now + TimeSerial(0, 0,Interval ), "ExecutionTimer"
End Sub
 
Sub ArretTimer()
   On Error Resume Next
   Application.OnTime Lheure, "ExecutionTimer", , False
End Sub
 
Sub ExecutionTimer()
'code à exécuter à la fin de chaque Interval secondes
 
'code obligatoire
   Lheure = Now + TimeSerial(0, 0, Interval )
   Application.OnTime Lheure, "ExecutionTimer"
End Sub