FaceId en access

[haggenx]

Hola:

Tengo una duda, en access es posible crear menus dinamicamente mediante el codigo de vba, he visto que se le puede agregar una imagen al menu mediante la propiedad faceid = numero, pero por atínale he encontrado varios numeros que me ponen una imagen determinada, he buscado y no he encontrado ninguna lista de estos numeros que me diga que hace cada numero, estar probando de uno por uno no es practico, agradeceria si alguien me facilitara esta clase de información.

[abrahamvj]

Esto lo saque de un libor de access de McGraw hill. Pegalo en un modulo:

Option Explicit
Option Compare Database

Function cbshowbuttonfaceids(lngidstart As Long, lngidstop As Long)
Dim cbrnewtoolbar As commandbar
Dim cmdnewbutton As CommandBarButton
Dim intcntr As Integer
On Error Resume Next
Application.CommandBars("showfaceids").Delete
Set cbrnewtoolbar = Application.CommandBars.Add(Name:="showfaceids", temporary:=True)
For intcntr = lngidstart To lngidstop
Set cmdnewbutton = cbrnewtoolbar.Controls.Add(Type:=msocontrolbutton)
With cmdnewbutton
.faceid = intcntr
.tooltiptext = "Faceid= " & intcntr
End With
Next intcntr
With cbrnewtoolbar
.Width = 600
.Left = 100
.Top = 200
.Visible = True
End With

End Function

Ahora crea una macro, en Accion le colocas "Ejecutar codigo", en "nombre de funcion" colocas: cbshowbuttonfaceids (1, 500) (**500 o mas**), corre la macro y mira lo que ocurre1!!!

Abraham

[haggenx]

ok gracias, lo voy a probar

[haggenx]

Iniciado por abrahamvj

Esto lo saque de un libor de access de McGraw hill. Pegalo en un modulo:

Option Explicit
Option Compare Database

Function cbshowbuttonfaceids(lngidstart As Long, lngidstop As Long)
Dim cbrnewtoolbar As commandbar
Dim cmdnewbutton As CommandBarButton
Dim intcntr As Integer
On Error Resume Next
Application.CommandBars("showfaceids").Delete
Set cbrnewtoolbar = Application.CommandBars.Add(Name:="showfaceids", temporary:=True)
For intcntr = lngidstart To lngidstop
Set cmdnewbutton = cbrnewtoolbar.Controls.Add(Type:=msocontrolbutton)
With cmdnewbutton
.faceid = intcntr
.tooltiptext = "Faceid= " & intcntr
End With
Next intcntr
With cbrnewtoolbar
.Width = 600
.Left = 100
.Top = 200
.Visible = True
End With

End Function

Ahora crea una macro, en Accion le colocas "Ejecutar codigo", en "nombre de funcion" colocas: cbshowbuttonfaceids (1, 500) (**500 o mas**), corre la macro y mira lo que ocurre1!!!

Abraham

ya la probé, funciona perfecto y ahora si ya tengo la lista de todos los iconos que puedo usar, muchas gracias.

[abrahamvj]

De nada amigo, demosle la gracias al libro, jejeje

Abraham

[pollo_xx]

Muxas gracias

[caesar.l]

Se ve que no lees las Políticas del foro

Aquí va el punto que aplica a tu respuesta

2.8 Los usuarios no pueden revivir o reactivar temas publicando información inútil o sin sentido, o llevando a cabo cualquier otra acción para deliberadamente mantener arriba en el índice del foro dicho tema.