Пользовательские меню
Суббота, 20 сентября 2008 Это своего рода меню, что позволяет нам экономить время, строк кода и лучше расположение с точки зрения открытых форм, так как при этом меню просто необходимо открытом виде. В дополнение к сокращению количества открытых форм также уменьшает количество кнопок в меню, чтобы открыть каждому форме.
Этот тип меню, конечно, который существовал в течение некоторого времени, и уже используется многими пользователями доступа.
Так, где это меню?
Давайте создадим меню, используя поле со списком, который содержит все формы, которые мы планируем открыть через него. Когда вы выбираете опцию из выпадающего списка заявки отображаются в подчиненной форме. Потом мы начинаем делать меню шаг за шагом.
1 - Давайте создадим таблицу, где мы будем хранить имя, которое вы хотите, чтобы каждая форма и название формы, которая откроется. В этом примере я создал "tblmenu" таблицу со следующими полями:
Тип поля
Nomedomenu текста -> Имя, которое будет видно в меню (список)
формирование текста -> Название вида, который откроет
После того как данные введены в примере:
Форма NomedoMenu
Счета Form1
Депозиты Form2
Движение formulario3
Счет-Box formulario4
Счет-счет formulario5
Извлечение formulario6
2 - Затем мы создаем запрос из предыдущей таблицы:
Tblmenu выбрал таблицу, а затем выбрать два поля, в которых мы выбрали для восхождения рода nomedomenu легче найти в меню довольно много раз, когда мы хотим, чтобы открыть формы. В этом запросе я назвал "CsMenu.
3 - давайте создадим «Меню» виде, то есть выбрать новую форму в режиме конструктора. Затем мы создаем поле со списком и измените следующие свойства:
- Количество колонок: 2
- Ширины столбцов: 1 см, 0cm;
- Происхождение линии: csmenu (это имя запроса созданный в предыдущем пункте)
4 - в той же форме мы создадим подчиненной несвязанных главной формы (В примере я назвал menuquadro). Именно эта форма, которая будет открывать каждую из форм, чтобы выбрать из меню (выпадающего списка).
5 - Теперь создадим модуль, который позволит нам открыть меню, выбранного в поле со списком в подчиненной форме.
Мы создали модуль (который я назвал "abrirmenu) и вставить следующий код:
Общественный AtivarMenu функции (Combmenu ComboBox, subabrir подчиненной)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
После переезда в свойствах поля со списком в форме меню и после обновления событие поставить создана функция: ativarmenu = ([меню], [menuquadro]), что «Меню» это имя в поле со списком и «menuquadro" имя подчиненной.
И, наконец, меню готово к использованию. Просто попробуйте и использования. Надеюсь, вам понравился этот совет.
Скачать: меню
Ниже картина меню.
Пользовательские меню
