ник: Анатолий (Киев)
Уточняю:
ID = Me.SKUID 'Запоминаем значение ключа
frmCat.RecordSource = frmCat.RecordSource 'Обновляем источник
Set rst = frmCat.RecordsetClone 'Это должно быть здесь!
rst.FindFirst "SKUID = " & ID 'Ищем значение ключа (числовое) в новом наборе
If Not rst.NoMatch Then frmCat.Bookmark = rst.Bookmark 'Если найдено - синхронизируем.
|
Я обычно упрощаю:
With frmCat.RecordsetClone
.FindFirst "SKUID = " & ID
If Not .NoMatch Then frmCat.Bookmark = .Bookmark
End With
|
Вы дополнительную форму открываете в режиме acDialog?