Sub openAccess()

Shell "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"
End Sub

"Launchnet" wrote:

I need help with 2 Macros. The first sample opens Access, but does not show
the menu on the right where you can choose a blank database or a previous
completed database. The sample I show below is where I tried to convert a
Macro that opens a blank Word Document.


Sub NewAccessOnly()
Dim oAccessApp As Object
Set oAccessApp = CreateObject("Access.Application")
oAccessApp.Visible = True
oAccessApp.Documents.Add DocumentType:=wdNewBlankDocument
End Sub


The next sample is again where I have tried to modify an existing Macro that
opens a actual Word Document. Naturally, it doesn't work either.

Sub NewAccessWithDocument()
Dim oAccessApp As Object
Dim oAccessDoc As Object

Set oAccessApp = CreateObject("Access.Application")
oAccessApp.Visible = True
Set oAccessDoc = oWordApp.Documents.Open( _
"C:\documents and settings\default\my documents\AVPDatabaseSample.mdb")

End Sub

I'm not a strong programmer, but this looks like the last step to be
completed in my project.

I would appreciate any help with these 2 Macros.

Thanks in Advance
Matt@Launchnet

--
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.