(23/02/2021, 22:03)berduş yazdı: Aşağıdaki bağlantıdaki 14. mesajda Access açma kodu mevcut.
https://accesstr.net/konu-excelden-acces...#pid177791

Berduş Hocam çok teşekkür ederim.
Elinize emeğinize yüreğinize sağlık.

---

(23/02/2021, 22:58)feraz yazdı: YILDIZ_VeriTabaný bunu kendiniz yazın Tr karakter olayından dolayı.

Sub Ac()

    Dim adres As String, obj As Object

    adres = ThisWorkbook.Path & "\YILDIZ_VeriTabaný.accdb"

    Set obj = CreateObject("Shell.Application")

    If Dir(adres) <> "" Then

        Call obj.ShellExecute(adres)

    End If

    Set obj = Nothing

End Sub

Zafer Hocam çok teşekkür ederim.
Elinize emeğinize yüreğinize sağlık.