[Meteora]

Καλησπέρα
Ανοίγω μια άλλη βάση από την τρέχουσα, με χρήση μιας συνάρτησης, που τοποθέτησα στις modules, ώστε να την καλώ από οπουδήποτε.

Function OpenOtherDb(strDbPath As String)
  Dim objAcc As Object
   Set objAcc = CreateObject("Access.Application")
   objAcc.OpenCurrentDatabase strDbPath
   objAcc.UserControl = True
     Application.Quit
End Function

Με την τελευταία της εντολή κλείνω την ενεργό εφαρμογή...

Την εν λόγω συνάρτηση ενεργοποιώ μέσα από ένα κουμπάκι :

Private Sub btn_anathesi_Click()
    OpenOtherDb "C:\myaplic\anathesi.accdb"
End Sub

Με αυτά ελπίζω να λύσεις το πρόβλημά σου...

Καλή συνέχεια / Νίκος