Discussion :

[integrale]

Bonjour,

me voici à nouveau quémandant un peu d'aide...dans la lignée de ce qui est dit ici...j'ai effectivement converti ma table en tableau

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
Dim db As Database
Dim rs As Recordset
Dim varprenom() As String
Dim i As Integer
Dim j As Integer
  Set db = CurrentDb()
   Set rs = db.OpenRecordset("T_Liste", dbOpenTable, dbForwardOnly)
i = rs.RecordCount
For j = 1 To i
ReDim varprenom(j)
   varprenom(j) = rs!prenom & ""
    rs.MoveNext
If Cmb_Rech3 = varprenom(j) Then
    MsgBox "cette personne est enregistrée dans le système", vbInformation, "Casier judiciaire Existant"
Else
 
  MsgBox "Cette personne n'est pas listée dans le registre des Abonnés.", vbInformation, "Non Enregistré"
 
 
End If
Next j
        rs.Close
        db.Close

Mais mon objectif est de comparer la valeur saisie dans Cmb_Rech3 à la liste des données retournée par le recordset... la boucle que j'ai utilisée

Code :

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

if cmb_rech3= varprenom(j)

) ne marche pas ...J'arrive à lire l'ensemble des données en codant:

Code :

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

Msgbox(varprenom(j))

Mais j'obtiens tjrs le message que cette personne n'est pas listée.....Un coup de pouce car je sens que c'est au niveau de la comparaison que cela ne marche pas...l'idée serait de dire ( si Valeur saisie (cmb_Rech3) est dans la liste (varprenom(j)) alors "Trouvé"....

Integrale

[Gary_Stoupy]

Bonjour,

Lorsque tu fais ton test, fais plutot un strcomp vu que ca a l'air d'être des strings que tu compare... Un truc dans le style :

Code :

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

1
2
3
4
5
if(strcomp(me.cmb_rech3, varprenom(j)) = 0) then
    Msgbox ("ok")
else
    Msgbox ("nok")
end if

Je changerai meme cette partie car la, tu va avoir autant de msgbox que d'enregistrements dans ta table. Définis une valeur de test à 0 que tu change à 1 si tu trouve le prenom dans la base (et a ce moment la, tu sors du for)
A la fin du for, tu test ta variable et tu peux ainsi dire si le prenom est dans ta table ou pas...

Par contre, après un rapide coup d'oeil, je ne vois pas d'erreur de code au niveau du recordset à proprement parler