Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/42: Рейтинг темы: голосов - 42, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 93
1

Кнопка следующая запись, предыдущая запись---какие коды

15.04.2015, 08:41. Просмотров 8600. Ответов 10
Метки нет (Все метки)

Подскажите пожалуйста коды на кнопки, выполняющие функции "следующая запись, предыдущая запись", по аналогии те что находятся внизу формы!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2015, 08:41
Ответы с готовыми решениями:

Предыдущая запись как значение по умолчанию
Удивительно, но поиском не смог найти, хотя должно быть не первый спрашиваю... Как в форме вида...

Четыре кнопки на форме: добавить запись, удалить запись, закрыть, найти запись
Private Sub КнопкаДобавитьЗапись_Click() On Error GoTo Err_КнопкаДобавитьЗапись_Click ...

Кнопка: Выделить запись!!!
Подскажите пожалуйста, как в форме, где отображается подчиненная форма на основе таблицы сделать...

Кнопка (добавить запись) работает по принципу (редактировать)
Доброго времени суток! Прошу помощи с моей БД. Вот какая штука: прописала код для кнопки...

__________________
10
Эксперт MS Access
16281 / 6734 / 1469
Регистрация: 21.06.2012
Сообщений: 12,440
15.04.2015, 08:48 2
Цитата Сообщение от KNIGT Посмотреть сообщение
следующая запись
Visual Basic
1
2
3
Private Sub Кнопка12_Click()
    If Not Me.NewRecord Then DoCmd.RunCommand acCmdRecordsGoToNext
End Sub
Можно и мастером (вызывается при "втаскивании" кнопки на форму в режиме конструктора), но там будут встроенные макросы.
2
7921 / 4968 / 548
Регистрация: 27.03.2013
Сообщений: 17,813
15.04.2015, 08:49 3
Лучший ответ Сообщение было отмечено KNIGT как решение

Решение

Цитата Сообщение от KNIGT Посмотреть сообщение
...коды на кнопки...
Я использую вот такие:

ОписаниеКоманда
ЗаписьПерваяDoCmd.GoToRecord , , acFirst
ЗаписьПредыдущаяDoCmd.GoToRecord , , acPrevious
ЗаписьСледующаяDoCmd.GoToRecord , , acNext
ЗаписьПоследняяDoCmd.GoToRecord , , acLast
ЗаписьНоваяDoCmd.GoToRecord , , acNewRec
ЗаписьУдалитьDoCmd.RunCommand acCmdDeleteRecord
ЗаписьНоваяПриОткр.ФормыDoCmd.RunCommand acCmdRecordsGoToNew
1
Эксперт MS Access
26626 / 14320 / 3171
Регистрация: 28.04.2012
Сообщений: 15,702
15.04.2015, 08:54 4
Visual Basic
1
2
3
4
5
6
7
8
9
Me.Recordset.Movefirst     'На 1-ю запись
 
Me.Recordset.MoveNext      'На следующую запись
 
Me.Recordset.MovePrevious  'На предыдущую запись
 
Me.Recordset.MoveLast      'На последнюю запись
 
Me.Recordset.Addnew        'На новую запись
1
ltv_1953
15.04.2015, 09:02
  #5

Не по теме:

Так, три уже есть, кто больше

0
7921 / 4968 / 548
Регистрация: 27.03.2013
Сообщений: 17,813
15.04.2015, 09:13 6
Цитата Сообщение от ltv_1953 Посмотреть сообщение
...кто больше...
Можно я?
Из жизненного опыта хосю добавить - Данные команды желательно вставлять в обработчик ошибок.
типа вот так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub КнЗаписьПервая_Click()
On Error GoTo КнЗаписьПервая_Click_Err
 
    DoCmd.RunCommand acCmdRecordsGoToFirst
 
 
КнЗаписьПервая_Click_Exit:
    Exit Sub
 
КнЗаписьПервая_Click_Err:
    MsgBox Error$
    Resume КнЗаписьПервая_Click_Exit
 
End Sub
А то, всякие страшные сообщения вылазят, к примеру если стоишь на первой записи и жмёшь кнопку - 1 запись.
0
Эксперт MS Access
16281 / 6734 / 1469
Регистрация: 21.06.2012
Сообщений: 12,440
15.04.2015, 09:31 7

Не по теме:

Не зачет, такой вариант DoCmd.RunCommand acCmdRecordsGoTo... уже был

Обработку ошибок здесь можно покороче
Visual Basic
1
2
3
4
5
Private Sub КнЗаписьПервая_Click()
    On Error Resume Next
        DoCmd.RunCommand acCmdRecordsGoToFirst
    On Error GoTo 0
End Sub
1
Эксперт MS Access
26626 / 14320 / 3171
Регистрация: 28.04.2012
Сообщений: 15,702
15.04.2015, 09:35 8
Вообще говоря, все макрокоманды это лишние посредники при работе с записями формы. В конечном итоге форма все равно работает только с рекордсетом. Форма с источником, конечно. У свободной формы нет записей и нет переходов по ним.

Чтобы не было страшных сообщений надо для 2 команд: "на следующую запись" и "на предыдущую запись" проверять не достигнуты ли соответственно конец набора данных или его начало
Для следующей записи
Visual Basic
1
If Not Me.Recordset.EOF Then Me.Recordset.MoveNext
Для предыдущей записи
Visual Basic
1
If Not Me.Recordset.BOF Then Me.Recordset.MovePrevious
Или проверка ошибок.
3
VinniPuh
15.04.2015, 09:35
  #9

Не по теме:

Цитата Сообщение от ltv_1953 Посмотреть сообщение
...Не зачет, ... уже был...
Не может быть, кто такой?

0
18 / 20 / 2
Регистрация: 04.03.2017
Сообщений: 198
12.03.2017, 13:38 10
Доброго времени суток форумчане, как разобраться в VBA для access. Начинаю писать код и не могу понять что означают всплывающие предлагаемые свойства и функции. Где можно найти справки или литературу какую?
0
Модератор
Эксперт MS Access
10041 / 4055 / 654
Регистрация: 07.08.2010
Сообщений: 11,374
Записей в блоге: 3
12.03.2017, 14:31 11
Цитата Сообщение от ГарриНаФеррари Посмотреть сообщение
как разобраться в VBA для access. Начинаю писать код и не могу понять что означают всплывающие предлагаемые свойства и функции.
--или ищите консультанта
--или пытайтесь понять примеры с форума

описания как такового нет, для запоминания служебных слов заведите себе словарик с переводами
без перевода большинство слов есть в справке, но она по vba обычно английская
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2017, 14:31

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Макрос (кнопка) который переходит на определенную запись
Макрос (кнопка) который переходит на определенную запись. Сделал макрос который должен открывать...

В форме карточки сотрудников кнопка ДОБАВИТЬ ЗАПИСЬ не работает, почему, не могу понять.
Добрый день. ))) Подскажите пожалуйста. Делала БД сама (первый раз, голова уже дымится) В форме...

Как убрать следующая/предыдущая запись под постом
Собственно вопрос в заголовке. Как убрать эту бяку?

"Предыдущая запись" | "Следующая запись" по одной рубике
Добрый день! Наверно все знакомы со стандартной постраничной навигацией вордпресс. Когда наверху...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.