Variable en Nombre de Objeto
Publicado por Francisco (7 intervenciones) el 23/09/2021 21:21:31
Buenas tardes
De antemano gracias por los comentarios.
Tengo un formulario de Login para entrar a un sistema, en cuanto se identifica el usuario llamo al formulario llamado
FrmMenuPrincipal el cual tiene varios botones de Navegacion llamados BotónDeNavegación01 hast el BotónDeNavegación15.
Requiero cambiar la propiedad Visible de todos los botones según los permisos de los usuarios.
Ejemplo:
[Form_FrmMenuPrincipal].BotónDeNavegación15.Visible = True
Tengo una variable llamada Tarea la cual tiene el numero del botón de navegación al que requiero cambiar la propiedad Visible.
Mi problema es que no he encontrado la forma de cambiarla ocupando la variable, he intentado con estos códigos.
Primer codigo
[Form_FrmMenuPrincipal].BotónDeNavegación & Tarea.Visible = True
Segundo código
Dim bt1 As Object
Set btn1 = "[Form_FrmMenuPrincipal].BotónDeNavegación" & !Tarea
btn1.Visible = True
Tercer codigo
Dim bt1 As Object
Set btn1 = "BotónDeNavegación" & !Tarea
[Form_FrmMenuPrincipal].btn1.Visible = True
Pero ninguno me funciona.
Gracias por su apoyo.
De antemano gracias por los comentarios.
Tengo un formulario de Login para entrar a un sistema, en cuanto se identifica el usuario llamo al formulario llamado
FrmMenuPrincipal el cual tiene varios botones de Navegacion llamados BotónDeNavegación01 hast el BotónDeNavegación15.
Requiero cambiar la propiedad Visible de todos los botones según los permisos de los usuarios.
Ejemplo:
[Form_FrmMenuPrincipal].BotónDeNavegación15.Visible = True
Tengo una variable llamada Tarea la cual tiene el numero del botón de navegación al que requiero cambiar la propiedad Visible.
Mi problema es que no he encontrado la forma de cambiarla ocupando la variable, he intentado con estos códigos.
Primer codigo
[Form_FrmMenuPrincipal].BotónDeNavegación & Tarea.Visible = True
Segundo código
Dim bt1 As Object
Set btn1 = "[Form_FrmMenuPrincipal].BotónDeNavegación" & !Tarea
btn1.Visible = True
Tercer codigo
Dim bt1 As Object
Set btn1 = "BotónDeNavegación" & !Tarea
[Form_FrmMenuPrincipal].btn1.Visible = True
Pero ninguno me funciona.
Gracias por su apoyo.
Valora esta pregunta
0