Frage : Wie kann eine Zugangsdatenbank in einem neuen Fenster mit Zugang VBA geöffnet werden?

Ich habe dieses:

How kann eine Zugangsdatenbank in einem neuen Fenster mit Zugang VBA geöffnet werden?

Public, das VorOpenDatabase (DatabaseName)

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

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

DriveLetter = ermitteln, verließ (Application.CurrentProject. Path, 1)
PathIs = DriveLetter u. „: \“ u. DatabaseName
strDB = PathIs u. „\“ u. DatabaseName u. „.accdb " neuen Fall Microsoft Access.
Set appAccess = CreateObject

'** („Access.Application“)

'** der geöffneten Datenbank Microsoft Access window.
appAccess.OpenCurrentDatabase strDB

'** im geöffneten AutoExec form.
appAccess.DoCmd.OpenForm „AutoExec "

End Sub
Public VorOpenDatabase (DatabaseName)

Dim strDB als String
Dim appAccess als Access.Application
Dim strFilename, während String
Dim PathIs als String

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

DriveLetter = verließ ermitteln (Application.CurrentProject. Path, 1)
PathIs = DriveLetter u.“: \ „u. DatabaseName
strDB = PathIs u.“ \ „u. DatabaseName u.“ .accdb " neuen Fall Microsoft Access.
Set appAccess = CreateObject

'** („Access.Application“)

'** der geöffneten Datenbank Microsoft Access window.
appAccess.OpenCurrentDatabase strDB

'** im geöffneten AutoExec form.
appAccess.DoCmd.OpenForm „AutoExec "

End Sub

Antwort : Wie kann eine Zugangsdatenbank in einem neuen Fenster mit Zugang VBA geöffnet werden?

Taten Sie vornahmen irgendwelche Änderungen auf der Gallone?
wenn ja Sie Reproduktion warten müssen konnten.