Bonsoir,
Je voulais, à partir de la baseA, ouvrir une autre baseB par un bouton command.
J'ai utilisé le code suivant tiré de l'aide en ligne en l'adaptant à mon cas avec la commande 'CALL DisplayForm("BaseB", "FormB') dans la baseA.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim appAccess As Access.Application Sub DisplayForm(strDB As String, stForm As String) ' Create new instance of Microsoft Access. Set appAccess = CreateObject("Access.Application") ' Open database in Microsoft Access window. appAccess.OpenCurrentDatabase strDB ' Open Orders form. appAccess.DoCmd.OpenForm stForm '"Orders" End Sub
J'obtiens une erreur 7866 :La baseB existe et elle n'est pas ouverte.Microsoft Access n'a pas pu ouvrir la base, car celle-çi est manquante, a été ouverte par un autre utilisateur en mode exclusif ou n'est pas un fichier ADP.
Reste donc le motif qu'elle n'est pas un fichier ADP.
Comment la transformer en fichier ADP ?
Merci de votre aide.
Amitiés
Partager