ник: Гоблин
Час, я с этой хренью уже достал это понятно. 2 или 3 раза запускал. Меня интересует вот этот код
Me![Список10].Requery
Me.Requery
If Me.Список10.ListCount = 0 Then
If MsgBox("Данный пациент отсутствует в базе. Добавить?", vbOKCancel) = vbOK Then
Fam = Me![ПолеСоСписком2]
Ini = Me![ПолеСоСписком4]
Dat = Me![Поле6]
pol = Me![ПолеСоСписком13]
DoCmd.Close
DoCmd.OpenForm "Пациенты", , , , acFormAdd
Forms![Пациенты]![Фамилия] = Fam
Forms![Пациенты]![Инициалы] = Ini
Forms![Пациенты]![ДатаРождения] = Dat
Forms![Пациенты]![Пол] = pol
Else
Me![ПолеСоСписком2].SetFocus
Me![ПолеСоСписком2] = ""
End If
Присваиваю переменным данные полей, закрыаю форму, открываю другую и вставляю данные в поля из каждой переменной. Работает. Но как-то нестабильно. Надо как-то иначе.
А хрень тут только я советую. У тебя все в порядке. 