ник: snipe
Дело в том что это кусочек запроса Union all
форма отчета (на бумаге) имеет вид
плановые .........
внеплановые.....
рейдовые........
т.е. я пытаюсь запросом сформировать таблицу отчета
SELECT a1.*
FROM Таблица1 as a1
WHERE a1.Выражение1="плановые"
union all
SELECT a1.*
FROM Таблица1 as a1
WHERE a1.Выражение1="внеплановые"
union all
SELECT a1.*
FROM Таблица1 as a1
WHERE a1.Выражение1="рейдовые"
если например внеплановых нет
то запрос выдаст
плановые .........
рейдовые........
что не соответствует форме отчета
пока выкрутился так
Dim a(7 To 13) As String
a(7) = "плановые"
a(8) = "внеплановые"
a(9) = "рейдовая"
a(10) = "адм расследования"
a(11) = "привлечение специалистов"
a(12) = "заключения"
a(13) = "адм.дело (по подведомств.)"
dfr.sheets("Табл.1.3 Итог по КНД").Select
Set rs = CurrentDb.OpenRecordset("100_ЕженОтчетЛист1_3")
rs.MoveLast: rs.MoveFirst
For i = 7 To 13
rs.MoveFirst
For j = 1 To rs.RecordCount
If a(i) = rs.Fields(0) Then
For k = 1 To 9
dfr.Cells(i, k + 1) = Nz(rs.Fields(k), "")
Next k
End If
If j < rs.RecordCount Then rs.MoveNext
Next j
Next i
|
dfr - это excel
но как-то это длинно по сравнению с этим
Set rs = CurrentDb.OpenRecordset("100_ЕженОтчетЛист1_1")
dfr.Cells(7, 2).CopyFromRecordset rs
|