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
Excel 2003
NOUNLOAD
sql update
read and execute and select but not admin
Microsoft Acess 2007: Primary Key
The statement terminated. The maximum recursion 100 has been exhausted before statement completion
Teaming NICs
Cepstral on CentOS 5.5 no sound
Incoming spam
On Cisco Hybrid 6509 with CATOS/IOS, how do you browse the const_nvram: to check vlan.dat file?