Bonjour,
Tu es effectivement sur la bonne voie ! Reste à identifier ensuite les tests exacts que tu souhaites effectuer..! A titre d'exemple :
Est-il possible d'avoir plusieurs utilisateurs enregistrés sous le même nom dans cette table ? Par exemple :
- User1 avec Validation = TRUE
- User2 avec Validation = TRUE
- User3 avec Validation = FALSE
- User1 avec Validation = FALSE
Dans ce cas, ta requête (sur User1) retournerait deux résultats => lequel devra être pris en compte ? True ou False ?
De même, que se passe-t-il si aucun résultat n'est retourné par la requête ?
Petit morceau de code (non testé mais je crois que je n'ai pas pris de risque..
![:mrgreen:](https://www.developpez.net/forums/images/smilies/icon_mrgreen.gif)
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Set rcds = db.OpenRecordset(reqSQL)
'On se place sur le premier enregistrement
rcds.MoveFirst
'Si plus d'un enregistrement, dans tbl_access, est retourné, on n'effectue pas le code
If rcds.RecordCount = 1 Then
'Test de la valeur de Validation
If rcds![Validation] = True Then
MsgBox "Droits d'accès OK"
Else
MsgBox "Accès refusé"
End If
End If
Set db = Nothing
Set rcds = Nothing |
Essaie de t'aider de ça. Et évite d'entrer "en dur" les paramètres de ta requête (notamment le "Utilisateur = 'User'").
Pour tester le contenu de ton recordset : NomDuRecordset!["NomDuChamp"] !
En espérant que ça t'aidera.
Cordialement,
Beub'
Partager