Treeview en access 2003

[Bluey]

Hola de nuevo amigos, trabajo con access 2003 y quisiera saber si hay alguna
forma facil y que no de problemas (de librerias, ocx...) para crear un
treeview

gracias

__________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4316 (20090807) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

[Patxi Sanz]

Hola Bluey:

Forma f�cil y sin que de problemas, no s� si habr�.

Puedes probar con el control TreeView que ven�a con VB6. Supongo que en el
grupo habr� alg�n hilo que lo trate, y si no, puedes buscar ejemplos en la
Web del Guille, en Recursos Visual Basic, o en Google:

- http://www.elguille.info/
- http://www.recursosvisualbasic.com.ar/

Seguramente, (casi) todos los ejemplos que encuentres ser�n para VB6, pero
con un poco de ma�a y paciencia los podr�s ajustar para VBA.

--
Un saludo,

Patxi Sanz
Tudela (NA)

[David Austria]

Espero que este ejemplo te sea de utilidad.

En el VBA de Access agrega la referencia:
C:\WINDOWS\system32\mscomctl.ocx
Microsoft Windows Common Controls 6.0 (SP6)

Y en el formulario de Access agrega el control:
Microsoft TreeView Control 6.0 (SP6)

Asignándole al control el nombre CtrTreeView1
Y con un botón de comando llamado cmdActualizar
Usa un código parecido al siguiente:

Private Sub cmdActualizar_Click()
Dim objTreeView As TreeView
Dim nodx As Node

Set objTreeView = Me.CtrTreeView1.Object
objTreeView.Nodes.Clear
Set nodx = objTreeView.Nodes.Add(, , "A0", "Abuelo")
nodx.EnsureVisible
Set nodx = objTreeView.Nodes.Add("A0", tvwChild, "B1", "Padre 1")
nodx.EnsureVisible
Set nodx = objTreeView.Nodes.Add("A0", tvwChild, "B2", "Padre 2")
Set nodx = objTreeView.Nodes.Add("B1", tvwChild, "C1", "Nieto 1")
Set nodx = objTreeView.Nodes.Add("B2", tvwChild, "C2", "Nieto 2")
End Sub

Saludos.
David Austria

On Aug 7, 2:01 pm, "Bluey" <bl...@hotmail.es> wrote:
> Hola de nuevo amigos, trabajo con access 2003 y quisiera saber si hay alguna
> forma facil y que no de problemas (de librerias, ocx...) para crear un
> treeview
>
> gracias
>

> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4316 (20090807) __________