|
|
|
| | |
|
Переход по записям формы
Способы
Макрокоманда на запись
Docmd.GotoRecord
Команда Аксесса
DoCmd.RunCommand acCmdRecordsGoToNext
Варианты :
acCmdRecordsGoToNew
acCmdRecordsGoToLast
acCmdRecordsGoToFirst
acCmdRecordsGoToPrevious
Синхронизация закладок
Способ подходит для поиска нужной записи в клоне рекордсета и последующей синхронизации с формой:
пример 1 :
'Сначала перейдем к первой записи
Me.RecordsetClone.Movefirst
'Допустим нам нужно перейти на 2 запись
Me.RecordsetClone.Movenext
'синхронизация текущей записи формы с клоном
Me.Bookmark = Форма.recordsetClone.Bookmark
пример 2
возврат к запомненному месту
Dim bm
' запоминаем положение указателя формы
bm = Me.Bookmark
'... здесь выполняем любые переходы по форме
' возврат
Me.Bookmark = bm
пример 3
переход на следующую запись
' увеличиваем положение указателя
Dim bm
' запоминаем положение указателя формы
bm = Me.Bookmark
bm(0) = bm(0) + 1
'синхронизация текущей записи формы с закладкой
Me.Bookmark = bm
Три способа перехода по записям для подчиненной формы MDB
Private Sub способ1_Click()
Dim bm
' запоминаем положение указателя формы
bm = Me.p1.Form.Bookmark
bm(0) = bm(0) + 1
'синхронизация текущей записи формы с закладкой
Me.p1.Form.Bookmark = bm
End Sub
Private Sub способ2_Click()
Me.p1.Form.Recordset.MoveNext
End Sub
Private Sub Способ3_Click()
Me.p1.Form.Recordset.AbsolutePosition = Me.p1.Form.Recordset.AbsolutePosition + 1
End Sub
Примеры кода для кнопок размещенных на главной форме. Имя контрола в который
помещена подчиненная форма "P1" имя (sourceobject) самой формы используемой в качестве подчиненной - любое
| |
| | |