Menú personalizado
Sábado, 20 de septiembre 2008 Se trata de un tipo de menú que nos permite ahorrar tiempo, las líneas de código y un mejor acuerdo en cuanto a las formas abiertas, ya que con este menú sólo tiene una forma abierta. Además de reducir el número de formularios abiertos también disminuye el número de botones en un menú para abrir cada formulario.
Este tipo de menú, sin duda que ha existido por algún tiempo y ya es utilizada por muchos usuarios de acceso.
Entonces, ¿dónde está este menú?
Vamos a crear el menú con un cuadro combinado que contiene todas las formas que nos va a abrir a través de él. Cuando se selecciona una opción en el cuadro combinado del formulario de solicitud se visualiza en el subformulario. Entonces comenzamos a dar el paso a paso del menú.
1 - Vamos a crear una mesa donde vamos a guardar el nombre que desea dar a cada forma y el nombre del formulario que se abrirá. En el ejemplo que he creado 'tblmenu' de la tabla con los siguientes campos:
Tipo de campo
Texto Nomedomenu -> Nombre que se verá en el menú (cuadro combinado)
forman el texto -> Nombre del formulario que se abrirá
Después de que los datos introducidos en el ejemplo son los siguientes:
NomedoMenu Formulario
Cuentas de Form1
Depósitos Form2
Movimientos formulario3
Cuenta Caja formulario4
Cuenta-Cuenta formulario5
Extracto formulario6
2 - Luego creamos una consulta de la tabla anterior:
Tblmenu eligió la mesa y luego elegir los dos campos en los que hemos elegido para ascender nomedomenu tipo a ser más fácil encontrar el menú de unas cuantas veces cuando queremos abrir los formularios. Para esta consulta llamé 'CsMenu'.
3 - Vamos a crear 'Menú' la forma, es decir, elegir la forma nueva en la vista Diseño. Luego creamos un cuadro combinado y cambie las siguientes propiedades:
- Número de columnas: 2
- Ancho de columnas: 1 cm, 0cm;
- Origen de la línea: csmenu (que es el nombre de la consulta creada en el párrafo anterior)
4 - En la misma forma vamos a crear un formulario independiente subformulario principal (En el ejemplo que llama menuquadro). Esta es la forma que se abra cada una de las formas para elegir el menú (cuadro combinado).
5 - A continuación, cree un módulo que nos permitirá abrir el menú que está seleccionado en el cuadro combinado en el subformulario.
Hemos creado un módulo (que he llamado 'abrirmenu') y pegar el siguiente código:
AtivarMenu la Función Pública (Combmenu El ComboBox, subabrir El subformulario)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Después de ir a las propiedades del cuadro combinado en el menú de la forma y el evento de actualización Después de poner la función de creación: ativarmenu = ([Menú], [menuquadro]) que 'Menú' es el nombre del cuadro combinado y 'menuquadro "la nombre del subformulario.
Y, finalmente, el menú está listo para su uso. Simplemente tratar de usar. Espero que hayan disfrutado este consejo.
Descargar: Menú
A continuación una imagen del menú.
Menú personalizado
