Это ведь надо выполнить один раз? Поэтому надо просто создать процедуру в каком-нибудь модуле и запустить ее из Immediate Window (набрав там ее имя и нажав Enter). Вот текст с ремарками:
1.
2.
3.
4.
5.
6.
Sub ModifyQueries()
Dim q As QueryDef 'описание переменной типа запрос'
For Each q In CurrentDb.QueryDefs 'заголовок цикла, проходящего по всем запросам текущей базы'
q.Sql = Replace(q.Sql, """ Cumulative: """ , """ Current: """ ) 'замена селекта в очередном запросе
на селект, в котором то, что надо, заменено'
Next
End Sub
Настоятельный совет - перед запуском этой процедуры сохранить копию mdb в надежном месте.
Если таких файлов mdb несколько, то можно эту процедуру усовершенствовать:
1.
2.
3.
4.
5.
6.
7.
Sub ModifyQueries(sPath As String) 'добавлен параметр - местонахождение базы'
Dim db As DataBase 'описание переменной типа база'
Dim q As QueryDef
Set db = DBEngine.OpenDatabas(sPath) 'переменная начинает ссылаться на нужную базу'
For Each q In db.QueryDefs 'проходим не по текущей базе, а по db'
q.Sql = Replace(q.Sql, """ Cumulative: """ , """ Current: """ )
Next
End Sub
И тогда надо будет запустить эту процедуру несколько раз - каждый раз с параметром, например:
ModifyQueries "c:\MyBase.mdb"
