Bağlı Tabloları Silmek

(22/10/2020, 15:34)ates2014 yazdı: Çok Çok teşekkür ederim feraz hocam...
size 5 rep puanı gönderdim...

Rica ederim

Benim Ofis 2007 ve Excelden bağlı tablo oluşturduğumda;
1- Tablo adını Excel sayfa adını varsayılan olarak alıyorsa, tablo adı "iller" ise bağlantı adı "iller$" şeklinde  oluyor, tabloyu bulamadığından hataya düşüyor.
2- Aynı şekilde tablo adını biz verirsek yine sorun oluşuyor.

Sayın @feraz ın kodlarındaki ilgili satırı aşağıdaki gibi değiştirince sorun çıkmıyor.

(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