ouverture base de données 2 tout en gardant ouverte la base 1

Bonsoir,

Si tu veux simplement te connecter à une autre base, tu peux utiliser ça :

Dim Db As DAO.Database
Set Db = DBEngine.Workspaces(0).OpenDatabase(NomBaseComplet)
......
Set Db = Nothing


Pour ouvrir une nouvelle fenêtre Access :

Dim AccApp As New Access.Application
AccApp.Visible = True
AccApp.OpenCurrentDatabase ("D:Mes documentsbd1.mdb")
.....
Set AccApp = Nothing

Gilbert


"Rodius1964" <Rodius1964@discussions.microsoft.com> a écrit dans le message
de news:4F5F3845-06B7-4E7C-8B07-01382C2E602B@microsoft.com...

Bonjour tout le monde,

J'ai une base de données 1 (appelée 'gen'), et je souhaiterais créer un
code

sur click bouton qui me permette d'ouvrir la base de données 2 (appelée
'sup') tout en gardant la base 1 ouverte.

j'ai essayé plusieurs codes, entre autres le suivant, mais à chaque fois,
ma

base 1 se ferme.

quote
-------

Private Sub GEN_DB_Click()

Bas = "DDBsup.mdb"

SendKeys "^o" & Bas & "~", False

End Sub

unquote
----------

Merci par avance pour votre précieuse aide.
A.M.