Private qSQL As New Dictionary

Public Sub GeneratesSQL()
    
    Dim qd As QueryDef

    qSQL.RemoveAll

    For Each qd In CurrentDb.QueryDefs
    
        qSQL.Add qd.name, Replace(qd.SQL, "TempVars]![", "tv_")
        
    Next qd
    
End Sub

Public Sub rq(ParamArray args() As Variant)
    
    With CurrentDb.CreateQueryDef("", qSQL(args(LBound(args))))
    
        For i = LBound(args) + 1 To UBound(args) Step 2
            .Parameters("[" & args(i) & "]").Value = args(i + 1)
        Next i
        
        .Execute dbFailOnError
        
        .Close
    
    End With
    
End Sub

Public Sub test()
    
    qp.GeneratesSQL

    rq "Копия Финальный отчет", _
        "Дата записи", Now(), _
        "Автор", 198, _
        "Контакты", "Ольга Николаевна - главный бухгалтер", _
        "Комментарий", "Согласны без увеличения чека - на данный момент качество устраивает", _
        "tИНН", 123456789123#, _
        "tРФ", GetMyRF()

End Sub

PARAMETERS Контакты Text ( 255 ), Комментарий LongText, [Дата записи] DateTime, Автор Long, tИНН IEEEDouble, tРФ Long;
UPDATE ИНН SET ИНН.[Автор отчета] = [Автор], ИНН.[Дата отчета] = [Дата записи], ИНН.[Контактное лицо] = [Контакты], ИНН.[Комментарии клиента] = [Комментарий]
WHERE (((ИНН.ИНН)=[tИНН]) AND ((ИНН.РФ)=[tРФ]));