Merhaba, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim AccessTrneT_Link As String



AccessTrneT_Link = Replace(DLookup("[kopru]", "KitapBilgi", "[Kimlik]=" & [Kimlik]), "#", "")



Shell ("explorer.exe " & AccessTrneT_Link & "")