Bonjour =E0 tous
j'ai un petit pb avec l'initialisation de mon treeview,=20
voici mon code:
MySQL =3D "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE=20
(((GUIDE_EMPLOI.NOM_PARENT)=3D'GuideEmploi')) ORDER BY=20
GUIDE_EMPLOI.INDEX;"
Set mabase =3D CurrentDb
Set TableGuide =3D mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then
TableGuide.MoveFirst
Set mnodSourceNode =3D Treeview1.Nodes.Add(, ,=20
TableGuide!NOM_PARENT, "Guide emploi")
Do While Not TableGuide.EOF
Set mnodSourceNode =3D Treeview1.Nodes.Add
(TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS,=20
TableGuide!LIBELLE)
TableGuide.MoveNext
Loop
mnodSourceNode.EnsureVisible
End If
j'ai un message d'erreur invalid object, sur le set=20
mnodSourceNode qui se trouve dans la boucle do while.
Le message disparait si je remplace TableGuide!NOM_PARENT=20
par sa valeur.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
www.eztree-msdn.com \( Laurent Jordi \)
Salut,
Le passage des paramètres aux active X peut être allergique aux valeurs par défaut des objets. TableGuide!NOM_PARENT doit impérativement être une chaine de caractère représentant la clef de la node père. Essaye TableGuide!NOM_PARENT.value pour voir si ça ne marcherait pas...
Vérifie que TableGuide!NOM_PARENT ne soit pas null
@+
LJ www.eztree-msdn.com
"Nico" a écrit dans le message de news:1974601c41c9e$e345a7e0$ Bonjour à tous j'ai un petit pb avec l'initialisation de mon treeview, voici mon code:
MySQL = "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE (((GUIDE_EMPLOI.NOM_PARENT)='GuideEmploi')) ORDER BY GUIDE_EMPLOI.INDEX;"
Set mabase = CurrentDb Set TableGuide = mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then TableGuide.MoveFirst Set mnodSourceNode = Treeview1.Nodes.Add(, , TableGuide!NOM_PARENT, "Guide emploi") Do While Not TableGuide.EOF Set mnodSourceNode = Treeview1.Nodes.Add (TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS, TableGuide!LIBELLE) TableGuide.MoveNext Loop mnodSourceNode.EnsureVisible End If
j'ai un message d'erreur invalid object, sur le set mnodSourceNode qui se trouve dans la boucle do while. Le message disparait si je remplace TableGuide!NOM_PARENT par sa valeur.
quelqu'un a une idée?
merci
Salut,
Le passage des paramètres aux active X peut être allergique aux valeurs par
défaut des objets. TableGuide!NOM_PARENT doit impérativement être une chaine
de caractère représentant la clef de la node père.
Essaye TableGuide!NOM_PARENT.value pour voir si ça ne marcherait pas...
Vérifie que TableGuide!NOM_PARENT ne soit pas null
@+
LJ
www.eztree-msdn.com
"Nico" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1974601c41c9e$e345a7e0$a401280a@phx.gbl...
Bonjour à tous
j'ai un petit pb avec l'initialisation de mon treeview,
voici mon code:
MySQL = "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE
(((GUIDE_EMPLOI.NOM_PARENT)='GuideEmploi')) ORDER BY
GUIDE_EMPLOI.INDEX;"
Set mabase = CurrentDb
Set TableGuide = mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then
TableGuide.MoveFirst
Set mnodSourceNode = Treeview1.Nodes.Add(, ,
TableGuide!NOM_PARENT, "Guide emploi")
Do While Not TableGuide.EOF
Set mnodSourceNode = Treeview1.Nodes.Add
(TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS,
TableGuide!LIBELLE)
TableGuide.MoveNext
Loop
mnodSourceNode.EnsureVisible
End If
j'ai un message d'erreur invalid object, sur le set
mnodSourceNode qui se trouve dans la boucle do while.
Le message disparait si je remplace TableGuide!NOM_PARENT
par sa valeur.
Le passage des paramètres aux active X peut être allergique aux valeurs par défaut des objets. TableGuide!NOM_PARENT doit impérativement être une chaine de caractère représentant la clef de la node père. Essaye TableGuide!NOM_PARENT.value pour voir si ça ne marcherait pas...
Vérifie que TableGuide!NOM_PARENT ne soit pas null
@+
LJ www.eztree-msdn.com
"Nico" a écrit dans le message de news:1974601c41c9e$e345a7e0$ Bonjour à tous j'ai un petit pb avec l'initialisation de mon treeview, voici mon code:
MySQL = "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE (((GUIDE_EMPLOI.NOM_PARENT)='GuideEmploi')) ORDER BY GUIDE_EMPLOI.INDEX;"
Set mabase = CurrentDb Set TableGuide = mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then TableGuide.MoveFirst Set mnodSourceNode = Treeview1.Nodes.Add(, , TableGuide!NOM_PARENT, "Guide emploi") Do While Not TableGuide.EOF Set mnodSourceNode = Treeview1.Nodes.Add (TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS, TableGuide!LIBELLE) TableGuide.MoveNext Loop mnodSourceNode.EnsureVisible End If
j'ai un message d'erreur invalid object, sur le set mnodSourceNode qui se trouve dans la boucle do while. Le message disparait si je remplace TableGuide!NOM_PARENT par sa valeur.
quelqu'un a une idée?
merci
Nico
j'ai trouvé un exemple sur un site ou il met des trim pour chaque parametre et maitenant ça fonctionne.
Set mnodSourceNode = Treeview1.Nodes.Add(Trim(TableGuide! NOM_PARENT), tvwChild, Trim(TableGuide!NOM_FILS), Trim (TableGuide!LIBELLE))
merci de ton aide
-----Message d'origine----- Salut,
Le passage des paramètres aux active X peut être allergique aux valeurs par
défaut des objets. TableGuide!NOM_PARENT doit impérativement être une chaine
de caractère représentant la clef de la node père. Essaye TableGuide!NOM_PARENT.value pour voir si ça ne marcherait pas...
Vérifie que TableGuide!NOM_PARENT ne soit pas null
@+
LJ www.eztree-msdn.com
j'ai trouvé un exemple sur un site ou il met des trim pour
chaque parametre et maitenant ça fonctionne.
Set mnodSourceNode = Treeview1.Nodes.Add(Trim(TableGuide!
NOM_PARENT), tvwChild, Trim(TableGuide!NOM_FILS), Trim
(TableGuide!LIBELLE))
merci de ton aide
-----Message d'origine-----
Salut,
Le passage des paramètres aux active X peut être
allergique aux valeurs par
défaut des objets. TableGuide!NOM_PARENT doit
impérativement être une chaine
de caractère représentant la clef de la node père.
Essaye TableGuide!NOM_PARENT.value pour voir si ça ne
marcherait pas...
Vérifie que TableGuide!NOM_PARENT ne soit pas null
j'ai trouvé un exemple sur un site ou il met des trim pour chaque parametre et maitenant ça fonctionne.
Set mnodSourceNode = Treeview1.Nodes.Add(Trim(TableGuide! NOM_PARENT), tvwChild, Trim(TableGuide!NOM_FILS), Trim (TableGuide!LIBELLE))
merci de ton aide
-----Message d'origine----- Salut,
Le passage des paramètres aux active X peut être allergique aux valeurs par
défaut des objets. TableGuide!NOM_PARENT doit impérativement être une chaine
de caractère représentant la clef de la node père. Essaye TableGuide!NOM_PARENT.value pour voir si ça ne marcherait pas...
Vérifie que TableGuide!NOM_PARENT ne soit pas null
@+
LJ www.eztree-msdn.com
Raymond [mvp]
Bonjour.
Par principe, n'utilise jamais un recordset dans un nodes.add tu auras souvent des problèmes et le plus souvent aléatoires. procède plutot par ce genre de fonctions qui perd un peu de temps mais ne cause pas d'ennuis d'exécution.
A = Tbl!Menu B = Tbl!Description C = Tbl!Parent Set NodX = .Add(C, tvwChild, A, B, 3, 4)
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Nico" a écrit dans le message de news:1974601c41c9e$e345a7e0$ Bonjour à tous j'ai un petit pb avec l'initialisation de mon treeview, voici mon code:
MySQL = "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE (((GUIDE_EMPLOI.NOM_PARENT)='GuideEmploi')) ORDER BY GUIDE_EMPLOI.INDEX;"
Set mabase = CurrentDb Set TableGuide = mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then TableGuide.MoveFirst Set mnodSourceNode = Treeview1.Nodes.Add(, , TableGuide!NOM_PARENT, "Guide emploi") Do While Not TableGuide.EOF Set mnodSourceNode = Treeview1.Nodes.Add (TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS, TableGuide!LIBELLE) TableGuide.MoveNext Loop mnodSourceNode.EnsureVisible End If
j'ai un message d'erreur invalid object, sur le set mnodSourceNode qui se trouve dans la boucle do while. Le message disparait si je remplace TableGuide!NOM_PARENT par sa valeur.
quelqu'un a une idée?
merci
Bonjour.
Par principe, n'utilise jamais un recordset dans un nodes.add tu auras
souvent des problèmes et le plus souvent aléatoires. procède plutot par ce
genre de fonctions qui perd un peu de temps mais ne cause pas d'ennuis
d'exécution.
A = Tbl!Menu
B = Tbl!Description
C = Tbl!Parent
Set NodX = .Add(C, tvwChild, A, B, 3, 4)
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Nico" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1974601c41c9e$e345a7e0$a401280a@phx.gbl...
Bonjour à tous
j'ai un petit pb avec l'initialisation de mon treeview,
voici mon code:
MySQL = "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE
(((GUIDE_EMPLOI.NOM_PARENT)='GuideEmploi')) ORDER BY
GUIDE_EMPLOI.INDEX;"
Set mabase = CurrentDb
Set TableGuide = mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then
TableGuide.MoveFirst
Set mnodSourceNode = Treeview1.Nodes.Add(, ,
TableGuide!NOM_PARENT, "Guide emploi")
Do While Not TableGuide.EOF
Set mnodSourceNode = Treeview1.Nodes.Add
(TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS,
TableGuide!LIBELLE)
TableGuide.MoveNext
Loop
mnodSourceNode.EnsureVisible
End If
j'ai un message d'erreur invalid object, sur le set
mnodSourceNode qui se trouve dans la boucle do while.
Le message disparait si je remplace TableGuide!NOM_PARENT
par sa valeur.
Par principe, n'utilise jamais un recordset dans un nodes.add tu auras souvent des problèmes et le plus souvent aléatoires. procède plutot par ce genre de fonctions qui perd un peu de temps mais ne cause pas d'ennuis d'exécution.
A = Tbl!Menu B = Tbl!Description C = Tbl!Parent Set NodX = .Add(C, tvwChild, A, B, 3, 4)
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Nico" a écrit dans le message de news:1974601c41c9e$e345a7e0$ Bonjour à tous j'ai un petit pb avec l'initialisation de mon treeview, voici mon code:
MySQL = "SELECT GUIDE_EMPLOI.* FROM GUIDE_EMPLOI WHERE (((GUIDE_EMPLOI.NOM_PARENT)='GuideEmploi')) ORDER BY GUIDE_EMPLOI.INDEX;"
Set mabase = CurrentDb Set TableGuide = mabase.OpenRecordset(MySQL)
If Not TableGuide.EOF Then TableGuide.MoveFirst Set mnodSourceNode = Treeview1.Nodes.Add(, , TableGuide!NOM_PARENT, "Guide emploi") Do While Not TableGuide.EOF Set mnodSourceNode = Treeview1.Nodes.Add (TableGuide!NOM_PARENT, tvwChild, TableGuide!NOM_FILS, TableGuide!LIBELLE) TableGuide.MoveNext Loop mnodSourceNode.EnsureVisible End If
j'ai un message d'erreur invalid object, sur le set mnodSourceNode qui se trouve dans la boucle do while. Le message disparait si je remplace TableGuide!NOM_PARENT par sa valeur.
