обращение к полю

almaz85
Дата: 02.10.2005 01:17:03
Помогите плиз....

Я хочу сделать такую вещь:
1) Есть флажок1 и флажок 2 на форме, есть поле в таблице Текстовое
Надо :
Если Флажок1=True then Поле="Текст1"
Если флажок2=True then Поле="Текст2"


Мне все это надо вставить в процедуру нажатия кнопки, которая приведена ниже (помогите, я чего-то запуталась, да и, как уже не раз говорила, VBA - это не моя сильная сторона):
Private Sub кнИзменить_Click()
Dim dbs As Database
Dim rst As Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("История клиента")

If (Флажок110 Or Флажок112 Or Флажок114) = False Then
     MsgBox "Необходимо выбрать один из вариантов"
   Exit Sub
End If

If Me.пОтзыв <> "" Then
 rst.AddNew
   rst![Код клиента] = Forms![фрмПросмотрН]![фрмОбщие].Form![Код клиента]
    rst![Отзыв] = Me.пОтзыв
     rst![Дата записи] = Date
       rst![Дата контакта] = Date
         rst![Вид контакта] = "В пассив"
           rst![Завершение] = -1
             rst![Создатель] = Forms!Клиент.Caption
              rst![Исполнитель] = Forms![фрмПросмотрН]![фрмОбщие].Form![Менеджер]
             
     rst.Update
 Forms![фрмПросмотрН]!фрмИсторияКлинтаН.Requery
 DoCmd.Close acForm, "фрмПассив"
Else
MsgBox ("Не описана причина изменения состояния.")
End If


End Sub
adv
Дата: 03.10.2005 10:33:05
а где действия с полем?

me.Поле = iif(Флажок1,"Текст1",iif(Флажок1,"Текст2","не Текст"))
almaz85
Дата: 03.10.2005 11:37:53
adv
а где действия с полем?

me.Поле = iif(Флажок1,"Текст1",iif(Флажок1,"Текст2","не Текст"))


А я и не знаю куда ставить это ...
и еще вопрос поясните подробнее о "не Текст"
adv
Дата: 03.10.2005 11:46:09
я тут опечатался
me.Поле = iif(Флажок1,"Текст1",iif(Флажок[color=brown]2[/color],"Текст2","не Текст"))

"не Текст" - это когда оба флага - кривда.

А вот куда это ставить, вам решать. Я же не знаю, что вы хотите сделать. Если по клику занести значение в поле, то хоть второй строкой.
adv
Дата: 03.10.2005 11:48:23
me.Поле = iif(Флажок1,"Текст1",iif(Флажок2,"Текст2","не Текст"))


(чето колор слетел или только у меня?)