Ouvrir une base Access avec le VBA Résolu/Fermé

Question

Bonjour, 
Je voudrais ouvrir une base Access à partir d'un bouton de commande 'une autre base, j'utilise la fonction, que j'ai copié depuis le tutoriel:
CreateObject("Access.Application").OpenCurrentDatabase  "MaBase"
mais ça ne va pas.
Plus exactement, la base s'ouvre correctement en pas à pas, mais se referme aussitôt quand la procédure se termine.
Quelle est l'étape que j'ai ratée? Je vous remercie de votre aide.



Configuration: Windows 7 / Chrome 43.0.2357.81

f894009 · Answer

Bonjour,

ouverture, lecture et fermeture base access exterieure a la base d'appel

Private Sub Cmd_connect_base_externe_Click()
    Dim DbExt As dao.Database
    Dim rs As dao.Recordset
    Dim SQL As String, x
    
    Set DbExt = OpenDatabase("D:\Bons_Travaux_ODBC\Equipement_Bons_Travaux.accdb")
    SQL = "select * from BdD_Bon"
    Set rs = DbExt.OpenRecordset(SQL, dbOpenDynaset)
    
    x = rs(1)
    Set rs = Nothing
    DbExt.Close
    Set DbExt = Nothing
End Sub

Tessel75 · Answer

Bonjour,
Merci de ta réponse.
Mais ça ne passe pas. J'ai oublié de dire que la base annexe s'ouvre directement avec un formulaire, en fait elle ne contient qu'un seul formulaire, une table, une requête. 
Je pense que ce qui manque est la commande d'ouverture après la commande: "Set DbExt = OpenDatabase (AAAA.accdb)"

f894009 · Answer

Re,

si c'est ouvrir une base:

https://www.developpez.net/forums/d437884/logiciels/microsoft-office/access/vba-access/ouvrir-base-access-vba/

Tessel75 · Answer

Bonjour, F894009
Malheureusement rien ne marchait comme je voulais. Finalement j'ai pu reprendre, dans mes vieilles bases gardées en archives, une expression que j'avais récupérée sur un bouquin en ????: 
Call Shell ("MsAccess" & "" &" CheminComplet/NomBase.accdb" &"", acNormal) 
Et ça ouvre la base exactement comme je voulais.
Merci de ton aide.