Struttura ad albero

di
Giuse
il
2 risposte
G
Giuse
Pochi posts
Iscritto da
ott, 2014
Messaggi:
8

Struttura ad albero

Buongiorno a tutti,
sono un nuovo iscritto e vorrei un'aiuto per la creazione di una struttura ad albero che purtroppo non riesco a far funzionare. ho creato una maschera inserito il controllo treeView Control version 6.0 e inserito questo codice:
Private Sub Form_Load()
'Aggiungo tre voci di primo ,livello
Dim tmpnode As MSComctlLib.Node
Set tmpnode = Me.TreeView0.Nodes.Add(, , "Fin01", "prova 1")
tmpnode.Expanded = True
Set tmpnode = Me.TreeView0.Nodes.Add(, , "Fin02", "prova 2")
tmpnode.Expanded = True
Set tmpnode = Me.TreeView0.Nodes.Add(, , "Fin03", "prova 3")
tmpnode.Expanded = True
'Aggiungo a Fin01 una sottovoce
Set tmpnode = Me.TreeView0.Nodes.Add("Fin01", tvwChild, "FiglioFin01", "Figlio")
tmpnode.Expanded = False


End Sub
Purtroppo quando apro la maschera mi da in seguente errore:
impossibile trovare il metodo o il menbro dei dati indicando "TreeView0"
qualcuno può aiutarmi? tengo a precisare che sono un novellino Grazie Grazie

2 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8747

    Re: Struttura ad albero

    Il VBA di Access non è come il Vb6, quindi devi esplicitare una cosa simile: 
    
Set tmpnode = Me.TreeView0.Object.Nodes.Add(, , "Fin01", "prova 1")
  • G
    Giuse
    Pochi posts
    Iscritto da
    ott, 2014
    Messaggi:
    8

    Re: Struttura ad albero

    Buongiorno,
    grazie per la risposta avevo già risolto il problema installando la licenza developer senza quella la treewiev non funzionava, appena fatta l'installazione la struttura funzionava, adesso avrei bisogno di un'altro consiglio la struttura ad albero è a posto con tutte le sue immagini collegate ai vari nodi, adesso vorrei che cliccando su un nodo mi aprisse a fianco una tabella da poter inserire i dati che devono essere registrati, spero di essere stato chiaro Grazie
Devi accedere o registrarti per scrivere nel forum
2 risposte