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