ник: mvo
Кому интересно вот нашел
http://sql.ru/forum/actualthread.aspx?tid=349591&hl=union
Dim rcs As DAO.Recordset
Dim i As Integer
Dim sqlstr As String
sqlstr = "Select * from [перекрестныйзапрос] union all select 'Итого' "
Set rcs = CurrentDb.QueryDefs("перекрестныйзапрос").OpenRecordset
For i = 1 To rcs.Fields.Count - 1
sqlstr = sqlstr & ", SUM(" & rcs.Fields(i).Name & ")"
Next i
sqlstr = sqlstr & " FROM [перекрестныйзапрос]"
Set rcs = Nothing
On Error Resume Next
CurrentDb.CreateQueryDef "temp"
CurrentDb.QueryDefs("temp").SQL = sqlstr
DoCmd.OpenQuery "temp"
CurrentDb.QueryDefs.Delete "temp"
|