Discussion :

[niamo]

Bonjour à tous, voilà j'ai fais un recordSet qui est censé afficher un ensemble de propriétés mais n'en affiche qu'une seule (1ere de la table).

Voici le code, je n'ai pas trop l'habitude d'utiliser les recordSet, pouvez vous me dire d'où ça vient ?

Code :

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

1
2
3
4
5
6
7
Dim db As DAO.Database, rst As DAO.Recordset
Dim sSQL As String
' Ouverture de la base de données
Set db = CurrentDb
sSQL = " SELECT * FROM TblARTICLES;"
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
MsgBox (rst("REF"))

[oOXimOo]

Pour afficher tous les éléments tu dois faire une boucle, comme ceci :

Code :

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

1
2
3
4
While Not rst.EOF
    msgbox rst.Fields("REF")
    rst.MoveNext
WEnd

[niamo]

Meci oOXimoOo