bonjour,
j ai inserer un treeview se rapportant a une table de donnée et je veux qu
en cliquant sur un des noeuds j ai les info concernant cet enregistrement qui
apparaissent sur le meme formulaire
quelqu un pourrait il m expliquer comment cela fonctionnenerait
je sais que cela tourne autour d un treeview-nodeclick
mais je n ai aucune idée sur comment avoir l information puis l afficher
Merci pour votre aide
cela plus qu une semaine que je galére la dessus
Bonjour Eric avec Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6)) j ai maintenant erreur de compilation un = attendu
Merci encore une fois pour tes reponses
Re,
Normal le ':' après catfournisseurs ? Si oui, alors essaies Dlookup("fournisseur","fournisseurs","[catfournisseurs:]=" & Val(Texte6)) en supposant toujours que le catfournisseurs est numérique
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Eric
avec Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6))
j ai maintenant erreur de compilation un = attendu
Merci encore une fois pour tes reponses
Re,
Normal le ':' après catfournisseurs ? Si oui, alors essaies
Dlookup("fournisseur","fournisseurs","[catfournisseurs:]=" &
Val(Texte6)) en supposant toujours que le catfournisseurs est numérique
Bonjour Eric avec Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6)) j ai maintenant erreur de compilation un = attendu
Merci encore une fois pour tes reponses
Re,
Normal le ':' après catfournisseurs ? Si oui, alors essaies Dlookup("fournisseur","fournisseurs","[catfournisseurs:]=" & Val(Texte6)) en supposant toujours que le catfournisseurs est numérique
Normal le ':' après catfournisseurs ? Si oui, alors essaies Dlookup("fournisseur","fournisseurs","[catfournisseurs:]=" & Val(Texte6)) en supposant toujours que le catfournisseurs est numérique
Normal le ':' après catfournisseurs ? Si oui, alors essaies
Dlookup("fournisseur","fournisseurs","[catfournisseurs:]=" &
Val(Texte6)) en supposant toujours que le catfournisseurs est numérique
Normal le ':' après catfournisseurs ? Si oui, alors essaies Dlookup("fournisseur","fournisseurs","[catfournisseurs:]=" & Val(Texte6)) en supposant toujours que le catfournisseurs est numérique
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
Bonjour,
Tu ne peux pas mettre directement DLookup(...), il faut l'affecter à un controle du genre : Me!MonControle=Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6))
Je ne vois pas pourquoi ça ne marcherait pas sous réserve que les noms de champs et de la table soient bons et que chaque produit a bien la clé étrangère catfournisseurs renseignée.
Autre solution, sans passer par DLookUp, je subodore que ton arbre est construit sur les fourniseurs et que pour chaque fournisseur tu fais afficher en noeuds secondaires les produits. Alors, en source du controle indépendant qui doit afficher le nom du fournisseur, soit Texte7, tu peux mettre: Me("Texte7")=Node.Parent.Text
Bonjour Eric avec Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6)) j ai maintenant erreur de compilation un = attendu
Merci encore une fois pour tes reponses
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Tu ne peux pas mettre directement DLookup(...), il faut l'affecter à un
controle du genre :
Me!MonControle=Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="&
Val(Texte6))
Je ne vois pas pourquoi ça ne marcherait pas sous réserve que les noms
de champs et de la table soient bons et que chaque produit a bien la clé
étrangère catfournisseurs renseignée.
Autre solution, sans passer par DLookUp, je subodore que ton arbre est
construit sur les fourniseurs et que pour chaque fournisseur tu fais
afficher en noeuds secondaires les produits.
Alors, en source du controle indépendant qui doit afficher le nom du
fournisseur, soit Texte7, tu peux mettre:
Me("Texte7")=Node.Parent.Text
Bonjour Eric
avec Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6))
j ai maintenant erreur de compilation un = attendu
Merci encore une fois pour tes reponses
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Tu ne peux pas mettre directement DLookup(...), il faut l'affecter à un controle du genre : Me!MonControle=Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6))
Je ne vois pas pourquoi ça ne marcherait pas sous réserve que les noms de champs et de la table soient bons et que chaque produit a bien la clé étrangère catfournisseurs renseignée.
Autre solution, sans passer par DLookUp, je subodore que ton arbre est construit sur les fourniseurs et que pour chaque fournisseur tu fais afficher en noeuds secondaires les produits. Alors, en source du controle indépendant qui doit afficher le nom du fournisseur, soit Texte7, tu peux mettre: Me("Texte7")=Node.Parent.Text
Bonjour Eric avec Dlookup("fournisseur","fournisseurs","[catfournisseurs:]="& Val(Texte6)) j ai maintenant erreur de compilation un = attendu
Merci encore une fois pour tes reponses
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
boisgontier
Bonjour,
Exemples de TreeView
http://cjoint.com/?dwuyBDWSyF
Dim bd As Database Sub vpersonnes(parent) Dim rs As Recordset sql = "SELECT * FROM personnel WHERE superieur=" & parent Set rs = bd.OpenRecordset(sql) Do While Not rs.EOF
'==Me.monarbre.Nodes.Add(noeud_père,twchild,code_courant,libellé_no eud)======================= === Me.MonArbre.Nodes.Add("NoeudMat" & parent, tvwChild, "NoeudMat" & rs!Matricule, rs!Nom).Expanded = True vpersonnes rs!Matricule rs.MoveNext Loop rs.Close End Sub Private Sub Form_Load() Dim rs As Recordset Set bd = CurrentDb Set rs = bd.OpenRecordset("SELECT * FROM personnel WHERE superieur IS NULL") ' Recherche Chef Me.MonArbre.Nodes.Add(, , "NoeudMat" & rs!Matricule, rs!Nom).Expanded = True ' Racine arbre vpersonnes rs!Matricule ' 1er appel End Sub
Private Sub monarbre_NodeClick(ByVal Node As Object) Me.RecordSource = "SELECT * FROM personnel WHERE matricule=" & Mid(Node.Key, 9) End Sub
Cordialement JB
Bonjour,
Exemples de TreeView
http://cjoint.com/?dwuyBDWSyF
Dim bd As Database
Sub vpersonnes(parent)
Dim rs As Recordset
sql = "SELECT * FROM personnel WHERE superieur=" & parent
Set rs = bd.OpenRecordset(sql)
Do While Not rs.EOF
'==Me.monarbre.Nodes.Add(noeud_père,twchild,code_courant,libellé_no eud)======================= ===
Me.MonArbre.Nodes.Add("NoeudMat" & parent, tvwChild, "NoeudMat" &
rs!Matricule, rs!Nom).Expanded = True
vpersonnes rs!Matricule
rs.MoveNext
Loop
rs.Close
End Sub
Private Sub Form_Load()
Dim rs As Recordset
Set bd = CurrentDb
Set rs = bd.OpenRecordset("SELECT * FROM personnel WHERE superieur IS
NULL") ' Recherche Chef
Me.MonArbre.Nodes.Add(, , "NoeudMat" & rs!Matricule, rs!Nom).Expanded
= True ' Racine arbre
vpersonnes rs!Matricule ' 1er appel
End Sub
Private Sub monarbre_NodeClick(ByVal Node As Object)
Me.RecordSource = "SELECT * FROM personnel WHERE matricule=" &
Mid(Node.Key, 9)
End Sub
Dim bd As Database Sub vpersonnes(parent) Dim rs As Recordset sql = "SELECT * FROM personnel WHERE superieur=" & parent Set rs = bd.OpenRecordset(sql) Do While Not rs.EOF
'==Me.monarbre.Nodes.Add(noeud_père,twchild,code_courant,libellé_no eud)======================= === Me.MonArbre.Nodes.Add("NoeudMat" & parent, tvwChild, "NoeudMat" & rs!Matricule, rs!Nom).Expanded = True vpersonnes rs!Matricule rs.MoveNext Loop rs.Close End Sub Private Sub Form_Load() Dim rs As Recordset Set bd = CurrentDb Set rs = bd.OpenRecordset("SELECT * FROM personnel WHERE superieur IS NULL") ' Recherche Chef Me.MonArbre.Nodes.Add(, , "NoeudMat" & rs!Matricule, rs!Nom).Expanded = True ' Racine arbre vpersonnes rs!Matricule ' 1er appel End Sub
Private Sub monarbre_NodeClick(ByVal Node As Object) Me.RecordSource = "SELECT * FROM personnel WHERE matricule=" & Mid(Node.Key, 9) End Sub
