Discussion :

[James C]

Bonjour,

Débutant en VBA sur Access, je cherche à identifier les différentes utilisateurs de ma base.
Pour ce faire je récupère le nom de session, en ENVIRON("USERNAME"), et je vérifie s'il est déjà présent dans une table de ma bdd.

Dans cette table de ma BDD j'ai donc le username, l'e-mail (que je demande à la première connexion), et des booléens Oui/Non pour les autorisations de ce qu'ils ont droit de faire ou non.

J'ai du mal à réaliser la partie vérification de la présence ou non du username dans ma abse de données. Je ne comprends pas pourquoi. Voir le code ci-dessous :

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
Option Compare Database
 
Function authentification_user()
Dim string_utilisateur As String
Dim email As String
string_utilisateur = Environ("USERNAME")
 
 
If EntreeExiste(string_utilisateur) = False Then
    MsgBox "Ajout de la personne"
    string_email = InputBox("Première connexion : renseignez votre adresse e-mail : ", "Première connexion")
    Set t = CurrentDb.OpenRecordset("users", DB_OPEN_DYNASET)
    t.AddNew
    t![utilisateur] = string_utilisateur
    t![email] = string_email
    t![droit_ajout] = True
    t![admin] = False
    t.Update
    t.MoveLast
Else
    MsgBox "Existe déjà"
End If
 
End Function

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
Public Function EntreeExiste(ByVal NomEntree As String) As Boolean
 
Dim db As Database
Dim Rct_Dbl As Recordset
Dim str_dbl As String
 
Set db = CurrentDb
str_dbl = "SELECT Users.[utilisateur]" & _
            "FROM Users" & vbCrLf & _
            "WHERE (((Users.utilisateur) = '" & NomEntree & "'))"
 
Set Rct_Dbl = db.OpenRecordset(str_dbl)
If Not (Rct_Dbl.BOF And Rct_Dbl.EOF) Then
    EntreeExiste = False
Else
    EntreeExiste = True
End If
 
End Function

Merci d'avance pour votre aide, j'en profite pour dire que si vous avez des bonnes vidéos/site web pour apprendre le langage SQL (qui semble indispensable pour Access) et sur l'organisation Access je suis preneur !

James C

[ONTAYG]

Bonjour,

Pour une vérification simple comme cela utilise la fonction de domaine DLookup, tu as de nombreux exemples sur le forum.

ONTAYG

[James C]

J'ai regardé des exemples, mais ça ne marche toujours pas, et je ne comprends toujours pas pourquoi (ni mon premier code, ni celui ci-dessous)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function EntreeExiste(ByVal NomEntree As String) As Boolean
On Error GoTo ErrorHandler
 
MsgBox NomEntree
If DLookup("[utilisateur]", "Users", "[utilisateur] =" & NomEntree) <> Null Then
    EntreeExiste = True
End If
Exit Function
 
ErrorHandler:
    EntreeExiste = False
End Function

Ca me retourne EntreeExiste = False tout le temps, même quand dans la table il y a déjà l'utilisateur enregistré.

[James C]

Bon, j'ai toujours pas compris le pourquoi du comment mais DLookup ne renvoit pas Null lorsqu'il ne trouve pas (contrairement à tout ce que j'ai pu lire...).

Donc j'ai bricolé un code qui marche (un peu par magie!), et qui est probablement à des années lumière de ce qu'il devrait être pour réaliser ce que je veux. Le voici :

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
Function authentification_user()
Dim utilisateur As String
Dim email As String
Dim string_utilisateur As String
 
string_utilisateur = Environ("USERNAME")
 
 
If EntreeExiste(string_utilisateur) = False Then
    string_email = InputBox("Première connexion : renseignez votre adresse e-mail : ", "Première connexion")
    Set t = CurrentDb.OpenRecordset("users", DB_OPEN_DYNASET)
    t.AddNew
    t![utilisateur] = string_utilisateur
    t![email] = string_email
    t![droit_ajout] = True
    t![admin] = False
    t.Update
    t.MoveLast
Else
End If
 
End Function
 
Public Function EntreeExiste(NomEntree) As Boolean
 
If DLookup("[utilisateur]", "Users", "[utilisateur] ='" & NomEntree & "'") = NomEntree Then
    EntreeExiste = True
    Exit Function
Else
    EntreeExiste = False
End If
End Function

[tee_grandbois]

Bon, j'ai toujours pas compris le pourquoi du comment mais DLookup ne renvoit pas Null lorsqu'il ne trouve pas (contrairement à tout ce que j'ai pu lire...).

le Null ne se teste pas par comparaison (=, <>, > ...) mais par son existence avec Isnull:

Code :

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

If IsNull(DLookup("[utilisateur]", "Users", "[utilisateur] =" & NomEntree)) Then

Donc j'ai bricolé un code qui marche (un peu par magie!)

ce n'est pas par magie, tu as juste testé l'égalité au lieu de l'existence de Null

sinon pour éviter de tester le Null, autant le faire disparaitre avec Nz (grâce au vide: vbNullString ou ""):

Code :

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

1
2
If Nz(DLookup("[utilisateur]", "Users", "[utilisateur] =" & NomEntree) , "") <> vbNullString Then
    EntreeExiste = True

ou également en accolant le résultat avec du vide:

Code :

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

If DLookup("[utilisateur]", "Users", "[utilisateur] =" & NomEntree) & "" <> "" Then