A voir également:
- Pb visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
1 réponse
Forcement c'est un peu de code :
dim Db as database, Re as recordset
set db=currentdb 'si les tables se trouvent dans la base ou tu ecris ce code sinon c'est set db=opendatabase("chemin de la bdd")
set re=db.openrecordset("nom de la table", dbopentable)
re.movefirst 'faut que la table est au moins un enregistrement sinon il gueule
do until re.eof
re.movenext
loop
voila c'est tout, juste une chose, c'est le code pour Access 97. Pour Access 2000, il faut ajouter une reference . Depuis l'editeur VBA, va dans Outils, References, et choisi Microsoft DAO 3.6 Object Library.
A+
dim Db as database, Re as recordset
set db=currentdb 'si les tables se trouvent dans la base ou tu ecris ce code sinon c'est set db=opendatabase("chemin de la bdd")
set re=db.openrecordset("nom de la table", dbopentable)
re.movefirst 'faut que la table est au moins un enregistrement sinon il gueule
do until re.eof
re.movenext
loop
voila c'est tout, juste une chose, c'est le code pour Access 97. Pour Access 2000, il faut ajouter une reference . Depuis l'editeur VBA, va dans Outils, References, et choisi Microsoft DAO 3.6 Object Library.
A+
