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
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


0