Discussion :

[AndréPe]

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 :

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.

La baseB existe et elle n'est pas ouverte.
Reste donc le motif qu'elle n'est pas un fichier ADP.
Comment la transformer en fichier ADP ?
Merci de votre aide.
Amitiés

[fab.85]

Bonjour,

voici une méthode qui fonctionne chez moi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Commande5_Click()
 
Set AppAccess = New Access.Application
 
AppAccess.OpenCurrentDatabase "C:\Chemin de la base B\Base B.accdb"
AppAccess.Visible = True
 
End Sub

Cordialement,

Fabien.

[fab.85]

Oups! mettre aussi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Compare Database
 
 
Dim AppAccess As Access.Application

[AndréPe]

Merci de ces deux suggestions complémentaires.
Ca fonctionne aussi chez moi !
Et c'est plus simple que ce que j'avais trouvé.
Une fois de plus le forum a servi a bien joué son rôle.
Amitiés à tous

[AndréPe]

Je reprends la discussion, car je ne parviens pas à fermer la baseA après être passé à la baseB.
Comment faire ?
Amicalement

[ClaudeLELOUP]

Bonjour,

Par exemple comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
 
Private Sub LeBouton_Click()
Dim LeChemindetonFichier As String
LeChemindetonFichier = "C:\MesDocuments\ForumAccess\LAutreBase.mdb"
'Pour ouvrir l'autre base
Shell "C:\WINDOWS\EXPLORER.EXE " & LeChemindetonFichier, vbNormalFocus
 
'Pour fermer celle dans laquelle tu te trouves
Quit
 
End Sub

L'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "C:\WINDOWS\EXPLORER.EXE " & LeChemindetonFichier, vbNormalFocus

équivaut à un double-clic sur le nom d'un fichier quelconque => il s'ouvre avec le programme associé à l'extension.

[fab.85]

Bonjour,

merci ClaudeLELOUP pour cette deuxième solution qui marche parfaitement SURTOUT lorsque la deuxième base nécessite un mot de passe à l'ouverture...

Cordialement,

Fabien.

[AndréPe]

Bonjour,
Merci à ClaudeLELOUP pour cette intéressante suggestion, qui,appliquée chez moi, n'a bien fonctionné qu'après une petite modification.
En effet, si la baseB s'ouvre bien, aussitôt Access se ferme suite au 'Quit'.
Je l'ai remplacé par 'DoCmd.CloseDataBase' et la baseA s'est bien fermée.
J'ai ajouté aussi un DoEvents,pour laisser le temps à la commande vers l'Explorer de se terminer au calme.
Voiçi la procédure utilisée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
 
Private Sub LeBouton_Click()
Dim LeChemindetonFichier As String
LeChemindetonFichier = "C:\MesDocuments\ForumAccess\LAutreBase.mdb"
'Pour ouvrir l'autre base
Shell "C:\WINDOWS\EXPLORER.EXE " & LeChemindetonFichier, vbNormalFocus
 DoEvents
'Pour fermer celle dans laquelle tu te trouves
docmd.CloseDataBase
 
End Sub

A+