Asignar propieadades a Menús

[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!

[David]

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

[pempas]

Muchas gracias David, eres el mejor tio!! no sabía como salirme con esto!!

Funciona a la perfección.

[David]

Iniciado por pempas

Muchas gracias David, eres el mejor tio!! no sabía como salirme con esto!!

Funciona a la perfección.

De Nada...
I Not The Best