menus dinamicos + access

carmen
25 de Octubre del 2005
Necesito ayuda urgente porfavor. Tengo que hacer un men dinmico cuyos nodos se sacan de una base de datos access. ¿alguien me puede dar una pista?
gracias

fabi
25 de Octubre del 2005
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