[VBA/OFFICE] Errore "Element not found" in Access

[secondaprova]

Salve a tutti....qualcuno mi dice cosa non va nel seguente pezzo di codice

TreeView.Nodes.Add , tvwFirst, "k0", "Tutte le attività"

While Not rs.EOF
TreeView.Nodes.Add "k" & rs!tab_parentid, tvwChild, "k" & rs!tab_id, rs!tab_descr
rs.MoveNext
Wend

Esegue il ciclo una sola volta e poi da errore "Element not found"!!!

[oregon]

Impossibile saperlo senza conoscere i dati che leggi dal db ...

Prova a inserire una linea per visualizzare i dati

While Not rs.EOF
' TreeView.Nodes.Add "k" & rs!tab_parentid, tvwChild, "k" & rs!tab_id, rs!tab_descr

Print "k" & rs!tab_parentid, tvwChild, "k" & rs!tab_id, rs!tab_descr

rs.MoveNext
Wend

[secondaprova]

...ho trovato l'errore...i dati vengono letti correttamente...ma c'è ancora un problema...
la funzione TreeView.Nodes.Add dovrebbe crearmi un albero con i dati, ma i dati vengono solo inseriti nella maschera senza creare l'albero...ecco tutto il codice...

TreeView.Nodes.Add , tvwFirst, "k0", "Tutte le attività"

'TreeView.Nodes.Add "root", tvwChild, "figlio", "figlio"

Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim rs As New ADODB.Recordset

Set rs = CreateObject("ADODB.Recordset")
Dim stSql As String


stSql = "SELECT * FROM attività"

rs.Open stSql, conn, 1
rs.MoveFirst

While Not rs.EOF
TreeView.Nodes.Add "k" & rs!Parent_Id, tvwChild, "k" & rs!IdAttività, rs!Descrizione
rs.MoveNext
Wend

[alka]

Ho spostato la discussione all'interno del forum dedicato a Visual Basic (VBx, VBA, ...) e ai linguaggi per .NET Framework (VB.NET, C#, ...).

In futuro, poni in questo forum le domande relative a questi linguaggi.

Ciao!

[gfantuzzi]

prova a creare l'albero così:

Dim nodoAlbero As MSComctlLib.Node
Set nodoAlbero = Me.Albero.Nodes.Add(, , "RisorseDisponibili", "Risorse disponibili", "Disponibile")

Saluti.