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
cannot log you in because the domain is not available WORKAROUND?
WAMP will not restart on WINDOWS 2003 Server
Install sql server 2008 developer
Joomla 1.0.11 with VirtueMart 1.0.7 - to be upgraded to Joomla 1.5 with VirtueMart 1.1.4
Using Login In on Default page Http/Https
Laptop beeps 3 times during power up
Photoshop
Drop downs
dropping there year from my date
Query AD for list of users created within 2 month.