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

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:"

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"

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

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

Trtko, stvarno si car. Svaka cast.
Radi bilo gde da je, samo sto otvaram sa PPTVIEW.EXE.
Veliki pozdrav.