Access - Variable en Nombre de Objeto

 
Vista:

Variable en Nombre de Objeto

Publicado por Francisco (4 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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Variable en Nombre de Objeto

Publicado por Anonimo (2501 intervenciones) el 24/09/2021 11:15:42
Creo que esta sintaxis puede funcionar:

Forms.[Form_FrmMenuPrincipal].controls("BotónDeNavegación" &15).Visible = True

Forms.[xxx]
De la colección de formularios utiliza el formulario xxxxx

controls("zzzzzz")
De su colección de controles utiliza el que se llama zzzzzz

Visible = True
De el, activa su propiedad visible
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Variable en Nombre de Objeto

Publicado por Francisco (4 intervenciones) el 24/09/2021 15:47:49
Muchas gracias por tus comentarios me fueron de mucha utilidad, comparto como quedo resuelto.

[Form_FrmMenuPrincipal].Controls("BotónDeNavegación" & !Tarea).Visible = True

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar