test sur recordset

Bonjour,

Je n'arrive pas à trouvé la solution ou je n'y comprend rien.

Comment fait on un test sur un recodset. Plus présisément savoir si il ya plus d'un enregistrement

Bonjour,

Code:

---

1 2	if recordset.EOF .....

---

Bonjour

Je te conseille d'aller lire le tuto sur DAO de Christophe, tu auras toutes les infos.

Starec

merci pc75 de ta réponse mais la condition suivante teste si le recordset est vide

Code:

---

if not recordset.EOF then

---

en algorithme moi je veut ça
si recordset=1 enregistrement alor
rien
sinon
findfirst
moveprevious

parceque si mon recordset = 1 alors mon moveprevious plante

voici mon code si ça peut aider quelqu'un

Code:

---

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

Sub recherche_quantité() DoCmd.RunCommand acCmdSaveRecord Dim Db As Database Dim RS As Recordset Set Db = CurrentDb Set RS = Db.OpenRecordset("select * from Mouvement where [Code P2K]= '" & Code_P2K & "' ", dbOpenDynaset) RS.FindFirst ("[ID mouvement] = " & Id_Mouvement & " ") RS.MovePrevious Quantité = RS("Quantité restante") RS.Close Db.Close Set RS = Nothing Set Db = Nothing End Sub

---

si je fais moveprevious (aller au précédent) sur l'enregistrement 1
je ne sais pas où aller

Bonjour

Il faudrait faire un test avant ton MovePrevious avec

Code:

---

Rs.RecordCount = 1

---

Et donc sauter le MovePrevious.

Starec

merci starec je vient de trouver la réponse grace à toi
par contre tu as oublié de dire que pour faire un recordcount sur un recordset de type dbopendynaset il faut tous d'abord faire un movelast pour que tous les enregistrement soit visible.

dire que c'est ce petit détail qui m'a fait ...... pendant tant de temp

merci encore