массовое изменение ко всем запросам в БД

Question

У меня есть база данных Access с множеством имен таблиц, ориентированных на год (не мой дизайн). Я хочу скопировать БД в новую БД и обновить все таблицы с тем же именем, но обновлено с «xxx_2007» до «xxx_2008», и все запросы, которые ссылаются на «2007», обновлены для ссылки «2008». Эти ссылки могут быть в именах таблиц или могут быть критериями выбора в запросе.

Подход, который я использую сейчас, - это открыть каждый запрос, скопировать SQL в блокнот, заменить «2007» на «2008», а затем скопировать его обратно в представление SQL запроса. Это работоспособно, но утомительно.

Любые предложения по программному способу обновить все?

Answer 1

Что сказал Горд.

Но если вам действительно нужен быстрый хак, чтобы сделать его работу прямо сейчас, вы можете цикл в QueryDefs коллекции:

Dim DB As Database 
Dim QD As QueryDef 
Dim S As String 

Set DB = CurrentDb 
For Each QD In DB.QueryDefs 
    S = QD.SQL 
    If InStr(S, "2007") > 0 Then 
     S = Replace(S, "2007", "2008") 
     QD.SQL = S 
    End If 
Next QD 

Похожие с TableDefs для имен таблиц, здесь вы должны заменить TD.Name

Answer 2

Я также рекомендую, что сказал Горд. Если нет, просто используйте Find и Replace Rick Fisher http://www.rickworld.com/products.html.