Discussion :

[choubak]

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

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if recordset.EOF .....

[Invité]

Bonjour

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

Starec

[choubak]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[random]

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

[Invité]

Bonjour

Il faudrait faire un test avant ton MovePrevious avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rs.RecordCount = 1

Et donc sauter le MovePrevious.

Starec

[choubak]

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