Déconnexion automatique des utilisateurs

lio33 · 19/07/2007, 10h38

Bonjour,

Je cherche à forcer la déconnexion des utilisateurs d'une basse ACCESS 2003 de façon automatique.
Le problème est lié aux utilisateurs qui laissent leur application ouverte sur des PC qui tombent en mode veille.

Auriez vous une solution pour traiter le cas des PC qui sont en veille ?

Merci d'avance.

Domi2 · 19/07/2007, 11h06

Bonjour,

Ton histoire m'intéresse, je travaille là-dessus... voir post de Hidex de hier sur le même sujet.

Quel est le problème quand le PC est en mode veille ?

Il ne se déconnecte pas ?

Domi2

lio33 · 19/07/2007, 11h14

Il est possible de mettre un timer dans l'application ACCESS qui sort de l'application dés que l'heure système atteint une valeur prédéfinie. Par contre si le PC reste inactif un certain temps et passe en mode veille l'application ne peut plus effectuer ce traitement.

Domi2 · 19/07/2007, 11h31

Re,

Mouais... Je vais finir ma procédure de déconnection et commencer mes tests.

A priori, le plus simple, c'est de faire la déconnection sur inactivité de l'application pendant X minutes et de régler la mise en veille avec une valeur supérieure.

A suivre....

Domi2

lio33 · 19/07/2007, 11h48

C'est pour le moment la solution vers laquelle je me dirige !

Dolphy35 · 19/07/2007, 15h00

Salut,

ci-joint une contribution de DMboup

elle sera intégrée dans la prochaine mise à jour de la

Citation:

Ce code permet de tester toutes les secondes si le focus ne se déplace dans le formulaire
ou si une touche n'est pas appuyée pendant un temps paramétré, un message de non activité s'affiche.
Ce code permet de fermer un Formulaire ou la base en cours au bout d'un temps prédéfini.

