Image list access 2000 vers access 2003

Bonjour.

Tu as oublié le set:
Set Me.objTreeView.ImageList = Me.objListImage.Object
voir la page : http://access.seneque.free.fr/imagelist.htm
vérifie aussi que le treeview est bien V6
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"doudou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0a9d01c3df6d$f8048160$a301280a@phx.gbl...
Bonjour,

Voilà j'ai une erreur sur mon code car j'ai un code qui
focntionnait avec une image list control V5 et sur 2003
je ne peut avoir qu'une image list control V6 et il me
met cette erreur "object incorrect"
voilà mon ocde

Set objListImage = Me!FileImages
Set db = CurrentDb


objTreeView.ImageList = objListImage.Object

Si quelqu'un à une idée ???

merci

Maintenant j'ai une erreur : "ImageList must be
initialized before i can be used".

Voic mon code :
Private Sub Form_Load()
Dim objTreeView As Object
Dim objListImage As Object
Dim nodNew As Node
Dim prg As Control
Dim sbr As Control
Dim db As Database


Set objListImage = Me!fileimages
Set objTreeView = Me!TreeView
Set db = CurrentDb


Set objTreeView.ImageList = objListImage.Object
'ici est l'erreur
Set objTreeView.Sorted = True

Set rstdossier = db.OpenRecordset("SELECT
tbl_message.dossier FROM tbl_message ORDER BY
tbl_message.dossier;")
rstdossier.MoveFirst
While Not rstdossier.EOF
Set nodNew = objTreeView.Nodes.Add(, , rstdossier!
dossier, rstdossier!dossier, "ManyClosed")
nodNew.ExpandedImage = "ManyOpen"
Wend
End Sub

tu n'as pas besoin de passr par des objets vba, passe directement par les
noms de tes ocx.
Set Me.treeview1.ImageList = Me.Imagelist1.Object
treeview1 est le nom du contrôle treeview
Imagelist1 est le nom du contrôle imagelist
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"doudou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0b9b01c3df73$a93f5900$a101280a@phx.gbl...

Maintenant j'ai une erreur : "ImageList must be
initialized before i can be used".

Voic mon code :
Private Sub Form_Load()
Dim objTreeView As Object
Dim objListImage As Object
Dim nodNew As Node
Dim prg As Control
Dim sbr As Control
Dim db As Database


Set objListImage = Me!fileimages
Set objTreeView = Me!TreeView
Set db = CurrentDb


Set objTreeView.ImageList = objListImage.Object
'ici est l'erreur
Set objTreeView.Sorted = True

Set rstdossier = db.OpenRecordset("SELECT
tbl_message.dossier FROM tbl_message ORDER BY
tbl_message.dossier;")
rstdossier.MoveFirst
While Not rstdossier.EOF
Set nodNew = objTreeView.Nodes.Add(, , rstdossier!
dossier, rstdossier!dossier, "ManyClosed")
nodNew.ExpandedImage = "ManyOpen"
Wend
End Sub

.../...
Tu n'as pas besoin de passer par vba, tu peux donner directement imagelist
dans les propriétés de ton treeview
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

Merci cela fonctionne très bien