Dim AccessTrneT_Link As String
AccessTrneT_Link = Replace(DLookup("[kopru]", "KitapBilgi", "[Kimlik]=" & [Kimlik]), "#", "")
Shell ("explorer.exe " & AccessTrneT_Link & "")
Merhaba, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.