Discussion :

[Rch_Dcrt]

Bonjour, il y a peu j'ai trouvé sur internet un code qui permet de savoir qui est connecté sur la base utilisé et d'avoir la liste des utilisateurs (code de l'ordinateur) qui s'affiche :

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
Dim i As Integer
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentDb.Name & ";Persist Security Info=False;"
 
    ' Open recordset
    Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
 
    'Output the field list
    Debug.Print rs.Fields(0).Name, "|", rs.Fields(1).Name, "|", rs.Fields(2).Name, "|", rs.Fields(3).Name
 
    'Loop through users recordset of users in database.
 
    For i = Me.Userlist.ListCount - 1 To 0 Step -1
        Me.Userlist.RemoveItem 0
    Next
 
    i = 0
    While Not rs.EOF
        Me.Userlist.AddItem Trim(rs.Fields(0)) & ";" & Trim(rs.Fields(1)) & ";" & Trim(rs.Fields(2)), i
        'Debug.Print Trim(rs.Fields(0)), "|", Trim(rs.Fields(1)), "|", Trim(rs.Fields(2)), "|", Trim(rs.Fields(3))
        rs.MoveNext
        i = i + 1
    Wend
 
    ' Close
    If rs.State <> adStateClosed Then rs.Close
    Set rs = Nothing
    Set cn = Nothing

J'aimerais savoir si il est possible, à partir de cette liste obtenue, de pouvoir déconnecter les postes qui sont sur la base de données, ce qui nous éviterais par exemple de faire tous les bureaux entre 12 et 14h pour savoir qui a laissé la base ouverte etc...
Merci d'avance.

[marot_r]

Bonjour.

La réponse courte est "non".

La réponse longue est : "il faut modifier ton application pour permettre cela."

La réponse trichée est : "Vois avec ton admin réseau pour fermer la connexion de l'utilisateur."

Revenons à la réponse longue.

Access me dispose pas de mécanisme pour le faire en standard.
Il faut créer une table (ou utiliser une table de paramètre existante) qui contient un champ "ForcerFermeture" de type booléen (oui/non).
Il faut créer un formulaire avec une minuterie qui va tester une valeur dans la table si ForcerFermeture est à vrai et fermer l'application.
Tu ouvres ce formulaire (caché) moment de l'ouverture de l'application et tu le laisse là.
Pour être aimable avec tes utilisateurs le formulaire peut afficher un message d'alerte et accorder un délais et une possibilité d'annuler la fermeture.

Quand tu veux fermer l'application tu mets [ForcerFermeture] à Oui.

A+

[taz devil]

Salut Rch_Dcrt
Salut René

J ai déja eu ce soucis mais bon moi pour le résoudre j ai utilisé un temps inactivité et des que ce temps est passé la base se ferme toutes seules
jette un coup d oeil a ce post

http://www.developpez.net/forums/d15...ps-inactivite/

Si cela ne te convient pas Rch_Dcrt t inquiéte pas t est entre de bonne main avec René

Merci

[Rch_Dcrt]

C'est pas mal du tout comme technique, ç fonctionne très bien chez moi en tous cas !
merci beaucoup !