Imprimir página | Cerrar ventana

Problema treeview con DAO3.6

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86735
Fecha de impresión: 27/Marzo/2026 a las 05:00


Tema: Problema treeview con DAO3.6
Publicado por: maserrano
Asunto: Problema treeview con DAO3.6
Fecha de publicación: 12/Julio/2023 a las 10:22

Buenas. Un ejemplo interesante de lista treeview que funciona en versión antigua con referencia DAO 3.6, al adaptarlo a nueva versión de access (que ya no admite DAO3.6) funciona pero no muestra en el treeview a los nodos hijos y sí solo al padre. Además te pide que declares "tvwChild" hecho que no sucede en la versión que usa DAO.
Declaro tvwChild como Integer (p.e.), pero ya comento que no muestra en el tree a los hijos.
Ni idea de porqué. Sabrían orientar una solución.
Gracias de antemano.


Respuestas:
Publicado por: Mihura
Fecha de publicación: 12/Julio/2023 a las 10:57
Hola,

No tiene nada que ver el control Treeview con el uso de DAO 3.6 ó Microsoft Office xx.x Access database engine.

Eso si, declara los recordsets que utilices como:
    Dim Rs AS DAO.RecordSet

Un nodo (da igual que sea padre o hijo) es un objeto tipo Node no un integer.

Y muy importante, la clave que le pasas a los nodos asegúrate de que sea un string, si no lo haces no los crea.


Ed. Gracias Xavi. Ven más 8 ojos que 4.




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: maserrano
Fecha de publicación: 12/Julio/2023 a las 14:02
Perfecto.
Muchas gracias Sr. Mihura
Se puede cerrar la consulta.
Salu2

Publicado por: Mihura
Fecha de publicación: 12/Julio/2023 a las 17:13
¿Y la solución fue?

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: maserrano
Fecha de publicación: 12/Julio/2023 a las 17:27
Pues he seguido sus pasos.
Al cargar el formulario he declarado el recordset junto a la consulta que le paso:

Dim rst As DAO.Recordset, _
    strSQL As String

y le he pasado un par de referencias de Microsoft (VB for Aplications Extensibility 5.3 y Common Controls 6.0)

Publicado por: Mihura
Fecha de publicación: 13/Julio/2023 a las 16:54
OK, gracias.

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Imprimir página | Cerrar ventana