Dim dbProfession As DAO.Database
Dim rstProd As DAO.Recordset

a=[Forms]![Поиск]![ПолеСоСписком3]
b=[Forms]![Поиск]![ПолеСоСписком5]

Set dbProfession = CurrentDb
Set rstProd = dbProfession.OpenRecordset(ExpRabM, dbOpenDynaset) 

ExpRabM=SELECT DISTINCT Профессии.Профессия, Профессии.[№ ЕТКС], Профессии.Организация, Профессии.Подразделение
FROM Профессии
WHERE (((Профессии.Профессия)=a) AND ((Профессии.[№ ЕТКС])=b)

Function Grup()
Dim a, usl As String

a = Screen.ActiveForm.Name
usl = "Between Forms![" & a & "]![Дата1] And Forms![" & a & "]![Дата2]"

Grup = "SELECT tab.ID_Марки, tab.Марка " & _
"FROM (SELECT [3_ Марки].ID_Марки, [3_ Марки].Марка " & _
"FROM [3_ Марки] INNER JOIN (2_Ассортимент2 INNER JOIN 000 ON [2_Ассортимент2].ID_Товар2 = [000].Ассортимент) ON [3_ Марки].ID_Марки = [2_Ассортимент2].Марки " & _
"GROUP BY [3_ Марки].ID_Марки, [3_ Марки].Марка, [000].Дата " & _
"HAVING ((([000].Дата) " & usl & ")) " & _
"ORDER BY [3_ Марки].Марка, [000].Дата) AS tab " & _
"GROUP BY tab.ID_Марки, tab.Марка " & _
"ORDER BY tab.Марка"

End Function

"WHERE (((Профессии.Профессия)=" & a & ") AND ((Профессии.[№ ЕТКС])=" & b & ")"

Function MySql() As String
    Dim slct As String, Grp As String, Ord As String
    Dim dum As Integer
   'начало вставки
    Dim qry As DAO.QueryDef
    Dim reg As Long
    reg = Forms![000_Объемы]![Список8]
    Set qry = CurrentDb.QueryDefs("001_Регион")
    qry.SQL = "SELECT [000_V].Область, [000_V].Дата AS Дата_, Sum([000_V].Продано_кг) AS " & _
              "[Sum-Продано_кг] FROM 000_V GROUP BY [000_V].Область, [000_V].Дата " & _
              "HAVING ((([000_V].Область)=" & reg & "));"    
   'конец вставки
dum = Forms![000_Объемы]![Дата]
    
    Select Case dum
    Case  1 
        slct = "Format([Дата], ""dd/mm/yy"")"
        Grp = "Year([Дата])*365+Month([Дата])*31+Day([Дата]) "
        Ord = "Format([Дата],""dd/mm/yy"") "
    Case  2 
        slct = "CByte((([Дата] - #12/31/2000#) - CByte(([Дата] - #12/31/2000#) / 364 - 0.4999) * 364) / 7 + 0.6)"
        Grp = "CByte(([Дата]-#12/31/2000#)/7+0.6) "
        Ord = "CByte((([Дата]-#12/31/2000#)-CByte(([Дата]-#12/31/2000#)/364-0.4999)*364)/7+0.6) "
    Case  3 
        slct = "Format([Дата], ""mmmm  yy"")"
        Grp = "Year([Дата])*12+Month([Дата]) "
        Ord = "Format([Дата],""mmmm  yy"") "
    Case  4 
        slct = "Format([Дата], ""q  yy"")"
        Grp = "Year([Дата])*4+CByte(Month([Дата])/3+0.2) "
        Ord = "Format([Дата],""q  yy"") "
    Case  5 
        slct = "Format([Дата], ""yyyy"")"
        Grp = "Year([Дата]) "
        Ord = "Format([Дата],""yyyy"") "
    End Select
    
    MySql = "SELECT " & slct & _
        ", Sum([001_Регион].[Sum-Продано_кг]) As Тоннаж " & vbCrLf & _
        "FROM 00_Дата " & vbCrLf & _
        "LEFT JOIN 001_Регион " & vbCrLf & _
        "ON [00_Дата].[Дата] = [001_Регион].[Дата_] " & vbCrLf & _
        "GROUP BY " & Ord & "," & Grp & vbCrLf & _
        "ORDER BY " & Grp

End Function