Newsgroup: it.comp.appl.access
Titolo: Controllo TreeView

Ciao a tutti
Ho inserito un controllo aggiuntivo  TreeView  + ImageList
il risultato grafico stile Esplora Risorse mi va bene e ho capito
il funzionamento , quello che non riesco a fare e che è la cosa
più importante , è aprire una maschera  con un doppio click dall' ultimo
nodo
scelto .
Questa sotto è la routine SuCaricamento della maschera prova
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView.Nodes.Add(, , "R", "Aprilia")
nodX.Image = 1
nodX.ExpandedImage = 2
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C1", "Scooter 50")
nodX.Image = 1
nodX.ExpandedImage = 2
Set nodX = TreeView.Nodes.Add("C1", tvwChild, "B1", "SR 50")
nodX.Image = 1
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C2", "Scooter 100")
nodX.Image = 1
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C3", "Scooter 125")
nodX.Image = 1
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C4", "Scooter 150")
nodX.Image = 1
End Sub
Come devo fare per far eseguire questa istruzione al nodo B1 "SR50"
DoCmd.Echo False
DoCmd.OpenForm "ApriliaCatalogo", acNormal
Me.Visible = True
Forms!ApriliaCatalogo.RecordSource = "GruppoTavoleAmico"
Forms![ApriliaCatalogo]!ApriliaCatalogoStm.Form.RecordSource =
"GRUPPO_AMICO_GL"
Forms!ApriliaCatalogo.FiltroPaese.Visible = False
Forms!ApriliaCatalogo.FiltroPaese.Visible = False
Forms!ApriliaCatalogo.ETpaese.Visible = False
Forms!ApriliaCatalogo.elenco_TAVOLE.SetFocus
Ciao Giuseppe

 scelto .
[cut]
piu' o meno faccio cosi'
Private Sub oTree_NodeClick(ByVal Node As Object)
If Node.Children = 0 Then
    docmd.openform Node.Key
End If
End Sub
--
a.cara 
Togli qualcosa dall'email

 ha scritto nel messaggio
news:cXIya.126502$3M4.2...@news1.tin.it...

Personalmente uso una routine che mi restituisce il "Node" e lo assegno ad
una variabile di tipo string.
Poi uso questa variabile per aprire la maschera con: Docmd. OpenForm MioNodo
Per esempio:
Private Sub CtlActiveX3_NodeClick(ByVal Node As Object)
Dim pos As Integer
 If Node.Children Then
 Exit Sub
 Else
  NomeNodo = Node
  pos = InStr(1, NomeNodo, "°")
  NomeNodo = Mid(NomeNodo, pos + 2, 10)
End If
End Sub
Qui mi serviva solo una parte della stringa restituita ma non ti sarà
difficile eliminare quello che non serve ai tuoi scopi.
Ciao, Carlo

 ha scritto nel
messaggio news:6CJya.126735$3M4.2...@news1.tin.it...

Grazie per la risposta
solo che ho bisogno per favore  di qualche dettaglio in più
se possibile passo passo le cose da fare .
Comunque Grazie
Ciao Giuseppe

 Togli qualcosa dall'email
Grazie per la risposta
solo che ho bisogno per favore  di qualche dettaglio in piů


 se possibile passo passo le cose da fare .
Uhmmm...
1) l'evento che intercetta e' il node_click
2) qual'e' la tua chiave del nodo? b1 "sr50" ?
se e' cosi' dovrebbe essere
Private Sub nomedelloggettotree_NodeClick(ByVal Node As Object)
If Node.Children = 0 and node.key = 'b1 "sr50"' Then
    	DoCmd.Echo False
	DoCmd.OpenForm "ApriliaCatalogo", acNormal
	Me.Visible = True
	Forms!ApriliaCatalogo.RecordSource = "GruppoTavoleAmico"
	Forms![ApriliaCatalogo]!ApriliaCatalogoStm.Form.RecordSource =
	"GRUPPO_AMICO_GL"
	Forms!ApriliaCatalogo.FiltroPaese.Visible = False
	Forms!ApriliaCatalogo.FiltroPaese.Visible = False
	Forms!ApriliaCatalogo.ETpaese.Visible = False
	Forms!ApriliaCatalogo.elenco_TAVOLE.SetFocus
End If
End Sub
Non sono entrato nel merito delle  "tue" istruzioni (quel me.visible = true non
mi sembra tanto ok)


 ha scritto nel messaggio
news:3ECCEF18...@blunet.it...


 ha scritto nel messaggio
news:3ECCEF18...@blunet.it...

Grazie ancora Alessandro
 ho capito tutto  sic!