Cita:
Iniciado por pempas Hola a tod@s,
Tengo una duda, ¿Qué código podría hacer para asignar propiedades de visible o false a un menú desde una BD?.
Me explico, tengo una tabla que contiene los siguientes campos:
Menu - Nivel - Acceso
Aquí yo asigno los nombres de los menús, tal y como están programados, el nivel y si tiene acceso o no.
Pero claro, quiero hacer un procedimiento en el que con pasarle el nombre del menú pueda establecer la propiedad en True o False, para que sea dinámico, con tan solo agregar un registro, tener una nueva configuración
Espero haberme explicado y que alguien me ayude!
Gracias!
Bueno, te doy una idea de como podrías hacerlo, ahora, deberás consultar la BD para hacerlo ya q' el código solo muestra como ocultar Menús a partir del Nombre...
Código:
Private Sub Form_Load()
FindMenuByName("Save").Visible = False
End Sub
Function FindMenuByName(ByVal Name As String) As Menu
Dim iControls As Long
For iControls = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(iControls) Is Menu Then
If Me.Controls(iControls).Name = Name Then
Set FindMenuByName = Me.Controls(iControls)
Exit Function
End If
End If
Next iControls
End Function