Gestionar los menus contextuales

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

no puedes tener dos menús contextuales sobre un mismo control, pero ¿qué te
impide poner en el tuyo los controles que necesites del "original" de
Access?

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Toni" escribió en el mensaje de
noticias:

Buenos días,

Quiero presentar una aplicación en la que se pueda filtrar en los
formularios mediante el botón derecho del mouse sobre la barra de
formularios. Mi problema reside en que no se dejar activado este menu
contextual sin que quede desactivado el menu contextual que permite ir al
diseño del formulario.

Estoy intentando combinaciones desde las opciones de Access (restringir el
uso de menús no restringidos / permitir el uso de menús contextuales
predeterminados), sin resultado.

Gracias de antemano por las respuestas.

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
ups, el editor ha añadido un acento al asunto del mensaje, por lo que se ha
roto el hilo :S

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Emilio" escribió en el mensaje de
noticias:jvgm82$kft$

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

no puedes tener dos menús contextuales sobre un mismo control, pero ¿qué te
impide poner en el tuyo los controles que necesites del "original" de
Access?

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Toni" escribió en el mensaje de
noticias:

Buenos días,

Quiero presentar una aplicación en la que se pueda filtrar en los
formularios mediante el botón derecho del mouse sobre la barra de
formularios. Mi problema reside en que no se dejar activado este menu
contextual sin que quede desactivado el menu contextual que permite ir al
diseño del formulario.

Estoy intentando combinaciones desde las opciones de Access (restringir el
uso de menús no restringidos / permitir el uso de menús contextuales
predeterminados), sin resultado.

Gracias de antemano por las respuestas.

Entiendo que me propones que cree yo mismo un menu contextual. Cómo hago para diseñarlo? I otrosí, cuando lo tenga diseñado como hago para activar este menu i no otros? Puedo activar diferentes menus en función de los formularios?

Muchas gràcias!
Toni

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
mi respuesta venía de haber entendido de tu pregunta que ya tenías creado un
menú contextual alternativo, ¿como se crea?, yo lo aprendí en la ayuda, esa
gran desconocida:

Sacado de uno de mis ejemplos:

'*******************************************************************************
'* CreaMenuContextual
'* Reconstruyo el menú contextual del formulario añadiéndole en este caso
las
'* opciones Hoy, Ayer e Insertar Fecha
'* uso: CreaMenuContextual
'* ESH 06/12/05 18:14
'*******************************************************************************

Public Sub CreaMenuContextual(strNombre As String)

' creo un nuevo menú contextual
On Error GoTo CreaMenuContextual_TratamientoErrores

Set Barra = CommandBars.Add(strNombre, msoBarPopup, , False)

' le añado la opción hoy
Set MenuItem = Barra.Controls.Add(msoControlButton, 1, , , True)
With MenuItem
.Caption = "Hoy"
.FaceId = 1992
.OnAction = "=Hoy()"
.TooltipText = "Inserta la fecha de hoy"
End With

' le añado la opción ayer
Set MenuItem = Barra.Controls.Add(msoControlButton, 1, , , True)
With MenuItem
.Caption = "Ayer"
.FaceId = 125
.OnAction = "=Ayer()"
.TooltipText = "Inserta la fecha de ayer"
End With

' le añado la opción insertar Fecha
Set MenuItem = Barra.Controls.Add(msoControlButton, 1, , , True)
With MenuItem
.Caption = "Insertar Fecha ..."
.FaceId = 1987
.OnAction = "=AbrirCalendario (" & Chr(34) & Me.Name & Chr(34) & ")"
.TooltipText = "Abre un calendario para seleccionar una fecha"
End With
Set MenuItem = Barra.Controls.Add(msoControlButton, 2952, , , True) '
Diseño Formulario
MenuItem.BeginGroup = True
Set MenuItem = Barra.Controls.Add(msoControlButton, 498, , , True) ' ver
Hoja de datos
Set MenuItem = Barra.Controls.Add(msoControlButton, 3894, , , True) '
Set MenuItem = Barra.Controls.Add(msoControlButton, 628, , , True)
MenuItem.BeginGroup = True
Set MenuItem = Barra.Controls.Add(msoControlButton, 640, , , True) '
Filtro por selección
Set MenuItem = Barra.Controls.Add(msoControlButton, 3017, , , True) '
Filtro excluyendo la selección
Set MenuItem = Barra.Controls.Add(msoControlButton, 605, , , True) '
Quitar filtro u orden
Set MenuItem = Barra.Controls.Add(msoControlButton, 21, , , True) '
Cortar
MenuItem.BeginGroup = True
Set MenuItem = Barra.Controls.Add(msoControlButton, 19, , , True) '
Copiar
Set MenuItem = Barra.Controls.Add(msoControlButton, 22, , , True) ' Pegar
Set MenuItem = Barra.Controls.Add(msoControlButton, 210, , , True) ' Orden
Ascendente
MenuItem.BeginGroup = True
Set MenuItem = Barra.Controls.Add(msoControlButton, 211, , , True) ' Orden
Descendente
Set MenuItem = Barra.Controls.Add(msoControlButton, 2771, , , True) '
Propiedades
MenuItem.BeginGroup = True

CreaMenuContextual_Salir:
On Error GoTo 0
Exit Sub

CreaMenuContextual_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc.: CreaMenuContextual de
Documento VBA: Form_frmMenuContextual (" & Err.Description & ")"
Resume CreaMenuContextual_Salir

End Sub ' CreaMenuContextual


Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Toni" escribió en el mensaje de
noticias:


Entiendo que me propones que cree yo mismo un menu contextual. Cómo hago
para diseñarlo? I otrosí, cuando lo tenga diseñado como hago para activar
este menu i no otros? Puedo activar diferentes menus en función de los
formularios?

Muchas gràcias!
Toni