Barra de Menú Contextual en Access
967
post-template-default,single,single-post,postid-967,single-format-standard,ajax_fade,page_not_loaded,,vertical_menu_enabled,qode-title-hidden,side_area_uncovered_from_content,qode-theme-ver-11.0,qode-theme-bridge,wpb-js-composer js-comp-ver-5.0.1,vc_responsive

Barra de Menú Contextual en Access

Paso a paso para crear una barra de menus contextual y utilizarla en un formulario Access.

Como crear la barra de Menus Contextuales:

  1. Ir Ver-> Barra de Herramientas -> Personalizar
  2. Seleccionar la pestaña Barra de Herramientas y pulsa el Boton Nueva
  3. Poner un nombre (yo las suelo empezar por ctx) y MenuContextual y verás que aparece una barra flotante.
  4. Añadir las funciones o macros que se quiera o no pongas ninguna
  5. Una vez creada la barra de Herramientas, selecciona Propiedades de la Barra de Herramientas nueva e indica que es de tipo emergente, verás que desaparece de la lisa de Barra de Herramientas, no pasa nada.

Como modificar las opciones de un Menú Contextual

  1. Ir Ver-> Barra de Herramientas -> Personalizar
  2. Marcar la barra Menús Contextuales y aparece una barra que contiene todos los menús contextuales de Access.
  3. El último Menú es Personalizada y allí podemos, de la forma habitual, añadir, modificar o eliminar opciones de la barra de Menús

Una forma de Utilizar los Menús Contextuales

Es habitual tener un formulario con una lista de registros y que queramos añadirle una serie de opciones a los mismos via menú contextual de una forma sencilla, aquí os pongo un ejemplo posible, para utilizar este ejemplo son necesarios conocimientos básicos de VBA.

Partimos de la base de que tenemos un formulario que nos muestra una lsita de clientes y cada cliente tiene su formulario de mantenimiento de datos: frmClientes

  1. Creamos una barra de menú contextual llamada ctxCliente
  2. Creamos una variable global llamada gblCliente
  3. Creamos una función VBA por cada acción de la Barra de Menús (Ejemplo 1)
  4. Añadidimos en nuestra barra de menús la acción para acceder a la función pública poniendo en Acción = pfuCompeticionFicha()

Ejemplo 1:

Public Function pfuClienteFicha()
On Error Resume Next
DoCmd.OpenForm "frmCliente", , , "[ClienteID]='" & gblCliente & "'"
End Function
1 Star2 Stars3 Stars4 Stars5 Stars (1 votes, average: 5,00 out of 5)
Cargando…
Tags:
No Comments

Deja un comentario

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies