The following code works fine, except that the database opens in a small
window. I want it to always open full screen. Can someone take a look and
advise me on what code to add ?

Thanks
Matt@Launchnet


Sub NewAccessWithDocument()

'ActiveWorkbook.FollowHyperlink Address:="C:\_Matts Data\0_avp\
avpdatabasesample.mdb"


Dim LPath As String
Dim LCategoryID As Long

'Path to Access database
LPath = "C:\_Matts Data\0_avp\avpdatabasesample.mdb"

'Open Access and make visible
Set oApp = CreateObject("Access.Application")
oApp.Visible = True

'Open Access database as defined by LPath variable
oApp.OpenCurrentDatabase LPath

End Sub

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy that
you read my story. God Bless for everyones help.

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200707/1