Voici le code du Module du Formulaire testé :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Form_Timer()
' IDLEMINUTES determines how much idle time to wait for before
         ' running the IdleTimeDetected subroutine.
         Const IDLEMINUTES = 0.05
 
         Static PrevControlName As String
         Static PrevFormName As String
 
         Dim ActiveFormName As String
         Dim ActiveControlName As String
         Dim ExpiredMinutes
         On Error Resume Next
 
         ' check le forumulaire active et le control name
 
         ActiveFormName = Screen.ActiveForm.Name
         If Err Then
            ActiveFormName = "No Active Form"
            Err = 0
         End If
 
         ActiveControlName = Screen.ActiveControl.Name
            If Err Then
            ActiveControlName = "No Active Control"
            Err = 0
         End If
 
         ' verifie actif actuel and reinitialise temps expiration si:
         '    1. aucun enregistrement d'action encore (code roule pour
         '       la premiere fois).
         '    2. les noms precedents sont differents des noms courants
         '       (usager a fait quelque chose de different pendant l'intervalle de temps
           If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ' ...otherwise the user was idle during the time interval, so
            ' increment the total expired time.
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If
 
         ' Does the total expired time exceed the IDLEMINUTES?
         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then
            ' ...si oui, je reset le temps d'expiration a 0...
            ExpiredTime = 0
            ' ...et appelle la sous-routine idletimedetected.
            IdleTimeDetected ExpiredMinutes
         End If
End Sub
Sub IdleTimeDetected(ExpiredMinutes)
         Dim Msg As String
         Msg = "Aucune activite "
         Msg = Msg & ExpiredMinutes & " minute(s)!"
         MsgBox Msg, 48
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Not IsNull(KeyCode) Then
         ExpiredTime = 0
    End If
End Sub

Const IDLEMINUTES = 0.05 correspond à 5 secondes

Modifiez les propriétés du Formulaire comme suit :
Aperçu des touches sur OUI
Intervalle minuterie = 1000

Dolphy

Domi2 · 19/07/2007, 15h01

Re,

Quand tu parlais de mise en veille, tu parlais de l'écran, ou de l'arrêt des disques durs ?

Domi2

19/07/2007, 10h38	#1
lio33 Membre habitué Inscription : octobre 2003 Messages : 483 Détails du profil Informations personnelles : Localisation : France, Gironde (Aquitaine) Informations forums : Inscription : octobre 2003 Messages : 483 Points : 136 Points : 136	Déconnexion automatique des utilisateurs Bonjour, Je cherche à forcer la déconnexion des utilisateurs d'une basse ACCESS 2003 de façon automatique. Le problème est lié aux utilisateurs qui laissent leur application ouverte sur des PC qui tombent en mode veille. Auriez vous une solution pour traiter le cas des PC qui sont en veille ? Merci d'avance.
	00

19/07/2007, 11h06	#2
Domi2 Rédacteur/Modérateur Inscription : juin 2006 Messages : 6 233 Détails du profil Informations personnelles : Sexe : Âge : 52 Localisation : Suisse Informations professionnelles : Secteur : Administration - Collectivité locale Informations forums : Inscription : juin 2006 Messages : 6 233 Points : 9 903 Points : 9 903	Bonjour, Ton histoire m'intéresse, je travaille là-dessus... voir post de Hidex de hier sur le même sujet. Quel est le problème quand le PC est en mode veille ? Il ne se déconnecte pas ? Domi2 __________________ Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor) Ici, on ne perd pas de temps ! On en passe... Access : créer des codes-barres 128 en VBA Access : les commandes intégrées des menus Ce message (ou un autre) vous a aidé ? Votez pour lui avec
	00

19/07/2007, 11h31	#4
Domi2 Rédacteur/Modérateur Inscription : juin 2006 Messages : 6 233 Détails du profil Informations personnelles : Sexe : Âge : 52 Localisation : Suisse Informations professionnelles : Secteur : Administration - Collectivité locale Informations forums : Inscription : juin 2006 Messages : 6 233 Points : 9 903 Points : 9 903	Re, Mouais... Je vais finir ma procédure de déconnection et commencer mes tests. A priori, le plus simple, c'est de faire la déconnection sur inactivité de l'application pendant X minutes et de régler la mise en veille avec une valeur supérieure. A suivre.... Domi2 __________________ Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor) Ici, on ne perd pas de temps ! On en passe... Access : créer des codes-barres 128 en VBA Access : les commandes intégrées des menus Ce message (ou un autre) vous a aidé ? Votez pour lui avec
	00

19/07/2007, 15h01	#7
Domi2 Rédacteur/Modérateur Inscription : juin 2006 Messages : 6 233 Détails du profil Informations personnelles : Sexe : Âge : 52 Localisation : Suisse Informations professionnelles : Secteur : Administration - Collectivité locale Informations forums : Inscription : juin 2006 Messages : 6 233 Points : 9 903 Points : 9 903	Re, Quand tu parlais de mise en veille, tu parlais de l'écran, ou de l'arrêt des disques durs ? Domi2 __________________ Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor) Ici, on ne perd pas de temps ! On en passe... Access : créer des codes-barres 128 en VBA Access : les commandes intégrées des menus Ce message (ou un autre) vous a aidé ? Votez pour lui avec
	00

19/07/2007, 11h14	#3
lio33 Membre habitué Inscription : octobre 2003 Messages : 483 Détails du profil Informations personnelles : Localisation : France, Gironde (Aquitaine) Informations forums : Inscription : octobre 2003 Messages : 483 Points : 136 Points : 136	Il est possible de mettre un timer dans l'application ACCESS qui sort de l'application dés que l'heure système atteint une valeur prédéfinie. Par contre si le PC reste inactif un certain temps et passe en mode veille l'application ne peut plus effectuer ce traitement.
	00

19/07/2007, 11h48	#5
lio33 Membre habitué Inscription : octobre 2003 Messages : 483 Détails du profil Informations personnelles : Localisation : France, Gironde (Aquitaine) Informations forums : Inscription : octobre 2003 Messages : 483 Points : 136 Points : 136	C'est pour le moment la solution vers laquelle je me dirige !
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email