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

Kirim email ke