В дополнение к Eval'у, из FAQ "A почему у меня перестало работать...":

A1: Ты, наверно, пользуешься DoCmd.RunSQL? Срочно переходи на CurrentDb.Execute (и т.п.). Только надо учесть, что Execute не будет работать, если команда или один из нижележащих запросов содержит обращения к формам, - все эти обращения будут восприняты как параметры, которым не передано значение. Как очень частичное решение этой проблемы можно писать так:

Dim q As QueryDef, p As Parameter
Set q = CurrentDb.QueryDefs(...)
For Each p In q.Parameters
p.Value = p.Name
Next
q.Execute

Да и еще насчет второго запроса, тут полный ОК.
Если итоговый запрос использует другие вспомогательные запросы с параметрами, то открыв итоговый запрос через
Set q = CurrentDb.QueryDefs(...)
For Each p In q.Parameters
p.Value = p.Name
Next
ты увидишь, что в коллекции q.Parameters будут собраны все параметры из всех используемых вспомогательных запросов. Кстати поэтому лучше убрать из запросов ссылки на форму и поставить туда что-нибудь осмысленное типа: WHERE [поле1]=dateBefore чтобы потом при заполнении параметров уже не путаться в них:
Set q = CurrentDb.QueryDefs(...)
q.Parameters("dateBefore")=....
q.Parameters("dateAfter")=....
и т.д.