Kod:
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim stAppName As String
Dim stPathFileName As String
'Define path and file name of PDF document, keep .pdf extention
stPathFileName = Me!txtPathFile
stAppName = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe " & stPathFileName
Call Shell(stAppName, 1)
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End SubKod:
Private Sub List14_AfterUpdate()
Dim strpath As String
strpath = Me.List14.Column(2)
Me.WebBrowser5.Navigate (strpath)
End Sub