(04/03/2020, 17:47)ozanakkaya yazdı:

(29/02/2020, 11:58)derzulya yazdı: Hazırladığım uygulamayı komple tüm dosyaları ile birlikte, anamakinamız üzerinde bir klasöre koydum

Merhaba, klasör ana makinada bulunuyorsa, bağlı tabloların bulunduğu yol olarak tanımlamalısınız. Kod içerisinde currentproject.path kodunu kullanmışsınız. Bu açtığınız Access uygulamasının bulunduğu dizindir. Tabloların bulunduğu makinanın yolunu bulmak için

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim sSQL  As String



sSQL = "SELECT MsysObjects.Name AS [ObjectName], MsysObjects.Database FROM MsysObjects WHERE (((MsysObjects.Name Not Like '~*') And (MsysObjects.Name Not Like 'MSys*')) AND (MsysObjects.Type=6)) ORDER BY MsysObjects.Name;"



    Set db = CurrentDb

    Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot)

    With rs

        If .RecordCount <> 0 Then

        Metin1 = Left(rs![Database], InStrRev(rs![Database], "\"))

        End If

    End With

şeklinde kod kullanmalısınız. Bu kod Metin1 isimli metin kutusuna, tabloların bulunduğu veritabanının dizinini yazdırır. 

(04/03/2020, 16:46)Lenadro yazdı: ThisWorkbook.Path

Bu kodu Access içerisinde çalıştıramazsınız. Yukarıda belirttiğim gibi bunun karşılığı currentproject.path'dır. Sizin kod sanırım Excel için.