MadMax1982 |
---|
если упрощенно, есть таблица с полями a, b, c, d, e, f. Необходимо просмотреть все записи и сформировать отчет: если у записи поле a=0, то в отчет добавить поля данной записи + в поле "примечание" "Нет кода", если у записи поле b=1, то в отчет добавить поля данной записи + в поле "примечание" "Нет группы", если у записи поле d<60, то в отчет добавить поля данной записи + в поле "примечание" "Неправильный вид", и т.д. |
Если правильно понял, то задача наилучшим образом решается введением собственной функции в Select. Что-то вроде такой
Piblic Function Prim(a, b, c, d, e, f) as String
Dim comma
comma=", "
If a=0 Then Prim=Prim & "Нет кода"
If b=1 Then Prim=Prim & comma & "Нет группы"
If d<60 Then Prim=Prim & comma & "Неправильный вид"
If left(Prim,2)=comma Then Prim=Mid(Prim,3)
End Function
В селекте запроса
select a, b, c, d, e, f, Prim as [Примечание]