INSERT INTO t1 (p1,p2,...) 
SELECT count(p1),p2,...* FROM t2 
WHERE p2 BETWEEN [minus__month] AND [date_to]

Microsoft Visual Basic for Applications
---------------------------
Compile error:

Expected: =
---------------------------
ОК   Справка   
---------------------------

Public Sub qryPar(qryName As String, ParamArray arrPar()) 'ïåðå÷èñëåíèå ïàðàìåòðîâ âèäà: "[èìÿ]","çíà÷åíèå","òèï"
Dim q As DAO.QueryDef, i As Integer

On Error GoTo err1

Set q = CurrentDb.QueryDefs(qryName)
    
For i = 0 To UBound(arrPar) Step 3 'è ò.ä. ïîêà íå ïåðåáåðåòå âñå ïàðàìåòðû
  Select Case arrPar(i + 2)
  Case vbvartype.vbString
    q.Parameters(arrPar(i)).Value = CStr(arrPar(i + 1))
  Case vbvartype.vbDate
    q.Parameters(arrPar(i)).Value = CDate(arrPar(i + 1))
  Case vbvartype.vbInteger
    q.Parameters(arrPar(i)).Value = CInt(arrPar(i + 1))
  Case vbvartype.vbBoolean
    q.Parameters(arrPar(i)).Value = CBool(arrPar(i + 1))
  Case vbvartype.vbDecimal
    q.Parameters(arrPar(i)).Value = CDec(arrPar(i + 1))
  Case vbvartype.vbDouble
    q.Parameters(arrPar(i)).Value = CDbl(arrPar(i + 1))
  Case Else
    q.Parameters(arrPar(i)).Value = Eval(arrPar(i + 1)) 'äëÿ ïàðàìåòðîâ âèäà Forms![ÈìÿÔîðìû]![ÈìÿÊîíòðîëà]
  End Select
Next i

q.Execute
q.Close

Set q = Nothing
Exit Sub

err1:
Debug.Print Err.Number & " " & Err.Description
End Sub

Public Sub qryPar2(qryName As String, ParamArray arrPar()) 'перечисление параметров 
Dim q As DAO.QueryDef, p As Parameter, i As Integer

On Error GoTo err1

Set q = CurrentDb.QueryDefs(qryName)
   
For Each p In q.Parameters
  Select Case p
  Case IsDate(p)
    p.Value = CDate(arrPar(i))
  Case IsNumeric(p)
    p.Value = CInt(arrPar(i))
  Case Else
    p.Value = Eval(arrPar(i)) 'для параметров вида Forms![ИмяФормы]![ИмяКонтрола]
  End Select
Next p

q.Execute
q.Close

Set q = Nothing
Exit Sub

err1:
Debug.Print Err.Number & " " & Err.Description
End Sub

qryPar("сводные_все","[minus_3_month]","1/1/2020",2,"[date_to]","1/2/2020",2)