Discussion :

[Mariboo]

Bonjour,

J'aimerai écrire une ligne de code qui me fasse sortir de mon parcours du Recordset :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
table1.MoveFirst
While table1.EOF = False And table1.BOF = False
    IDPROD = Nz(table1.Fields(0).Value)
    If IDPROD <> 0 Then
        Set requete = Mabd.CreateQueryDef("", "SELECT ....")
        Set table = requete.OpenRecordset()
        .........
        table1.MoveNext
    Else
        table1.MoveLast
    End If
Wend

Le moveLast ne me fait pas sortir de mon While .... je ne comprend pas pourquoi....
ça doit être tout simple mais j'ai cherché dans la FAQ et le forum j'arrive pas à trouver ce que je veux

[argyronet]

Bonjour,

Il te faut utiliser un Do/Loop dans ton While...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
table1.MoveFirst
Do While Not table1.EOF
    IDPROD = Nz(table1.Fields(0).Value)
    If IDPROD <> 0 Then
        Set requete = Mabd.CreateQueryDef("", "SELECT ....")
        Set table = requete.OpenRecordset()
        .........
        table1.MoveNext
        Exit Do
    Else
        table1.MoveLast
        Exit Do
    End If
Loop

Mais bon, ton bloc est bizarre
Quel est le but ?

Argy

[Mariboo]

OK ça marche ....

Sinon mon code est bizarre je sais! c'est que dans mon recordset, les derniers id qu'il va sélectionner sont = à zéro. Et je veux quitter le while lorsque c'est égal à zéro. c'est bizarre expliqué comme ça mais y à tout une manip derrière, j'ai pas le temps d'expliquer !!

MERCI de ton aide !!