Visual Basic para Aplicaciones - Problemas con treeview vba access

Life is soft - evento anual de software empresarial
 
Vista:

Problemas con treeview vba access

Publicado por Ariel Reyes (1 intervención) el 25/10/2012 23:59:15
Buen dia
estoy desarrollando una aplicacion vba en access, en un formulario deseo mostrar un treeview que tome los datos de 4 tablas diferentes.
el nodo padre, es decir, el primer nodo o nodo principal me sale sin problemas pero al momento de que me muestre los nodos hijos me muestra un error 35601 Element not found.

mi idea es:

puesto
Competencia1
Resultado1
Resultado2
Competencia2
Resultado1
Criterio1
Criterio2
Criterio3
Competencia3
etc..
siendo competencia, resultado, criterio diferente uno de otro.

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim Codigopuesto As String
Private Sub crearNodoPuesto()
'Dim dbs As DAO.Database
'Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Puesto_Enc")
rst.MoveFirst
Do Until rst.EOF
With Me.puestotreeview.Nodes.Add(Text:=rst!NombrePuesto, Key:="puesto=" & CStr(rst!Codigopuesto))
.Expanded = True
End With
rst.MoveNext
Loop
rst.Close
'Set rst = Nothing
End Sub

Private Sub crearNodosCompetencia()
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("CompetenciaPerfil")
rst.MoveFirst
Do Until rst.EOF

With Me.puestotreeview.Nodes.Add(relationship:=tvwChild, _
relative:="Puesto=" & CStr(rst!Codigopuesto), _
Text:=rst!Competencia1, Key:="comp=" & CStr(rst!CodigoCompetencia1))
End With

rst.MoveNext

Loop
rst.Close
Set rst = Nothing
End Sub
Private Sub Form_Load()
crearNodoPuesto
crearNodosCompetencia
'crearNodosResultados
'crearNodosCriterios
end sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder