Crear menus y botones en la cinta de opciones (RIBBON) de access 2007 y 2010 ACTUALIZACION

Esta vez explico como hacer una Cinta de botones o un Ribbon en access 2007 y 2010 pero utilizando un archivo con extension xml. IMPORTANTE: el archivo xlm debe estar ubicado en la misma carpeta q la base de datos.

Toda instruccion de access sera llamada desde un boton, sin importar si el boton esta dentro de un menu, dentro de un grupo, dentro de una Ribbon, al final todo formulario, reporte, function, etc. Será llamado desde un botón xml.
Crear un boton xml:

<button

                              id = “idAgent”                

                               size = “large”

                               label = “Agents”

                               imageMso = “ResourcesAddMenu”

                               onAction = “=agentesForm()”

                />

Analisis:

Id: valor unico en toda la cinta de opciones.

Size: puede tener dos valores “large” o “small” esto le indica a Access mostrar grande o pekeño el tamaño del botón

Label: este es el identificador q se mostrara en la cinta o ribbon (imagen02)

imageMso: Es la imagen que se mostrara en la Cinta o Ribbon. No se puede usar cualquier imagen, solo las imágenes prediseñadas de Office.
El archivo http://sdrv.ms/14UoFKe contiene la lista de imágenes q pueden utilizarse en access2007 ; ver imagen q muestra como setear el archivo descargado

Access03ExcelOption


El archivo http://sdrv.ms/14UoTkE contiene la lista de imágenes q pueden utilizarse en access2010. para la version 2010 es utiliza un archivo de word, ver imagen q muestra como ver la lista de imagenes prediseñadas.

Access04WordOptions


onAction: comando o secuencia ejecutada al hacer clic en el botón correspondiente, Aki se puede agregar varios comandos para llamar una acción, yo prefiero utilizar funciones ya q en una función se pueden agregar multiples instrucciones, la función debe llamarse de la siguiente forma: “=nombre_funcion()”

Como vincular un archivo *.xml

Primero creamos la funcion LoadRibbon

Crear la funcion:

Public Function LoadRibbons()

‘Para correr este proceso crear una macro llamada AUTOEXEC con la Action: Runcode y en Arguments: LoadRibbons ()

‘En Access Option/Current Database/Ribbon and ToolBar Option/Ribbon Name:

On Error GoTo Error1

Dim f As Long

Dim strText As String

Dim strOut As String

f = FreeFile

‘Nombre del archivo  *.xml fisico q debe ser guardo en la misma carpeta q contiene

Open CurrentProject.Path & “\ConfigSys.xml” For Input As f

Do While Not EOF(f)

Line Input #f, strText

strOut = strOut & strText

Loop

‘NOMBRE DEL Ribbon q sera digitado en: Access Option/Current Database/Ribbon and ToolBar Option/Ribbon Name:

Application.LoadCustomUI “menu”, strOut

Error1_Exit:

On Error Resume Next

Close f

Exit Function

Error1:

Select Case Err

Case 32609

Case Else

MsgBox “Error: ” & Err.Number & vbCrLf & _

Err.Description, vbCritical, _

“Error”, Err.HelpFile, Err.HelpContext

End Select

Resume Error1_Exit

End Function

Segundo Crear una macro con el nombre AUTOEXEC en donde:

Action: Runcode

Function Name: LoadRibbons ()

Por ultimo en Access Option / Current Database/ Ribbon and Toolbar Option

La opcion Ribbon name debe tener el valor: menu

Access01Option

Se creo una base ejemplo basada en Access 2007; descargar ejemplo http://sdrv.ms/YgdNnn

También se debe descargar el archivo xlm desde este link http://sdrv.ms/YgdXes

Aclaro este post es un refuerzo o actualización de la publicación https://76areal.wordpress.com/2011/05/10/menus-y-botones-para-access-2007-y-2010/

En donde explico paso a paso como crear una Ribbon mejor estructurada.

IMPORTANTE:  todos los archivos sugeridos en los links deben descargarse para q funcionen correctamente.

Acerca de Antonio

publico lo q me parece interesante en el momento q estoy viviendo Ver todas las entradas de Antonio

3 responses to “Crear menus y botones en la cinta de opciones (RIBBON) de access 2007 y 2010 ACTUALIZACION

  • macmachoMiguel

    Excelente trabajo y lo mejor la actualización.
    Muchas graciasssss

  • Rogelio Tapia

    Amigo, exelente y de mucha ayuda tu articulo, gracias por el aporte.
    Estoy trabajando en un proyecto y requiero activar cinta segun el formulario que se elija, por ejemplo al abrir un informe de debera deshabilitar la cinta y habilitar un abarra de herramientas, sabe como puedo lograr esto, agradecere enormemente tus comentarios.

  • Miguel Castellini

    Respondiendo a Rogelio: Tenes que tener un Ribbon generico para la aplicación y luego los Ribbons que utilizaras en cada Formulario. Para ello en el formulario – propiedades – debes indicar en Barra de Herramientas el Ribbon que le vas a asignar. Bueno si no te queda clario avisanos

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: