Kako pokrenuti prezentaciju *.pps iz Accessa?

Kao sto sam naslov kaze.
Prezentaciju u Power Pointu sa ekstenzijom pps ne mogu da pokrenem iz Accessa, a treba mi. Stalno dobijam poruku o pogresnoj putanji, tj. odredjenoj gresci.
Kada je u pitanju prezentacija sa ppt, nema problema.
Koristim sledeci kod:

Function OpenPPTFile() As Boolean

Dim stAppName As String


stAppName = "C:\Program Files\Microsoft Office\Office11\Powerpnt.exe C:\Documents and Settings\spetrovic\Desktop\Program\Odmor.ppt"
Call Shell(stAppName, 1)

OpenPPTFile = True

End Function

Private Sub PPT_Click()
On Error GoTo Err_PPT_Click

Dim stAppName As String

' stAppName = "c:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE C:\Documents and Settings\spetrovic\Desktop\Program\Odmor.ppt"
stAppName = "c:\Program Files\Microsoft Office\OFFICE11\PPTVIEW.EXE C:\Documents and Settings\spetrovic\Desktop\Program\Odmor.ppt"

Call Shell(stAppName, 1)

Exit_PPT_Click:
Exit Sub

Err_PPT_Click:
MsgBox Err.Description
Resume Exit_PPT_Click

End Sub

Potpis

http://zoraneremija.wix.com/eremijacv

Probaj da iza POWERPNT.EXE staviš svičer /s "%1" . Tako se inače otvara .pps fajl.

Pogledaj Control panel, Folder Options, Advanced kartica nad ekstenzijom .pps. Potom Edit file Type, Show, Edit, polje "Application used to perform action:"

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Probao sam i jedan i drugi predlog, ali ne ide.
Power Point mi otvara *.ppt prezentaciju, ali ni on ni PPTVIEW.EXE ne otvara *.pps.
Svičer /s "%1" iza POWERPNT.EXE mi prijavljuje gresku u liniji.
Evo primera.

Kod mene rade i Zoranova i moja opcija, s tim što sam izostavio "%1", a ostalo je samo /s . Verovatno je kod tebe greška negde van Acces-a.

Evo obe linije:

' stAppName = "c:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE /s H:\Jobs\Sapet\Odmor.pps"
' stAppName = "c:\Program Files\Microsoft Office\OFFICE11\PPTVIEW.EXE H:\Jobs\Sapet\Odmor.pps"

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

stAppName = "c:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE /s C:\Documents and Settings\spetrovic\Desktop\Program\Odmor.ppt"

Potpis

http://zoraneremija.wix.com/eremijacv

Proradilo je ali samo ako je program u folderu sa imenom od jedne reci. Cim ima dve reci razdvojene ne radi. Ali i ovo mi dosta znaci mada je ogranicavajuce.
Hvala.

Ovako radi 100%

kojiprogram = "C:\Program Files\Microsoft Office\Office10\POWERPNT.EXE"
stopokrenut = "C:\Documents and Settings\Trtko\My Documents\Preuzimanja\Program\odmor.pps"
Shell Chr(34) & kojiprogram & Chr(34) & " " & Chr(34) & stopokrenut & Chr(34), 1

Pozdrav