empecher l'ouverture sur plusieurs ordinateurs d'un même utilisateur d'une base fractionnée

**lio62** · 28/10/2023, 16h35

Bonjour,

j'ai une base fractionnée avec plusieurs utilisateurs, les utilisateurs se connectent avec IDENTIFIANT et MDP

je voudrais empêcher qu'un même utilisateur se connecte avec son identifiant sur plusieurs ordinateurs (auquel cas l'identifiant et le MDP ne servent à rien.)

j'ai un formulaire F_UTISIATEUR qui recueille IDENTIFIANT et MDP

lorsque j'ouvre la base j'ai un formulaire F_IDENTIFIANT qui demande IDENTIFIANT et MDP et à la validation

les données sont recueillies dans une table T_UTILISATEUR contenant 2 champs ID et DATE_HEURE.

Comment pourrai-je faire ? en rajoutant un champ (genre compteur) ? je n'ai aucune idée

je vous mets le procédure que j'ai actuellement

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
65
66
67
68
Private Sub VALIDER_Click()
 
 
 
 
    'Appel d'une variable
    Dim valide As String
    'Rechercher le mot de passe correspondant à l'identifiant
    If IsNull(DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")) Then
    MsgBox ("Identifiant inconnu !")
     Me.TXTID.SetFocus
     Me.TXTID = ""
    Else
     valide = DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
    'Si le mot de passe inscrit n'est pas correct alors
    If (Me!MDP <> valide) Or IsNull(Me!TXTID) Or IsNull(Me!MDP) Then
    'Message
    MsgBox ("Mot de Passe incorrect !")
     Me.MDP.SetFocus
       Me.MDP = ""
        'Sinon
 
       Else
 
 
     securite = DLookup("Utilisateur", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
 
       Select Case securite
 
         Case "ADMIN"
         'DoCmd.Close acForm, "F_IDENTIFICATION"
         DoCmd.OpenForm "F_MENU"
 
         Case "GESTPRIN"
         'DoCmd.Close acForm, "F_IDENTIFICATION"
         DoCmd.OpenForm "F_MENU"
 
 
           Case "GESTSEC"
          ' Forms![F_IDENTIFICATION].Visible = False
          'DoCmd.Close acForm, "F_IDENTIFICATION"
          DoCmd.OpenForm "F_MENU"
 
 
 
      Case Else
       End Select      
 
 
End If
End If
 
 
    DoCmd.SetWarnings False
        'Appel d'une variable
        Dim Insert As String
 
        'Insérer dans la table T_Connexion l'identifiant et la date et heure de connexion
        Insert = "INSERT INTO T_Connexion ([ID], DATE_HEURE) " _
                    & "SELECT '" & Me!TXTID & "',#" & Now & "#"
        'Active la variable
        DoCmd.RunSQL (Insert)
        'Réactive les warnings DoCmd.RunSQL (Insert)
        DoCmd.SetWarnings True
        'Fermer le formulaire
 
 
End Sub

merci de votre aide

cordialement

**ONTAYG** · 30/10/2023, 09h57

Bonjour,

Je rajouterais dans ta table T_UTILISATEUR un champ Oui/Non.

Tu tests ce champ si il est vide (false) donc pas connect2 tu mets à oui et tu valides la connexion, si le champ est à vrai tu refuses la connexion.

Il faut juste le mettre à false lorsqu'il quitte Access.

ONTAYG

**lio62** · 07/11/2023, 21h07

Bonsoir et merci ONTAIG

je vais tester celà

cordialement

**nico84** · 08/11/2023, 10h49

Bonjour,

Tout d'abord je ne saurais trop te conseiller d'abandonner

Envoyé par lio62

DoCmd.SetWarnings False
DoCmd.RunSQL (Insert)
DoCmd.SetWarnings True

Et de le remplacer par

Code :

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

CurrentDb.Execute insert, dbFailOnError

Cela permet d'avoir une gestion d'erreur plutot que de laisser les bugs proliférer...

Ensuite il est important de prendre en compte qu'autant il est facile de voir "entrer" un utilisateur" lorsqu'il s'identifie, autant il arrive très souvent qu'il sorte sans le dire (bug, fermeture intempestive...). Le controle que tu souhaites mettre en place va donc très souvent bloquer des gens qui ne sont plus sur le logiciel mais qui sont encore vus comme tels dans la table. Pour éviter cela je ne vois pas d'autre solution que d'analyser le fichier .laccdb qui seul sait qui est réellement connecté ou non.

**lio62** · 08/11/2023, 11h04

Bonjour,

j'ai ajouter une case a cocher dans la table T_UTILISATEUR et une case a cocher qui se nomme "CONNECT" et j'ai mis le code en bleu ci dessous maintenant j'ai une erreur de compilation, membre de methode ou de donnees introuvables

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
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub VALIDER_Click()
 
 
 
 
    'Appel d'une variable
    Dim valide As String
    'Rechercher le mot de passe correspondant à l'identifiant
    If IsNull(DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")) Then
    MsgBox ("Identifiant inconnu !")
     Me.TXTID.SetFocus
     Me.TXTID = ""
    Else
     valide = DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
    'Si le mot de passe inscrit n'est pas correct alors
    If (Me!MDP <> valide) Or IsNull(Me!TXTID) Or IsNull(Me!MDP) Then
    'Message
    MsgBox ("Mot de Passe incorrect !")
     Me.MDP.SetFocus
       Me.MDP = ""
        'Sinon
 
       Else
 
 
     securite = DLookup("Utilisateur", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
 
       Select Case securite
 
         Case "ADMIN"
         'DoCmd.Close acForm, "F_IDENTIFICATION"
         DoCmd.OpenForm "F_MENU"
 
         Case "GESTPRIN"
         'DoCmd.Close acForm, "F_IDENTIFICATION"
         DoCmd.OpenForm "F_MENU"
 
 
           Case "GESTSEC"

If Me.Connect = False Then
           
                   Me.Connect = True
                   Else
                   MsgBox "deja connecté ", vbInformation
                   
                   End If

          ' Forms![F_IDENTIFICATION].Visible = False
          'DoCmd.Close acForm, "F_IDENTIFICATION"
          DoCmd.OpenForm "F_MENU"
 
 
 
      Case Else
       End Select      
 
 
End If
End If
 
 
    DoCmd.SetWarnings False
        'Appel d'une variable
        Dim Insert As String
 
        'Insérer dans la table T_Connexion l'identifiant et la date et heure de connexion
        Insert = "INSERT INTO T_Connexion ([ID], DATE_HEURE) " _
                    & "SELECT '" & Me!TXTID & "',#" & Now & "#"
        'Active la variable
        DoCmd.RunSQL (Insert)
        'Réactive les warnings DoCmd.RunSQL (Insert)
        DoCmd.SetWarnings True
        'Fermer le formulaire
 
 
End Sub

cordialement

**lio62** · 08/11/2023, 11h45

Bonjour et merci de ton aide NICO84

mais comment analyse t on le fichier laccdb? je n'en n'ai aucune idée si je veux l'ouvrir avec le bloc note je n'ai que des hiéroglyphes ?

CDLT

**lio62** · 08/11/2023, 12h15

j'ai oublié de preciser je suis sur une base fractionnée

**nico84** · 08/11/2023, 12h21

Envoyé par lio62

mais comment analyse t on le fichier laccdb? je n'en n'ai aucune idée si je veux l'ouvrir avec le bloc note je n'ai que des hiéroglyphes ?

Avec notepad++ c'est plus explicite mais j'insiste sur le fait que c'est plus complexe que ça en a l'air et avec juste un booleen ça va bloquer tout le temps

**nico84** · 08/11/2023, 12h24

Envoyé par lio62

j'ai oublié de preciser je suis sur une base fractionnée

Est-ce que la frontale est dupliquée sur les PC utilisateurs ? Si oui il faut regarder la connexion à la dorsale, sinon à la frontale
Attention si la frontale est ouverte sans afficher de données, la dorsale ne voit pas l'utilisateur

**lio62** · 08/11/2023, 12h27

oui la frontale est dupliquée sur les PC utilisateurs

**lio62** · 08/11/2023, 12h37

voila ce que j'ai avec notepad

DESKTOP-80U5T86 Admin

alors là je ne connais pas du tout

**ONTAYG** · 08/11/2023, 13h29

Re

C'est le nom du PC qui est connecté.

Il existe un petit outil, mais je ne sais pas s'il est toujours d'actualité : https://argyronet.developpez.com/dow.../mdbviewer/v4/

ET

https://arkham46.developpez.com/arti...lisateurs-ldb/

ONTAYG

**nico84** · 08/11/2023, 14h16

Le nom du PC connecté se trouve en VBA grâce à la fonction Environ("computername"), le login avec environ("username")

Si le fichier .laccdb contient plusieurs fois Environ("computername") c'est que la connexion en cours est un doublon sur ce PC
Par contre le nom du login est souvent incorrect apparemment : le fichier contient "Admin" et non le log windows, encore moins le nom de l'utilisateur du logiciel

Au final je ne vois donc pas de solution fiable pour répondre au problème posé. Je le fais à titre informatif mais sans blocage car malgré tous mes efforts j'ai 7% de déconnexions fantômes

**lio62** · 08/11/2023, 14h51

merci a tous pour vos réponses, la je suis dépassé.

J' ai fait ca pour le formulaire (mais ca ne sert a rien)

Code :

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

1
2
3
4
5
 If Me.Cocher20.Value = False Then
 
Me.Cocher20.Value = True
Else'MsgBox "deja connecté ", vbInformation
End If

mais pour qu'il vienne me cocher la case a cocher CONNECT sur la table T_UTILISATEUR, je ne trouve pas la syntaxe

merci de votre aide

cdlt

empecher l'ouverture sur plusieurs ordinateurs d'un même utilisateur d'une base fractionnée

IHM

Discussions similaires

Partager

Partager