22/10/2020, 15:50
Sayfalar: 1 2
22/10/2020, 16:24
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.
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.
22/10/2020, 16:44
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:50
(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
Sayfalar: 1 2