Discussion :

[mimosa7]

Bonjour a tous,

j'ai un formulaire qui a chaque fois qu'un usager entre dedans, son nom est inscrit dans une table nommé TEMPO
Lorsque l'usager clique sur le bouton Quitter dans le formulaire, son nom dans la table TEMPO s'efface et quitte donc le formulaire ou l'application Access.

Mon probleme, c'est que si jamais l'application se ferme subitement ou que l'usager utilise un CTRL+ATL+DEL pour quitter l'application au lieu de qcliquer sur le bouton Quitter dans le formulaire, son nom reste dans la table TEMPO, et cela empeche donc le prochain utilisateur de rentrer dans le formulaire car un usager peut rentrer dans le formulaire la fois et lui dit donc qu'il y a deja un usager dans la base.

Comment faire svp pour vider automatiquement la table TEMPO si l'usager quitte subitement l'application sans utliser le bouton quitter.
Merci de votre aide !

[HookerSeven]

Salut,

Oui tu peux pallier ton problème en vidant tout simplement ta table à l'ouverture de ton application ou de ton formulaire de démarrage..(Ca marche pour mon apply où j'avais le même problème !)

Sinon il doit y avoir un moyen en reconnaissant la fermeture de ta base; mais je ne suis pas encore là , désolé

HookerSeven

[mimosa7]

Salut,

merci pour ta reponse mais malheureuseusement je ne peux pas faire cela, car si jamais je vide ma table a l'ouverture, plusieurs utilisateurs pourront rentrer en meme temps dans le formulaire et c'est ca que je ne veux pas.

je veux juste vider la table lorsque l'application se ferme mal, car meme si c'est le meme utilisateur qui essaie de re-entrer dans le formulaire, le systeme lui dira qu'il y a deja quelqu'un dedans tu comprends.

merci pour ton aide quand meme !

[Maxence HUBICHE]

ben ...
essaie de vérifier que l'utilisateur actuellement mentionné dans la table est réellement connecté...

[mimosa7]

Salut Maxence,

desole pour mon manque de connaissance, mais peux tu me dire comment faire pour verifier si l'utilisateur est reeelement connecté?

car le systeme le reconnait connecte des que son nom est dans le champ de la table et je dois manuellement le supprimer pour qu'il puisse re-entrer dans le formulaire.

Merci !

[Maxence HUBICHE]

Dans un module tout vierge, tu colles ceci :

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
Option Compare Database
Option Explicit
 
'Définition d'un type pour l'enregistrement de lecture du LDB
Type record
    ComputerName As String * 32
    UserName As String * 32
End Type
 
'Variable pour les utilisateurs connectés
Dim ConnectedUsers() As String
 
Private Sub GetUserConnected()
    'Procédure pour définir la liste des utilisateurs connectés
    Dim s As String     'Variable pour la chaine (path du LDB)
    Dim l As Long       'Variable pour un numérique (n° de fichier ou len du path)
    Dim r As record     'Variable pour l'enregistrement
    Dim i As Long       'Variable de compteur
 
    'Définition du path du LDB
    s = CurrentDb.Name
    l = Len(s) - 2
    Mid(s, l, 3) = "ldb"
 
    'Lecture des enregistrements du fichier et remplissage de la variable ConnectedUsers
    l = FreeFile
    Open s For Random Access Read As #l Len = Len(r)
    ReDim ConnectedUsers(0)
    Do Until EOF(l)
        Get #l, , r
        ReDim Preserve ConnectedUsers(i)
        ConnectedUsers(i) = Left(r.UserName, InStr(r.UserName, Chr(0)) - 1)
        i = i + 1
    Loop
    Close
End Sub
 
Public Function IsUserConnected(ByVal sUserName As String) As Boolean
    'fonction pour définir si un utilisateur est connecté à la base de données en cours
    'Argument : nom de l'utilisateur à tester
    Dim i As Long   'Variable pour la boucle
    GetUserConnected
    For i = LBound(ConnectedUsers) To UBound(ConnectedUsers)
        If sUserName = ConnectedUsers(i) Then
            IsUserConnected = True
            Exit Function
        Else
            'on continue les tests
        End If
    Next
End Function

Pour utiliser ce code, tu peux, par exemple faire :

Code :

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

1
2
3
4
5
6
7
8
If IsUserConnected (UserName) then
    .....
    .....
    .....
Else
    .....
    .....
End if

ce n'est pas du sûr à 100% ...
Il y a d'autres solutions...
Mais déjà, avec ça, tu as de quoi faire

[mimosa7]

Merci beaucoup pour ton aide !!!