Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems opening Access database from Excel VBA
I try to open an Access database from Excel using the following code:
Sub OpenDatabase() strdb = "c:\demo.mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strdb appAccess.DoCmd.OpenForm "frmsysteminformation" Set appAccess = Nothing End Sub This shows the form OK, but not the Access window. When I close the form it disappears, but leaves theAccess application running in Background. How can I open a databae in the database window and gain access, not only to the form, but to the full Access, that is Databasewindow and all? Jan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems opening Access database from Excel VBA
You need to set the visible property to true
appAccess.visible = true before you set it to nothing. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems opening Access database from Excel VBA
Hi Jan,
Change your code to: Sub OpenDatabase() strdb = "c:\demo.mdb" Set appAccess = CreateObject("Access.Application") appAccess.Visible=True appAccess.OpenCurrentDatabase strdb appAccess.DoCmd.OpenForm "frmsysteminformation" Set appAccess = Nothing End Sub Sub OpenDatabase() strdb = "c:\demo.mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strdb appAccess.DoCmd.OpenForm "frmsysteminformation" Set appAccess = Nothing End Sub This shows the form OK, but not the Access window. When I close the form it disappears, but leaves theAccess application running in Background. How can I open a databae in the database window and gain access, not only to the form, but to the full Access, that is Databasewindow and all? Regards, Jan Karel Pieterse Excel MVP www.jkp-ads.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems opening Access database from Excel VBA
Thank you both. That did the trick :-). An couple off additional question:
What if I do not want to open a form, but just want to display the database window. If i remove the OpenForm line, Access is started all right, but nothing is shown. And can I test if the database is already open before opening it? Jan "Jan Karel Pieterse" wrote in message ... Hi Jan, Change your code to: Sub OpenDatabase() strdb = "c:\demo.mdb" Set appAccess = CreateObject("Access.Application") appAccess.Visible=True appAccess.OpenCurrentDatabase strdb appAccess.DoCmd.OpenForm "frmsysteminformation" Set appAccess = Nothing End Sub Sub OpenDatabase() strdb = "c:\demo.mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strdb appAccess.DoCmd.OpenForm "frmsysteminformation" Set appAccess = Nothing End Sub This shows the form OK, but not the Access window. When I close the form it disappears, but leaves theAccess application running in Background. How can I open a databae in the database window and gain access, not only to the form, but to the full Access, that is Databasewindow and all? Regards, Jan Karel Pieterse Excel MVP www.jkp-ads.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Update Excel Database via Access Main Database with a script | New Users to Excel | |||
Excel Database Problems | Excel Discussion (Misc queries) | |||
Opening Access database | Excel Discussion (Misc queries) | |||
Do I need Excel or Access for my database needs? | Excel Discussion (Misc queries) | |||
opening access database using macro | New Users to Excel |