logo UsualSoft   Skip Navigation Links
Accueil
Références
Formations
TutorielsExpand Tutoriels
Liens téléchargements

Contact : cgruchet@hotmail.com - Tél: 06 22 82 90 55
Microsoft Certified Professional
Trucs et Astuces : Visual-Basic

Imprimer un état Access à partir de VB6

Claude Gruchet  


 

Cet exemple vous dira comment :

 - Lancer Access à partir de code source Visual-basic (la façon de procéder est la même pour Word, Excel ou tout programme Office).

- Ouvrir une base de données à l'aide de l'objet Access ainsi obtenu..

- Lancer l'impression d'un état existant dans la base.

 

NB : La base de données que nous ouvrirons s'appelle TestEtat.mdb et se trouve dans le répertoire C:\Mes Documents\

Pour que ce code puisse fonctionner, il vous faudra référencer la bibliothèque de types MsAccess à l'aide de la commande "Références" du menu "Projet". (par exemple, pour Access 2000, il faudra référencer la bibliothèque Microsoft Access 9.0 Object Library).

 

Sub EtatAccess()
Dim lobjAcc
As Access.Application
   SetlobjAcc = NewAccess.Application
   lobjAcc.OpenCurrentDatabase "C:\Mes Documents\TestEtat.mdb"
   lobjAcc.DoCmd.OpenReport "EtatClients"
  lobjAcc.Quit
  Set lobjAcc = Nothing
d Sub

 

NB : Pour rendre Ms-Access visible dans la barre des tâches, il suffit d'ajouter la constante "acViewPreview" comme argument d'appel de la méthode "OpenReport".