Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: osmor

Ща
ВОт она:

Sub MoveMe(varUp As Boolean)
                             On Error Resume Next
                             Me.RecordsetClone.Bookmark = Me.Bookmark
                             If varUp Then
                                 Me.RecordsetClone.MovePrevious
                             Else
                                 Me.RecordsetClone.MoveNext
                             End If
                             Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub


Но вообще лучше вот так:



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo KeyDownERR
If KeyCode = 38 Then       'Нажата клавиша ВВЕРХ
     DoCmd.GoToRecord , , acPrevious 
ElseIf KeyCode = 40 Then   'Нажата клавиша ВНИЗ
     DoCmd.GoToRecord , , acNext
End If
Exit Sub 

KeyDownERR:
Err = 0 
End Sub


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.