rechercheRésolu

Question

Bonjour 

j'ai une table je voudrai cherche les même numeros de cheque dont les numeros en double où plus
le premier recordecount = au nombre d'enregistrement (985)

le probleme apres le filtre il garde le recordcount a 1 malgre qu'il y a le movenext et next i

VOICI LE CODE

Private Sub deb_Click()
Max = 0
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Filter = "ch <> '" & Null & "'"
Adodc1.Recordset.Sort = "ch"
Max = Adodc1.Recordset.RecordCount


For i = 1 To Max
chq = Adodc1.Recordset.Fields(3).ValueAdodc1.Recordset.Filter "[ch]'" & Trim(chq) & "'"

If Adodc1.Recordset.RecordCount > 1 Then
For j = 1 To Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Fields(0).Value = "DOUBLE"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Next j
End If

Adodc1.Recordset.MoveNext
End If
Next i


End Sub

Renfield · Accepted Answer

je suis pas spécialiste SQL, mais tu pourrais tout faire avec une requête:

UPDATE Table1 SET status='DOUBLE' WHERE ch IN
(SELECT ch FROM Table1
GROUP BY ch
HAVING COUNT(0)>1)

Renfield · Answer

le probleme c'est que tu filtre ton recordset une première fois.
ensuite, tu boucle sur les enregistrements restants.

dans cette boucle, tu appliques un nouveau filtre ("[ch] ='" & Trim(chq) & "'")

le probleme est que tu altères ton recordset a chaque fois...

cs_zaatout · Answer

SALUT 

Merci du fonf de coeur ca marche bien le UPDATE

bye   a +

Recherche

3 réponses

Votre réponse

Discussions similaires