Foros del Web » Soporte técnico » Ofimática »

FaceId en access

Estas en el tema de FaceId en access en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 02/04/2007, 16:16
Avatar de haggenx  
Fecha de Ingreso: febrero-2007
Ubicación: México
Mensajes: 823
Antigüedad: 17 años, 1 mes
Puntos: 24
Pregunta FaceId en access

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.
  #2 (permalink)  
Antiguo 02/04/2007, 16:53
Avatar de abrahamvj  
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 8 meses
Puntos: 18
Re: FaceId en access

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
  #3 (permalink)  
Antiguo 03/04/2007, 07:16
Avatar de haggenx  
Fecha de Ingreso: febrero-2007
Ubicación: México
Mensajes: 823
Antigüedad: 17 años, 1 mes
Puntos: 24
De acuerdo Re: FaceId en access

ok gracias, lo voy a probar
  #4 (permalink)  
Antiguo 03/04/2007, 16:08
Avatar de haggenx  
Fecha de Ingreso: febrero-2007
Ubicación: México
Mensajes: 823
Antigüedad: 17 años, 1 mes
Puntos: 24
Re: FaceId en access

Cita:
Iniciado por abrahamvj Ver Mensaje
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.
  #5 (permalink)  
Antiguo 03/04/2007, 17:06
Avatar de abrahamvj  
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 8 meses
Puntos: 18
Re: FaceId en access

De nada amigo, demosle la gracias al libro, jejeje

Abraham
  #6 (permalink)  
Antiguo 08/10/2009, 13:46
 
Fecha de Ingreso: diciembre-2008
Mensajes: 2
Antigüedad: 15 años, 3 meses
Puntos: 0
Respuesta: FaceId en access

Muxas gracias
  #7 (permalink)  
Antiguo 08/10/2009, 19:07
Avatar de caesar.l  
Fecha de Ingreso: febrero-2007
Ubicación: Aguascalientes, México
Mensajes: 1.439
Antigüedad: 17 años, 1 mes
Puntos: 91
Respuesta: FaceId en access

Se ve que no lees las Políticas del foro

Aquí va el punto que aplica a tu respuesta

Cita:
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.
__________________
Yo solo sé, que no sé nada...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 09:11.