Discussion :

[helenafr]

Bonjour, j'ai rencontré un problèm un peu étrange ...

la table "product" comprend 2 colonnes 'demand' et 'stock', je voudrais trouver les products qui ont leur 'stock' = 'demand'

mon code marche très bien seulement quand tous les produits peuvent satisfaire 'stock' = 'demand' , s'il y a une ligne ne le respecte pas, l'exécution n'a plus de réponse...

merci d'avance de me débloquer!

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
 
Sub test()
    Dim s
    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Set DB = Application.CurrentDb
    Set RS = DB.OpenRecordset("product", dbOpenTable, dbReadOnly)
    RS.MoveFirst
    Do
        If CStr(RS.Fields("demand").Value) = CStr(RS.Fields("stock").Value) Then
            s = RS.Fields("Stock").Value
            MsgBox s
            RS.MoveNext
        End If
 
    Loop Until RS.EOF = True
    RS.Close
    Set RS = Nothing
    Set DB = Nothing
End Sub

[borisa]

salut,
tu as mis le rs.movenext DANS le if...
a+
b.