ник: ludmil
может быть так
Private Sub Кнопка266_Click()
Dim pole1, pole2, pole3
nompolisx = Me!кодсемьи ' исходный ключ в одной таблице
Set rst = dbs.OpenRecordset("дела семей", dbOpenDynaset) 'как сказать что только на добавление открываю
rst.AddNew
rst![дата консилиума] = Me![дата консилиума]
rst![фамилия] = Me![фамилия] ' и т д по всем полям записи из формы ....
rst![дата ввода] = Date 'часть полей изменяю
rst![отделение] = "ОПЖ" '
rst![ВРЕМЯ ОКОНЧАНИЯ] = Time
nomer = rst![кодсемьи] 'сохранение нового ключа ? будет ли он в этот момент или после обновления
rst.Update
rst.Close
'таким образом у меня есть старый ключ для поиска подчиненных и новый для замены
Set rst = dbs.OpenRecordset("анкета", dbOpenDynaset) 'можно ли открыть по условию
'Установка критериев поиска
strCriteria = "кодсемьи='nompolisx'" 'правильно ли пишу не знаю .... это поле связи кодсемьи
With rst
If .EOF = True Then GoTo FindAndChangeEnd 'Если таблица пустая то на выход...
.MoveLast 'Заполнение набора записями
.MoveFirst 'Возврат в начало
'Поиск
.FindFirst strCriteria
If Not rst.NoMatch Then 'Если искомое найдено
'Вкл режим добавления
.Add
'Изменение значения поля c ключом ....
!кодсемьи = nomer
.Update 'Сохранение
Else
MsgBox "По указанным критериям запись не найдена!", vbInformation
End If
End With
End Sub