Public Function DoesQryExist(QueryName As String) As Boolean
Dim qdf As DAO.QueryDef

On Error GoTo ErrorHandler

DoesQryExist = False

Set qdf = CurrentDb.QueryDefs(QueryName)

DoesQryExist = True

ErrorHandler:

WHERE (((LoadTime.[Дата и время загрузки на локальный сервер]) Between [minus_3_month] And [date_to]))

Public Function qryPar(qryName As String, ParamArray arrPar()) As Long  'перечисление параметров вида: "[имя]","значение"
Dim q As DAO.QueryDef, i As Integer

On Error GoTo err1

Set q = CurrentDb.QueryDefs(qryName)

For i = 0 To UBound(arrPar()) Step 2
  If IsDate(arrPar(i + 1)) Then
    q.Parameters(arrPar(i)).Value = CDate(arrPar(i + 1))
  ElseIf IsNumeric(arrPar(i + 1)) Then
    q.Parameters(arrPar(i)).Value = CDec(arrPar(i + 1))
  Else
    q.Parameters(arrPar(i)).Value = Eval(arrPar(i + 1)) 'для параметров вида Forms![ИмяФормы]![ИмяКонтрола]
  End If
Next i

q.Execute

d = DatePart("d", Me.dateFrom)
m = DatePart("m", Me.dateFrom)
y = DatePart("yyyy", Me.dateFrom)
date_from = m & "/" & d & "/" & y
minus_3_month = IIf(m >= 3, m - 2, Format(DatePart("m", DateAdd("m", -2, Me.dateFrom)), "00")) & "/" & 1 & "/" & IIf(m >= 3, y, Format(DatePart("yyyy", DateAdd("yyyy", -1, Me.dateFrom))))
d = DatePart("d", DateAdd("d", 1, Me.dateTo))
m = DatePart("m", DateAdd("d", 1, Me.dateTo))
y = DatePart("yyyy", DateAdd("d", 1, Me.dateTo))
date_to = m & "/" & d & "/" & y