10-11-2017, 21:30 (En son düzenleme: 10-11-2017, 21:39 husem.)
merhaba arkadaşlar kolay gelsin.
odbc bağlantıyla kullanılan programda sql tabloları bağlandığında tablo adının başına "dbo_" adı ekliyor. ben bu dbo_ kısmını tek tek kaldırmaktayım. Bu işlemi tasarlanacak bir form üzerinden kod ile yapma imkanı olabilir mi acaba?
Evet sn husem basit bir alt yordam ile tüm tabloların ismini değiştirebilirsiniz. Yordamın kodları şöyle;
Visual Basic
Sub TabloAdiDegistir
Dim td As TableDef
Dim yeniisim AsString
Dim orjisim AsString
Dim stConnect AsString
ForEach td InCurrentDb.TableDefs
IfLeft(td.Name, 4)<> "MSys" Then
orjisim = td.Name
yeniisim = Mid(td.Name, 5)
MsgBox "ORJ İSİM: " & orjisim
MsgBox "YENİ İSİM: " & yeniisim
DoCmd.Rename (yeniisim), acTable,(orjisim)
Else
EndIf
Next
EndSub
Yukarıdaki kodu bir modüle yapıştırıp VBA dan çalıştırabilirsiniz ya da bir formda bulunan bir butonun click olayına ekleyip butonu tıklayabilirsiniz. Kodda değiştirilecek tablo isimlerinin orjinal ve yeni isimlerini tek tek ekrana getirecektir. Eğer istemezseniz Msgbox ları kapatabilirsiniz.
sn onur_can teşekkür ederim. buton tıklamasında istediğim gibi çalışıyor.
yalnız
tablo adının başında "dbo_" yoksa o tablo adında değişiklik yapmasın, yapılırmı?
