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
ESXi 4.0 - virtual machine sees only one CPU
Seizing FSMO roles in Windows 2008R2
Bluetooth Encryption
Last 3 tweets in WordPress
My changes in on the notes local calendar is not replicating with the server
Is there any reason not to install Office 2007 on the Server that's running Exchange 2010?
InteropServices.COMExcepti
on: Cannot open any more tables.
work, forces and vectors
Excel 2010 - Couple of Message Box questions
settings according to referrer