Dim MaDbMat As String
Dim MesEtats As Access.Application
MaDbMat = App.Path & "\Gestemp.mdb"
Set MesEtats = New Access.Application
MesEtats.OpenCurrentDatabase MaDbMat, False
' Pour prévisualiser un état en mode plein écran :
MesEtats.Visible = True
MesEtats.DoCmd.OpenReport "Bulletin1", acViewPreview
MesEtats.DoCmd.Maximize
Voilà le code tel que je le mets dans mon application mais j'ai ce message d'erreur:
Erreur d'exécution'7866':
Impossible d'ouvrir la base de données parce que celle-ci est manquante,ou a été ouverte par un autre utilisateur en mode exclusif.
Aidez moi svp.
gbegnonghislain.............................