boucle sur recordset

Bonjour,

J'ai un problème avec ma boucle qui devrait rechercher sur 2 recordset.
J'ai le champ "auto" qui se trouve dans T_PARTAGE et T_ENTREPRISE (2 tables).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

... Set dbs = CurrentDb Set rst = dbs.OpenRecordset("T_PARTAGE") Set rst2 = dbs.OpenRecordset("T_ENTREPRISE")   Do Until rst.EOF If rst!AUTO = rst2!AUTO Then MsgBox "o" Else MsgBox "erreur " & rst.Fields("AUTO") & " - " & rst2.Fields("AUTO") End If rst.MoveNext Loop

---

En fait bien la boucle sur rst mais pas sur rst2...
cela donne en msgbox faux :
95200 - 1560
95201 - 1560
95202 - 1560

en fait je voudrais qu'il trouve rst!auto = rst2!auto

merci d'avance pour votre aide.
MAMANHOU

Bonsoir,

Comme tu le dis si bien :

Citation:

---

En fait bien la boucle sur rst mais pas sur rst2...

---

Ton code ne boucle pas sur le rst2, il faudrait rajouter un

Code:

---

Do Until rst2.EOF

---

Ce sera un code du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

... Set dbs = CurrentDb Set rst = dbs.OpenRecordset("T_PARTAGE") Set rst2 = dbs.OpenRecordset("T_ENTREPRISE")   Do Until rst.EOF Do Until rst2.EOF If rst!AUTO = rst2!AUTO Then MsgBox "o" Else MsgBox "erreur " & rst.Fields("AUTO") & " - " & rst2.Fields("AUTO") End If rst2.MoveNext Loop rst.MoveNext Loop

---

Moi, je préfère utiliser un

Code:

---

1 2 3

While Not rst.EOF .... Wend

---

pour parcourir les recordset

Cordialement,

Bonjour,

C'est à but didactique ce genre d'exercice ?

Sinon il vaut mieux passer par une requête pour avoir les correspondances ou les non correspondances d'enregistrements.

Cordialement,

merci pour votre aide mais cela ne marche pas :
Résultat

95200 -1560
95200 - 1561
95200 - 1562
...

Je continue à chercher :?
Mamanhou

Bonjour Loufab,

en fait mon code sera au final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

... Set dbs = CurrentDb Set rst = dbs.OpenRecordset("T_PARTAGE") Set rst2 = dbs.OpenRecordset("T_ENTREPRISE")   Do Until rst.EOF If rst!AUTO = rst2!AUTO Then 'je supprime les enregistrements dont rst!AUTO = rst2!AUTO STR = "DELETE T_Entreprise.* FROM T_Entreprise WHERE ([AUTO]=" & rst.Fields("AUTO") )" CurrentDb.Execute STR End If rst.MoveNext Loop

---

j'aimerai qu'il boucle sur T.PARTAGE et T.ENTREPRISE ; s'il trouve des enregistrements dans T.ENTREPRISE dont AUTO = AUTO de T.PARTAGE il les supprime
Le bouton de contrôle est sur un simple formulaire indépendant non lié au table.

mamanhou

A la base si on utilise une boucle pour un traitement sur une table c'est que le modèle de base de données est pourri. Vu la simplicité de la relation entre ses 2 tables je pencherais pour des carences en matière de connaissance SQL.

Crée une requête SELECT de correspondance entre les 2 tables, lorsque ça affiche les bons enregistrement et transforme-la en requête DELETE.

Cordialement,

Merci, je vais travailler la-dessus.
Mamanhou