AccessTr.neT

Tam Versiyon: Bağlı Tabloları Silmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
(22/10/2020, 15:34)ates2014 yazdı: [ -> ]Çok Çok teşekkür ederim feraz hocam...
size 5 rep puanı gönderdim...
Rica ederim Img-grin
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.
Kod:
DoCmd.DeleteObject acTable, tbl.name
(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 Img-grin
Kodu yabancı forumdan bulmuştum birçok fazlalıkları silip değiştirmiştim bir orayı değiştirmemişim Img-grin
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
Sayfalar: 1 2