Помогите плиз....
Я хочу сделать такую вещь:
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 |