+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bağlı Tabloları Silmek (/konu-bagli-tablolari-silmek.html)
Sayfalar:
1
2
RE: Bağlı Tabloları Silmek - feraz - 22/10/2020
(22/10/2020, 15:34)ates2014 yazdı: Çok Çok teşekkür ederim feraz hocam...Rica ederim
size 5 rep puanı gönderdim...
RE: Bağlı Tabloları Silmek - alicimri - 22/10/2020
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.
RE: Bağlı Tabloları Silmek - alicimri - 22/10/2020
Sayın @feraz ın kodlarındaki ilgili satırı aşağıdaki gibi değiştirince sorun çıkmıyor.
Kod:
DoCmd.DeleteObject acTable, tbl.nameRE: Bağlı Tabloları Silmek - feraz - 22/10/2020
(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.Evet normalde öyle olması gerekiyordu unutmuşuk orayı değiştirmeyi
Kod:DoCmd.DeleteObject acTable, tbl.name
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