При редактировании полей сортировки в ленточной форме ADP проекта убегает отредактированная запись
при использовании приведенного ниже способа обновления источника , который я использую после редактирования записи на AferUpdate(),
отредактированная запись убегает на новое место и может вообще стать не видной на экране
Как сделать так чтобы фокус после редактирования оставался на отредактированной записи?
Ну или на следующей за ней?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
' Позиционирование на старую запись -------------------------------
On Error Resume Next
Dim bm
' запоминаем положение указателя формы
bm = Me.Bookmark
Me.Requery
' Ждем пока закончится загрузка данных в рекордсет
Dim rs
'хитро но так надо для безглючности
Set rs = Me.RecordsetClone.Clone
Do While rs.State <> 1
DoEvents 'Для рекордсетов с очень большим объемом записей желательно вставить API Sleep
Loop
Me.Bookmark = bm
rs.Close
Set rs = Nothing
Exit Sub
'-----------------------------------------
