Fråga : Hur kan en ta framdatabas öppnas i använda för nytt fönster tar fram VBA?

Jag har denna:

How kan en ta framdatabas öppnas i använda för nytt fönster tar fram VBA? strDB för

Dim för

Public underOpenDatabase (DatabaseName) som String
Dim appAccess som strFilename för Access.Application
Dim som String
Dim PathIs som String

'** avkänner path
'PathIs = Application.CurrentProject.Path

DriveLetter = lämnat (Application.CurrentProject. Path, 1)
PathIs = DriveLetter & ”: \” & DatabaseName
strDB = PathIs & ”\” & DatabaseName & ”.accdb-" skapar nytt anföra som exempel av öppen databas för Microsoft Access.
Set appAccess = för CreateObject

'** (”Access.Application”)

'** i strDB för

Dim för
End Sub
Public underOpenDatabase (DatabaseName) för
för strDB

'** öppen AutoExec form.
appAccess.DoCmd.OpenForm ”AutoExec " för Microsoft Access window.
appAccess.OpenCurrentDatabase som String
Dim appAccess som strFilename för Access.Application
Dim, som String
Dim PathIs som String

'** avkänner path
'PathIs = Application.CurrentProject.Path

DriveLetter = lämnat (Application.CurrentProject. Path, 1)
PathIs = DriveLetter &”: \ ”& DatabaseName
strDB = PathIs &” \ ”& DatabaseName &” .accdb-" skapar nytt anföra som exempel av öppen databas för Microsoft Access.
Set appAccess = för CreateObject

'** (”Access.Application”)

'** i
End Sub för
för strDB

'** öppen AutoExec form.
appAccess.DoCmd.OpenForm ”AutoExec " för Microsoft Access window.
appAccess.OpenCurrentDatabase " klar "

Svar : Hur kan en ta framdatabas öppnas i använda för nytt fönster tar fram VBA?

Gjorde du gjorde några ändringar på gal.et?
om ja dig styrkabehovsväntan för replication.