Кодинг

[dBaser]

Иногда на форме необходимо бывает перехватывать нажатие кнопок (например PageUp и PageDown для отмены перехода между записями)


Вот простенькое решение этой задачи!

Код: Выделить всё

Private Sub Form_KeyDown (KeyCode as Integer, Shift as Integer) 

          Select Case KeyCode 
                     Case vbKeyPageUp, vbKeyPageDown 
                             KeyCode=0 

                     Case Else 
                            'Ничче не делать! 
          End Select 
End Sub 

Этот код нужно поместить в обработку событий формы "Нажатие кнопки"!
Если еще добавить в свойство цикла табуляции на форме "Только текущая запись", то на Вашей форме будет обрабатываться только текущая запись и не будет никаких недоразумений у конечного пользователя!

[Rostislava]

У меня вопрос по коду на VBA:
на форме есть три кнопки: кнопка Поиск, кнопка Далее, кнопка Закрыть. Кнопка Поиск при нажатии на неё ищет по введенному образцу соответствующие записи, кнопка Далее продолжает поиск, а кнопка Cancel должна закрыть эту форму. Как написать код на VBA для кнопки Cancel? Помогите, плиз!!!! Буду очень благодарна.

[_korvin81]

Rostislava

Код: Выделить всё

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

в модуле твоей формы
CommandButton1_Click - подставишь имя своей кнопки Cancel
UserForm1 - подставишь имя своей Формы

[Rostislava]

Спасибо огромное! А для кнопки Далее? Я понимаю, что надо организовать цикл, но как?

[_korvin81]

Rostislava
А как у тебя работает кнопка Поиск? Как получается тот список по которому ты будешь двигаться кнопкой Далее?

[Rostislava]

Код на VBA для кнопки Поиск:
Private Sub Поиск_Click()

Фам_учен.SetFocus
DoCmd.FindRecord Образец
MsgBox ("Образец найден")

End Sub
В поле образец вводим фамилию искомого ученика, нажимаем на кнопку Поиск и на форме отображаются данные ученика по этой фамилии. Но макрос находит первого ученика с такой фамилией. А учеников с такой фамилией несколько, как найти следующего ученика с такой фамилией при нажатии на кнопку Далее?

[DbIMok]

https://msdn.microsoft.com/EN-US/librar ... 96453.aspx

[Rostislava]

Спасибо! Все работает!

[Rostislava]

Еще один вопрос: как сделать, чтобы при запуске базы данных открывалась форма без ленты меню ( как в учебной базе Борей)?

[DbIMok]

[Rostislava]

У меня офис 2010

[_korvin81]

"Файл" - "Параметры" или "Параметры Конфиденциальности"

далее на вкладке "Текущая база данных"