14. Бывает при разработке интерфейса необходимо не только провести сортировку формы, но и сохранить текущую запись. Это делается с помощью этого кода
' Сортировка
Private Sub butSort_Click()
Dim frm As Form, rst As Recordset, myBook As String
On Error Resume Next
Set frm = [Form_Пример 14 пдч] 'Выбираем форму
myBook = frm.Книга
frm.OrderBy = "[Книга] asc" 'Сортируем по возрастанию
frm.OrderByOn = True 'Включаем сортировку
'Ищем запись
Set rst = frm.Recordset
rst.FindFirst "[Книга]='" myBook "'"
frm.Bookmark = rst.Bookmark 'Возвращаем позицию
Err.Clear
End Sub
'==============================================================
' Сортировка
Private Sub Form_Open(Cancel As Integer)
Dim frm As Form
Set frm = [Form_Пример 14 пдч] 'Выбираем форму
frm.OrderBy = "[Книга] desc" 'Сортируем по убыванию
frm.OrderByOn = True 'Включаем сортировку
End Sub