** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Nombre de un control(Boton) en una funcion
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoNombre de un control(Boton) en una funcion

 Responder Responder
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Tema: Nombre de un control(Boton) en una funcion
    Enviado: 29/Noviembre/2019 a las 21:24
Estoy intentando adaptar un ejemplo de Bhuo de colorear un boton.

La funcion es esta y esta en un modulo.

Si le paso el control asi funciona correctamete
'Ponemos color al boton
   
    Dim varColor As String
    varColor = rst("ColorBoton")
    lngBool = fCmdButTextPic(Me.Comando1, varColor)   'Funcion en modulo modCmdButVer1

Pero yo quiero que el nombre del control del boton lo pille de un recordset, asi

'Ponemos color al boton
    Dim varControl
    Dim varColor As String
    varControl = rst("NombreBoton")
    varColor = rst("ColorBoton")
    lngBool = fCmdButTextPic(varControl, varColor)


He probado de multiples formas y siempre me da algun error, no se como pasarle el control a esa funcion.

La funcion en el modulo es asi
Function fCmdButTextPic(ctl As Access.Control, ByVal BGColor As Long) As Boolean

Arriba
Chea1 Ver desplegable
Moderador
Moderador


Unido: 20/Noviembre/2005
Localización: España
Estado: Sin conexión
Puntos: 4143
Enlace directo a este mensaje Enviado: 29/Noviembre/2019 a las 22:43
Prueba así:

lngBool = fCmdButTextPic(me.controls(varControl), varColor)
Saludos
José Bengoechea Ibaceta
Mi página

Mi otra página
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 29/Noviembre/2019 a las 23:00
Publicado originalmente por Chea1 Chea1 escribió:

Prueba así:

lngBool = fCmdButTextPic(me.controls(varControl), varColor)


Perfecto!!!ClapClap

Se puede cerrar


Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable