Отчёт-анкета!

George-III
Дата: 22.09.2005 09:49:05
База с анкетными данными!
В основной таблице храняться анкеты клиентов, поля анкетных данных заполняются автоподстановкой из справочников.
Например tblSex=м.,ж.
Оператор выбирает нужный вариант из комбобокса.
Возникла потребность распечатки Анкет.
Как это осуществить? В анкете такой вариант отражения данных
Пол:
м - |_| это чекбокс!
ж - |_|

то есть нужно в зависимости от выбранного варианта отражать заполненное логическое поле!
Toking
Дата: 22.09.2005 09:51:19
Ну и в чем проблемма?

=IIF(...)
George-III
Дата: 22.09.2005 09:58:28
Toking
Ну и в чем проблемма?

=IIF(...)


Проблем с оператором ветвления не, но дело в том, что подпунктов в анкете много и для каждого писать условие как то неизящно...
Может есть другой вариант?
AlTis
Дата: 22.09.2005 10:17:53
написать функцию, которая в качестве параметра принимает:
ТипЗаписи (например пол) и само значение (м/ж)

Внутри функции стоит Case на ТипЗаписи и возвращается True/False

в Data для поля пишешь: =Функция(1;[Пол])
George-III
Дата: 27.09.2005 16:24:10
Источник строк для отчёта - запрос.
Пытаюсь анализировать поле IDSex.
Но в отчётах свойство Checked для флажка недоступно. Как быть?
Private Sub Report_Activate()
    If DLookup("IdSex", "qreRepSolvencySumMarks") Then
         Me.chbSexMale.Checked=True
         Me.chbSexLady.Checked=False
    End If
End Sub
George-III
Дата: 27.09.2005 16:43:51
И подскажите правильно ли осуществлять такое через
DLookup&
sraider
Дата: 27.09.2005 16:46:50
George-III
И подскажите правильно ли осуществлять такое через
DLookup&

нормально, но через iif быстрее будет ;)
George-III
Дата: 27.09.2005 16:50:45
sraider
[quot George-III]И подскажите правильно ли осуществлять такое через
DLookup&

нормально, но через iif быстрее будет ;)[quot]
Тогда на форму надо выкладывать невидимые поля и их анализировать?
George-III
Дата: 27.09.2005 17:23:30
Пардон, тока на Delphi писал вот и попутался малость, работает так:
Private Sub Report_Activate()
    
    If DLookup("IdSex", "qreRepSolvencySumMarks") = 1 Then
         Me.chbSexMale.Value = True
         Me.chbSexLady.Value = False
    ElseIf DLookup("IdSex", "qreRepSolvencySumMarks") = 2 Then
         Me.chbSexMale.Value = False
         Me.chbSexLady.Value = True
         
    End If

End Sub