Merhaba,
Zaman içinde nesne veya alan adlarında bir değişiklik yaptığınızda birçok sorgunun da çalışmadığını görürüz. Bu durumda tek tek sorguları açıp yeni adları bildirmek gerek.
Alet işler el övünürmüş. Bu kodla sorgulardaki SQL metinlerinde gerekli değişiklikleri kolayca yapabilirsiniz. Hatta bu kod üzerine kolayca arayüz de hazırlanabilir işlem için. 
Zaman içinde nesne veya alan adlarında bir değişiklik yaptığınızda birçok sorgunun da çalışmadığını görürüz. Bu durumda tek tek sorguları açıp yeni adları bildirmek gerek.
Alet işler el övünürmüş. Bu kodla sorgulardaki SQL metinlerinde gerekli değişiklikleri kolayca yapabilirsiniz. Hatta bu kod üzerine kolayca arayüz de hazırlanabilir işlem için. Visual Basic
- 'Mehmet Eser 09-09-2009 Çarşamba 21:13 uyarlama
- Public Sub SQLDegistir(eskiSQL As String, yeniSQL As String)
- Dim db As DAO.Database
- Dim qdf As DAO.QueryDef
- Set db = CurrentDb
- For Each qdf In db.QueryDefs
- If InStr(qdf.SQL, eskiSQL) > 0 Then
- qdf.SQL = Replace$(qdf.SQL, eskiSQL, yeniSQL)
- End If
- Next qdf
- Set db = Nothing
- End Sub
VT:Veri Tabanı, AVT: Access VT, MS:Microsoft, Kapaç: Kapa ve aç (rebot ve açkapa saçmalığına çözümüm) 
Yazan okuyan sağolsun, çözene saygılar. Kolaylaştırınız, zorlaştırmayınız.? Cinnet geçirmemek için Access 2010'u SP2 ile kullanalım.
? Sürekli sebepsiz hatalar oluyor da AVT uçuyorsa siz de Ofis kurulmunu uçurun çözülüyor. Sorun kurulum dosyanızda! Farklısını bulun!
? VT dağıtıma çıkana kadar bölmek zaman kaybıdır!
{ Veri Tabanı Mantığı } {Access 2010 çökmelerine çözüm } { 60 Günlük Ofis 2010 Pro Türkçe } { Kayıtları Yan Yana Göstermek }
{ Forma Rapora Resim Fotoğraf Eklemek En kolay En Sağlam En Zengin Teknik }
