menus dinamicos + access
Necesito ayuda urgente porfavor. Tengo que hacer un menú dinámico cuyos nodos se sacan de una base de datos access. ¿alguien me puede dar una pista?
gracias
gracias
hola jeje paso mucho tiempo desde la fecha de posteo, en fin a lo nuestro
Private Sub DynamicMenu(consulta As String)
Dim rec As DAO.Recordset
Dim indice As Integer
Dim rec2 As DAO.Recordset
Set rec = LeerBase(consulta)
indice = 0
Do While Not rec.EOF
'indice = rec.Fields!id
Load itemsub(rec.Fields!id)
itemsub(indice).Caption = rec.Fields!cliente
itemTipo(0).Caption = rec.Fields!acceso
itemsub(indice).Tag = "Tag del 1"
itemsub(indice).Visible = True
indice = indice + 1
rec.MoveNext
Loop
End Sub
asi me agrega los items de la base pero no todos tienen subitmens es mas solo el primero y tambien tiene problemas con que pisa el ultimo subtiem ingresado. en fin si te sirve y tenes alguna idea espero respuesta
Fabi
Private Sub DynamicMenu(consulta As String)
Dim rec As DAO.Recordset
Dim indice As Integer
Dim rec2 As DAO.Recordset
Set rec = LeerBase(consulta)
indice = 0
Do While Not rec.EOF
'indice = rec.Fields!id
Load itemsub(rec.Fields!id)
itemsub(indice).Caption = rec.Fields!cliente
itemTipo(0).Caption = rec.Fields!acceso
itemsub(indice).Tag = "Tag del 1"
itemsub(indice).Visible = True
indice = indice + 1
rec.MoveNext
Loop
End Sub
asi me agrega los items de la base pero no todos tienen subitmens es mas solo el primero y tambien tiene problemas con que pisa el ultimo subtiem ingresado. en fin si te sirve y tenes alguna idea espero respuesta
Fabi