Discussion :

[xargin]

Bonjour,
j'ai ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Do Until rsverifnbmp.EOF
    MsgBox ("salut2")
        nb = rsverifnbmp.Fields("nbmp").Value
        nom = rsverifnbmp.Fields("NomMP").Value
        MsgBox (nom & ", " & nb)
        Dim stock As String
        Dim rsstock As DAO.Recordset
        Dim entree
        Dim datem
        Dim Etat2
        Dim besoin
 
        stock = "SELECT NomMP, QteEntree, Etat, DateMouvement, BesoinCde "
        stock = stock & " FROM StockMP WHERE NomMP='" & nom & "' and QteEntree >0 or BesoinCde>0"
        Set rsstock = CurrentDb.OpenRecordset(stock)
        rsstock.MoveFirst
        Do Until rsstock.EOF
            'If (nb >= 2) Then
                If (IsNull(rsstock.Fields("QteEntree").Value) And (nb >= 2)) Then
 
                    besoin = rsstock.Fields("BesoinCde").Value
                    Etat2 = rsstock.Fields("Etat").Value
                    datem = rsstock.Fields("DateMouvement").Value
                    MsgBox (Etat2 & ", " & datem & ", " & besoin)
 
                    Me.BesoinCde = besoin
                    Me.Etat = Etat2
                    Me.DateMouvement = datem
 
                ElseIf (IsNull(rsstock.Fields("BesoinCde").Value) And (nb >= 2)) Then
 
                    entree = rsstock.Fields("QteEntree").Value
                    Etat2 = rsstock.Fields("Etat").Value
                    datem = rsstock.Fields("DateMouvement").Value
                    MsgBox (Etat2 & ", " & datem & ", " & entree)
 
                    Me.DateMouvement = datem
                    Me.Etat = Etat2
                    Me.QteEntree = entree
 
                End If
                MsgBox ("salut3")
            'End If
            rsstock.MoveNext
        Loop
        rsverifnbmp.MoveNext
    Loop

mais ca fonctionne pas. le nb>=2 ne semble pas interprete, ce qui me donne une boucle infinie.
Je ne sais pas d'où vient le probleme.
Merci de votre aide

[Godzestla]

Bonjour,

en vitesse car je n'ai quasi pas regardé.

1) NB>=2 n'a rien a voir avec ta boucle infinie car il ne conditionne pas la boucle mais 1 IF.

2) tes DO until ne me plaisent pas. Le DO until effectue au moins 1 fois la boucle, même si la condition n'est pas remplie, contrairement au Do While qui ne rentre pas dans la boucle si la condition n'est pas remplie (attention la condition doit être inversée entre le While et le until).

Moi je mettrais While et si porblème persiste, vive le debug.

3) il te manque le close pour rsstock et le set = nothing.

Voilà quelques pistes.