Insérer objet ole sur access

nyambala Messages postés 3 Date d'inscription jeudi 28 septembre 2006 Statut Membre Dernière intervention 30 juillet 2007 - 22 juin 2007 à 16:00
hanet2007 Messages postés 1 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 18 juillet 2007 - 18 juil. 2007 à 13:03
Bonjour à tous.

J'ai besoin d'aide concernant l'insertion d'objet OLE (image) sur une table Access. J'ai fais tous les forums pour rechercher la solution, mais ma recherche n'a aboutit à rien, alors je viens auprès de vous obtenir de l'aide.
Voici mon problème:<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>




 






J’ai une table Access, appelée MatItem , contenant les champs : MatItemId (texte), Description (texte) et Image (OLE).





Je désire insérer avec VBA des objets (images) sur les champs Image.






 






MatItemId

,

Description

,

Image

,

----

B0001

,
Pince

,

 

,

----

B0002

,
Tournevis

,

 

,

----

B0003

,
Multimètre

,

 

,

----

 

,

 

,

 




 







 






Voici le code que j’ai édité après 2 jours de recherche sur internet :






 





Sub encodage()

 

 

Dim oRst As DAO.Recordset

Dim oDB As DAO.Database

Set oDB = CurrentDb

Set oRst = oDB.OpenRecordset("MatItem")

While Not oRst.EOF

Me![Image].OLETypeAllowed = OLE_LINKDED

Me![Image].SourceDoc = "C:\Documents and Settings\...\Photo\B0001.jpg"

Me![Image].Action = OLE_CREATE_LINK

'Me![Image].Action = acOLECreating

oRst.Update

oRst.MoveNext

Wend

oRst.Close

oDB.Close

Set oRst = Nothing

Set oDB = Nothing

 

 

End Su




 







Pourriez-vous m’aider soit à corriger le code précédent, soit  m’aider à élaborer un code capable de faire cela.

J’espère avoir été assez explicite et remercie d'avance les personnes qui m'aideront à résoudre ce problème.

kas

1 réponse

hanet2007 Messages postés 1 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 18 juillet 2007
18 juil. 2007 à 13:03
<sub>ppppllpplpppm^piuyyuiu_fatima zwina rachid khayb
mcha lswira
hanya mskina
mabach ichd liha telephone
o makhlatnich nhder lm3ah
man7oussa
mais anaya safi mab9itch bito
c fini
meme si c pas encore commencé
</sub>
0