Dear Mas Lukito, thanks atas infonya,
saya ubah dulu sedikit menjadi; Private Sub Command8_Click() strProg = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe" strFile = Link.Value i = InStr(1, strFile, "#", vbTextCompare) + 1 strFile = Mid(strFile, i, Len(strFile) - i) Call Shell(strProg & " " & strFile, 1) End Sub sekarang udah bisa... :-) :-) regards Harry Siswanto 2008/11/20, Lukito Hartono <[EMAIL PROTECTED]>: > > Mas Harry, > > Apakah ini juga Hyperlink? > Kalo iya harus diparsing dulu biar bisa dapet addressnya atau di Follow. > coba debug.print Link.Value itu apa isinya > lalu mungkin juga, > > strFile = Me.Link.Value <---- Pertama > > Call Shell(strProg & " " & strFile & Link.Value, vbMaximizedFocus) '<<--- > kenapa > jadi 2 kali yah? > > Saya coba begini kalo hyperlink: > > strProg = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe" > strFile = Me.Remark > i = InStr(1, strFile, "#", vbTextCompare) + 1 > strFile = Mid(strFile, i, Len(strFile) - i) > > Call Shell32Bit(strProg & " " & strFile, "WAIT") > > Atau kalo langsung: > > strProg = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe" > strFile = "C:\Test.pdf" > Call Shell32Bit(strProg & " " & strFile, "WAIT") > > Keduanya bisa. > Coba di-cek lagi yah.. > > Thanx. :D > > Lukio Hartono > >
