nyambala
Messages postés3Date d'inscriptionjeudi 28 septembre 2006StatutMembreDernière intervention30 juillet 2007
-
22 juin 2007 à 16:00
hanet2007
Messages postés1Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention18 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.
hanet2007
Messages postés1Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention18 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>