|
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".
|