Pytanie : Dlaczego móc Dojazdowy baza danych otwierać w nowy okno używać Dostęp VBA?

I mieć to:

How móc Dojazdowy baza danych otwierać w nowy okno używać Dostęp VBA?

Public Okręt podwodny OpenDatabase (DatabaseName)

Dim strDB Jako String
Dim appAccess Jako Access.Application
Dim strFilename Jako String
Dim PathIs Jako String

'** Wykrywać path
'PathIs = Application.CurrentProject.Path

DriveLetter = Opuszczać (Application.CurrentProject. Path, 1)
PathIs = DriveLetter & ": \" & DatabaseName
strDB = PathIs & "\" & DatabaseName & ".accdb "

'** Tworzyć nowy przykład Microsoft Access.
Set appAccess = CreateObject ("Access.Application")

'** Otwarty baza danych w Microsoft Dojazdowy window.
appAccess.OpenCurrentDatabase strDB

'** Otwarty AutoExec form.
appAccess.DoCmd.OpenForm "AutoExec "

End Sub
Public Okręt podwodny OpenDatabase (DatabaseName)

Dim strDB Jako String
Dim appAccess Jako Access.Application
Dim strFilename Gdy String
Dim PathIs Jako String

'** Wykrywać path
'PathIs = Application.CurrentProject.Path

DriveLetter = Opuszczać (Application.CurrentProject. Path, 1)
PathIs = DriveLetter &": \ "& DatabaseName
strDB = PathIs &" \ "& DatabaseName &" .accdb "

'** Tworzyć nowy przykład Microsoft Access.
Set appAccess = CreateObject ("Access.Application")

'** Otwarty baza danych w Microsoft Dojazdowy window.
appAccess.OpenCurrentDatabase strDB

'** Otwarty AutoExec form.
appAccess.DoCmd.OpenForm "AutoExec "

End Sub

Odpowiedź : Dlaczego móc Dojazdowy baza danych otwierać w nowy okno używać Dostęp VBA?

Ty zrobić jakaś zmiana na the GAL?
jeżeli tak ty można replikacja.