comment savoir les numéro qui existe plusieur fois dans la meme table

Question

bonjour  c ma 1er quetion ds  ce forum 
je voulé  savoir les numéro qui existe plusieur fois   et l affiche ds un mflxgrid

j ai utilisé  ce code mais  ca marche pas

Private Sub Command1_Click()
datacl.Rows = 1
datacl.Cols = 8
datacl.TextMatrix(0, 0) = "ND            "
datacl.TextMatrix(0, 1) = "code agent           "
datacl.TextMatrix(0, 2) = "activite      "
datacl.TextMatrix(0, 3) = "produit      "
datacl.TextMatrix(0, 4) = "date fin                 "
datacl.TextMatrix(0, 5) = "technicien          "
datacl.TextMatrix(0, 6) = "code inter           "
datacl.TextMatrix(0, 7) = "commentaire   "
Me.datacl.Rows = 1
rs.ActiveConnection = cn
rs.CursorLocation = adUseServer
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic
rs.Open ("tb1")




t = Val(Text1.Text)
rs.MoveFirst
For i = 0 To t
ab1 = rs.Fields(0)
While Not rs.EOF
If rs.Fields(0) = ab1 Then


datacl.AddItem rs.Fields(0).Value & vbTab & rs.Fields(1).Value & vbTab & rs.Fields(2).Value & vbTab & rs.Fields(3).Value & vbTab & rs.Fields(4).Value & vbTab & rs.Fields(5).Value & vbTab & rs.Fields(6).Value & vbTab & rs.Fields(7).Value
End If
rs.MoveNext
Wend
rs.MoveNext
i = i + 1
Next
rs.Close
End Sub

et ca debug dans la rs.movenext 
je sais que je peu pas mettre move next de fois mais j ai pas trouvé une solution 

e merci

keniboys · Answer

ya  personne ???!!!!

lillith212 · Answer

Bonjour, Comme tu as validé ta réponse :"ya personne" les personnes intervenant sur le forum concidère que "ya personne" est la solution à ton problème donc n'ouvre même pas ton message!!! La validation c'est pour le ou les posts qui t'ont permis de résoudre ton problème. Pour infos : Pas de style sms !!! Perso ca me donne même pas envie de te lire, mais je vais t'accorder le benefice du doute et essayer d'aller jusqu'au bout. Alors quel est le message d'erreur exactement? Ensuite : For i = 0 To t ab1 = rs.Fields(0) ---> tu donnes la valeur et ensuite tu compares elle va etre identique car aucun traitement ne la modifie! While Not rs.EOF If rs.Fields(0) = ab1 Then datacl.AddItem rs.Fields(0).Value & vbTab & rs.Fields(1).Value & vbTab & rs.Fields(2).Value & vbTab & rs.Fields(3).Value & vbTab & rs.Fields(4).Value & vbTab & rs.Fields(5).Value & vbTab & rs.Fields(6).Value & vbTab & rs.Fields(7).Value End If rs.MoveNext Wend rs.MoveNext --> Quel est l'interet de faire 2 movenext sachant que celui-ci est en dehors de la boucle? i = i + 1 Next --> En gros je ne comprends pas l'interêt de ce code. Explique toi clairement Merci S.L.B.

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras -- -- De la validation pertinente tu feras -- Du respect tu auras -- <

Comment savoir les numéro qui existe plusieur fois dans la meme table

2 réponses

Votre réponse

Discussions similaires