Powerpoint from Access problem...any ideas?

[Wilson]

I am trying to just create a simple Access form with buttons that will pop
up different powerpoint presentations but recieve an 'Invalid procedure call
or arguement' error when I try to run the ppt. Any ideas? Running both
Access and PPT 2000.

Here's the code I have:

Private Sub cmdTest_Click()
On Error GoTo Err_cmdTest_Click

Dim stAppName As String

stAppName = "C:\WINNT\Profiles\Desktop\AccessTest.ppt"
Call Shell(stAppName, 0)

Exit_cmdTest_Click:
Exit Sub

Err_cmdTest_Click:
MsgBox Err.Description
Resume Exit_cmdTest_Click

End Sub

Thanks in advance...
Matt

[Douglas J. Steele]

You can't Shell to the file itself. You need to either include the full path
to the Powerpoint executable, or you could use ShellExecute (see
http://www.mvps.org/access/api/api0018.htm at "The Access Web" for code to
do this)

You may also be able to use Call Shell("Start " & Chr$(34) & stAppName &
Chr$(34), 0)
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Wilson" <wi****@kingofprussia.com> wrote in message
news:WK******************@fe37.usenetserver.com...

I am trying to just create a simple Access form with buttons that will pop
up different powerpoint presentations but recieve an 'Invalid procedure call or arguement' error when I try to run the ppt. Any ideas? Running both
Access and PPT 2000.

Here's the code I have:

Private Sub cmdTest_Click()
On Error GoTo Err_cmdTest_Click

Dim stAppName As String

stAppName = "C:\WINNT\Profiles\Desktop\AccessTest.ppt"
Call Shell(stAppName, 0)

Exit_cmdTest_Click:
Exit Sub

Err_cmdTest_Click:
MsgBox Err.Description
Resume Exit_cmdTest_Click

End Sub

Thanks in advance...
Matt

[Wilson]

I'll give it a try...thanks!

"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
news:F%********************@twister01.bloor.is.net .cable.rogers.com...

You can't Shell to the file itself. You need to either include the full path to the Powerpoint executable, or you could use ShellExecute (see
http://www.mvps.org/access/api/api0018.htm at "The Access Web" for code to
do this)

You may also be able to use Call Shell("Start " & Chr$(34) & stAppName &
Chr$(34), 0)
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Wilson" <wi****@kingofprussia.com> wrote in message
news:WK******************@fe37.usenetserver.com...

I am trying to just create a simple Access form with buttons that will pop up different powerpoint presentations but recieve an 'Invalid procedure

call

or arguement' error when I try to run the ppt. Any ideas? Running both
Access and PPT 2000.

Here's the code I have:

Private Sub cmdTest_Click()
On Error GoTo Err_cmdTest_Click

Dim stAppName As String

stAppName = "C:\WINNT\Profiles\Desktop\AccessTest.ppt"
Call Shell(stAppName, 0)

Exit_cmdTest_Click:
Exit Sub

Err_cmdTest_Click:
MsgBox Err.Description
Resume Exit_cmdTest_Click

End Sub

Thanks in advance...
Matt