На событие AfterUpdate вешаем обработку:    Private Sub НазваниеРегиона_AfterUpdate()  'Это чтоб после Requery восстанавливать положение курсора на исправленной  'записи (Requery перебрасывает курсор на первую запись, а без него никуда)      Dim Положение As Long      On Error GoTo 1      Положение = Ре  'Ре - ключевое поле в таблице T_Регионы      Me.Requery      Me.RecordsetClone.FindFirst "Ре = " & CStr(Положение)      Me.Bookmark = Me.RecordsetClone.Bookmark      Exit Sub  1: MsgBox Err.Description      Resume: Exit Sub  End Sub  

Ваш коментарий будет первым

Добавить коментарий
Имя:
E-mail
Коментарий:
Код:*