(22/10/2020, 16:44)alicimri yazdı: Sayın @feraz ın kodlarındaki ilgili satırı aşağıdaki gibi değiştirince sorun çıkmıyor.

Kod:

            DoCmd.DeleteObject acTable, tbl.name

Evet normalde öyle olması gerekiyordu unutmuşuk orayı değiştirmeyi
Kodu yabancı forumdan bulmuştum birçok fazlalıkları silip değiştirmiştim bir orayı değiştirmemişim
Değiştirdim sanıyordum esasında.
ilk mesajda değiştireyim.
Yabancı kaynaktan bulduğum orjinal kodda altta.

Sub GetAllTableLinks()



Dim db As DAO.Database

    Dim myTDF As TableDef

    Set db = CurrentDb

    

    For Each myTDF In db.TableDefs

        If Len(myTDF.Connect) > 0 Then

            'Table is linked as it has a connection string

            'Name,Alias,ConnectionString

          '  Debug.Print myTDF.SourceTableName & "," & myTDF.Name & "," & myTDF.Connect

           Debug.Print myTDF.Connect & "; TABLE =" & myTDF.SourceTableName

        End If

    Next myTDF

End Sub