Nombre de un control(Boton) en una funcion |
Responder |
Autor | |
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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 |
|
Chea1
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Moderador Unido: 20/Noviembre/2005 Localización: España Estado: Sin conexión Puntos: 4143 |
Enviado: 29/Noviembre/2019 a las 22:43 |
Prueba así: lngBool = fCmdButTextPic(me.controls(varControl), varColor)
|
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 29/Noviembre/2019 a las 23:00 |
Perfecto!!! Se puede cerrar |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |