Microsoft
Software
Hardware
Network
Question : How can an Access database be opened in a new window using Access VBA?
I have this:
How can an Access database be opened in a new window using Access VBA?
Public Sub OpenDatabase(DatabaseName)
Dim strDB As String
Dim appAccess As Access.Application
Dim strFilename As String
Dim PathIs As String
'**Detect path
'PathIs = Application.CurrentProject
.Path
DriveLetter = Left(Application.CurrentPr
oject.Path
, 1)
PathIs = DriveLetter & ":\" & DatabaseName
strDB = PathIs & "\" & DatabaseName & ".accdb"
'**Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Appli
cation")
'**Open database in Microsoft Access window.
appAccess.OpenCurrentDatab
ase strDB
'**Open AutoExec form.
appAccess.DoCmd.OpenForm "AutoExec"
End Sub
Public Sub OpenDatabase(DatabaseName)
Dim strDB As String
Dim appAccess As Access.Application
Dim strFilename As String
Dim PathIs As String
'**Detect path
'PathIs = Application.CurrentProject
.Path
DriveLetter = Left(Application.CurrentPr
oject.Path
, 1)
PathIs = DriveLetter & ":\" & DatabaseName
strDB = PathIs & "\" & DatabaseName & ".accdb"
'**Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Appli
cation")
'**Open database in Microsoft Access window.
appAccess.OpenCurrentDatab
ase strDB
'**Open AutoExec form.
appAccess.DoCmd.OpenForm "AutoExec"
End Sub
Answer : How can an Access database be opened in a new window using Access VBA?
Did you made any changes on the GAL?
if yes you might need to wait for replication.
Random Solutions
Need help getting drop down menu to display on top of main content area
How to hide a folder based on file size minimum
Photoshop
SBS 2008 WSUS error
door knob
Select statement between 2 date ranges
Open message from inbox in Outlook 2000 Inbox using VBA / CDO / Redemption / Message ID
Ajax not returning value to DIV
Network setup vlan and qos
easy question