Nombre de un control(Boton) en una funcion
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84867
Fecha de impresión: 27/Marzo/2026 a las 04:08
Tema: Nombre de un control(Boton) en una funcion
Publicado por: rokoko
Asunto: Nombre de un control(Boton) en una funcion
Fecha de publicación: 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 |
Respuestas:
Publicado por: Chea1
Fecha de publicación: 29/Noviembre/2019 a las 22:43
|
Prueba así: lngBool = fCmdButTextPic(me.controls(varControl), varColor) ------------- Saludos José Bengoechea Ibaceta http://jbengoechea.com - Mi página http://access.bengoechea.net - Mi otra página |
Publicado por: rokoko
Fecha de publicación: 29/Noviembre/2019 a las 23:00
Perfecto!!!  Se puede cerrar |
Chea1 escribió: