(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
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Kodu yabancı forumdan bulmuştum birçok fazlalıkları silip değiştirmiştim bir orayı değiştirmemişim
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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