Solution: Open an Access database

teebruin · May 9th, 2002, 10:19 PM

My problem was how do you open an Access database. I didn't get a solution from the board, but I thought I'd share it with everyone. I'm sure there are others that would like this code.

Dim Acc As New Access.Application
Dim strAcc As String
strAcc = "complete pathname"
With Acc
.OpenCurrentDatabase(strAcc)
.Visible = True
.UserControl = True
End With

smozgur · May 9th, 2002, 11:21 PM

Menu VBA_Tools_Reference

Add MS Access Object Library.

Thats it.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 9th, 2002, 10:19 PM	#1
teebruin Join Date: Mar 2002 Posts: 38	My problem was how do you open an Access database. I didn't get a solution from the board, but I thought I'd share it with everyone. I'm sure there are others that would like this code. Dim Acc As New Access.Application Dim strAcc As String strAcc = "complete pathname" With Acc .OpenCurrentDatabase(strAcc) .Visible = True .UserControl = True End With

May 9th, 2002, 11:21 PM	#2
smozgur BatCoder Join Date: Mar 2002 Location: Turkey Posts: 764	Menu VBA_Tools_Reference Add MS Access Object Library. Thats it.