Tema
:
FaceId en access
Ver Mensaje Individual
#
4
(
permalink
)
03/04/2007, 16:08
haggenx
Fecha de Ingreso: febrero-2007
Ubicación: México
Mensajes: 823
Antigüedad: 18 años
Puntos: 24
Re: FaceId en access
Cita:
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.
haggenx
Ver Perfil
¡Visita mi Sitio!
Buscar todos los Mensajes de haggenx