boucle pour affichage d'un ss-formulaire

Question

salut a tous et a toutes..
Je souhaite afficher tous les enregistrement d'une table dans un ss-formulaire composé de textbox...

lorsque je fais :

Dim dbs As DAO.Database
Dim rs As Recordset

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("SELECT * FROM t_stock")

While (Not (rs.EOF))

'traitement avec les textbox

rs.movenext
wend

or, en mode debug, il revient toujours au 1er enregistrement.

Merci d'avance........

cs_EBArtSoft · Answer

Perso j'utilise la methode suivante

Set Rs = OpenRecordset("...")
If Rs.RecordCount then
Rs.MoveFirst
Do While Not Rs.EOF
'... Traitement
Rs.MoveNext
Loop
Endif
Rs.Close
Set Rs = Nothing

@+


E.B.

hamster2combat · Answer

Boucle pour affichage d'un ss-formulaire

2 réponses

Discussions similaires