Вопрос : Как можно базу данных доступа раскрыть в новом окне использующ доступ VBA?

Я имею это:

How можно база данных доступа раскрыть в новом окне использующ доступ VBA?

Public Sub strDB

Dim, котор OpenDatabase (DatabaseName) как appAccess String
Dim как strFilename Access.Application
Dim как String
Dim PathIs как String

'** обнаруживает path
'PathIs = Application.CurrentProject.Path

DriveLetter = вышло (Application.CurrentProject. Path, 1)
PathIs = DriveLetter & «: \» & DatabaseName
strDB = PathIs & «\» & DatabaseName & «.accdb " создают новый пример базы данных appAccess Майкрософт Access.
Set =

'** CreateObject

'** («Access.Application») открытой в strDB

Dim
End Sub
Public Sub OpenDatabase
strDB

'** открытом AutoExec form.
appAccess.DoCmd.OpenForm «AutoExec " доступа window.
appAccess.OpenCurrentDatabase Майкрософт (DatabaseName) как appAccess String
Dim как strFilename Access.Application
Dim по мере того как String
Dim PathIs как String

'** обнаруживает path
'PathIs = Application.CurrentProject.Path

DriveLetter = вышло (Application.CurrentProject. Path, 1)
PathIs = DriveLetter &»: \ «& DatabaseName
strDB = PathIs &» \ «& DatabaseName &» .accdb " создают новый пример базы данных appAccess Майкрософт Access.
Set =

'** CreateObject

'** («Access.Application») открытой в
End Sub
strDB

'** открытом AutoExec form.
appAccess.DoCmd.OpenForm «AutoExec " доступа window.
appAccess.OpenCurrentDatabase Майкрософт class=

Ответ : Как можно базу данных доступа раскрыть в новом окне использующ доступ VBA?

Сделали вы сделали изменения на GAL?
если да вы могли ждать репликацию.