Is there a way to do this?
I am trying:
and the problem is that when I hit the line
,
both databases close.
I've even tried
in the declarations section of the module, and then
in the first procedure that runs.
Both databases still disappear.
Any ideas?
Thanks.
-Mike
I am trying:
Code:
Sub sub_OpenTruePrequal()
Dim app_Access As New Access.Application, dBs As DAO.Database
app_Access.OpenCurrentDatabase "c:\mydb\mydb.mdb"
app_Access.Visible = True
Application.quit
End Sub
and the problem is that when I hit the line
Code:
Application.quit
both databases close.
I've even tried
Code:
dim acc_App as access.application
Code:
set acc_App=access.application
Code:
Sub sub_OpenTruePrequal()
Dim app_Access As New Access.Application, dBs As DAO.Database
app_Access.OpenCurrentDatabase "c:\mydb\mydb.mdb"
app_Access.Visible = True
acc_App.quit
End Sub
Both databases still disappear.
Any ideas?
Thanks.
-Mike