Problema treeview con DAO3.6

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.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
maserrano Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690	Tema: Problema treeview con DAO3.6 Enviado: 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.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Enviado: 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. Editado por Mihura - 12/Julio/2023 a las 13:41
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

maserrano Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690	Enviado: 12/Julio/2023 a las 14:02
	Perfecto. Muchas gracias Sr. Mihura Se puede cerrar la consulta. Salu2

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Enviado: 12/Julio/2023 a las 17:13
	¿Y la solución fue?
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

maserrano Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690	Enviado: 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)

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Enviado: 13/Julio/2023 a las 16:54
	OK, gracias.
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es