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

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