cs_Bzz
Messages postés25Date d'inscriptionjeudi 25 avril 2002StatutMembreDernière intervention11 février 2005 1 févr. 2005 à 12:50
Dim db as database
Dim dbrec as recordset
Dim champ1 as string
Set db=Currentdb
Set dbrec=db.openrecordset("SELECT * FROM POUET", db_opentable)
Do while not dbrec.eof
champ1=dbrec(0)
dbrec.movenext
Loop
dbrec.close
db.close