Вторник, 12 Февраля 2019 г. 00:02
+ в цитатник
Не понимаю этот Bookmark, как его использовать. Это код из одной из тем форума. Что с ним делать, куда его поставить?
Много сказано про Bookmark и в то же время ничего. Принцип неясен.
Здесь у меня маленький файл, где из подчиненной формы вызывается окошко для редактирования данной записи. После закрытия этого окошка, хочу вернуться на ту же запись, а не на первую после обновления.
Public Sub SetFormRecord(frm As Form, Optional strCriteria As String, Optional blToFirst As Boolean = False)
'Производит поиск записи по заданным критериям в форме(подчиненной форме)
'и ставит фокус на найденную запись - если она найдена (после удаления например)
'если искомое не найдено - переход на Первую или Последнюю запись в зависимости
'от аргумента blToFirst (по умолчанию переход на последнюю запись)
'------------------------------------------------------------------------------
On Error GoTo SetFormRecordErr
With frm
.RecordsetClone.FindFirst strCriteria
If .RecordsetClone.NoMatch Then
If blToFirst = False Then
.RecordsetClone.MoveLast
Else
.RecordsetClone.MoveFirst
End If
End If
.Bookmark = .RecordsetClone.Bookmark
End With
SetFormRecordBye:
On Error Resume Next
Set frm = Nothing
Exit Sub
SetFormRecordErr:
Err.Clear
Resume SetFormRecordBye
End Sub
https://www.sql.ru/forum/1308967/bookmark
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-