Requète SQL => résultat

[stefane26]

Bonsoir
J'ai créé une réquelle SQL, créé un code pour vérifier une données mais cela ne fonctionne pas et je ne trouve pas le soucis.
En PJ la structure de mes tables et ci-dessous le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Bt_OK_Click()
Dim str_identification, util As String
Dim enreg As Recordset
 
 
util = Me.txt_Utilisateur
str_identification = "SELECT * FROM tbl_ComptesUtilisateur WHERE utilisateur= '" & util & "'"
Set enreg = CurrentDb.OpenRecordset(str_identification)
 
If enreg.Fields(8).Value = "1" Then
DoCmd.OpenForm "Form_MenuGeneral", acNormal, , , , acDialog
Else
MsgBox " pas administrateur"
End If
 
 
enreg.Close: Set enreg = Nothing
 
End Sub

[marot_r]

As-tu vérifé que dans l'éditeur de requête ta requête retourne bien des infos ?

De plus si tu le code d'utilisateur n'est pas dans ta table, tu vas avoir un erreur lorsque tu vas essayer de lire les données associée.

Ensuite je t'invite vivement a utiliser le nom du champ plustôt que son index. Si tu modifiesta requête les champs risquent de se déplacer et tu ne le saura pas. Si tu change le nom du champ Access va crier qu'il ne le trouve pas.

en plus enreg.Fields("NomTonChamp") c'est quand même plus lisible que enreg.Fields(8).Value surtout avecun select *. Tu peux aussi utiliser l'ancienne syntaxe enreg![NomTonChamp].

A+