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
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 ![:(](https://www.developpez.net/forums/images/smilies/icon_sad.gif)
if cmb_rech3= varprenom(j)
) ne marche pas ...J'arrive à lire l'ensemble des données en codant:
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
Partager