Textboxta Yazili Olan Linki, Command Button İle Form İcinde Görünteleme

27/04/2020, 17:24

E_DZ

Merhaba,

ekli veritabaninda Main form bölümünde command26 buttona basildiginda text19 da yazili olan pdf linkinin sag taraftaki pdf viewerda görüntülenmesini istiyorum. 

Yardiminiz icin tesekkur ederim
27/04/2020, 17:29

accessman

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 Sub

Kod:
Private Sub List14_AfterUpdate()

Dim strpath As String

strpath = Me.List14.Column(2)
Me.WebBrowser5.Navigate (strpath)
End Sub
27/04/2020, 17:51

E_DZ

Merhaba,

Tesekkürler. 

text19 da pdf path  yazili olacak. Ben sadece o linki okumasini ve sag tarafta acmasini istiyorum. Cunku ustteki her secenek icin text boxtaki pdflink her zaman degisecek.
27/04/2020, 17:56

accessman

bu örneği inceleyin