OVH Cloud OVH Cloud

Chemin Objet OLE

3 réponses
Avatar
Christophe
Bonjour
J'ai un champ de type [Objet OLE] dans une table.
Apr=E8s avoir ins=E9r=E9 un objet, je voudrais dans une requ=EAte=20
ou par code sortir le chemin complet de mon objet.
Merci pour vos r=E9ponses.

3 réponses

Avatar
Raymond [mvp]
Bonjour.
je ne peux pas le vérifier sur place, mais quand on charge un objet OLE on
le place dans la propriété ControlSource. essaie d'appeler cette propriété
par
MsgBox Me.objetOLE.ControlSource

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Christophe" a écrit dans le message de
news:065a01c3a9f7$9e8f17e0$
Bonjour
J'ai un champ de type [Objet OLE] dans une table.
Après avoir inséré un objet, je voudrais dans une requête
ou par code sortir le chemin complet de mon objet.
Merci pour vos réponses.
Avatar
Christophe
Cela marche lorsque tu lie ton champs à un controle dans
un formulaire... mais je veux connaitre le chemin de mon
objet OLE à partir d'une requête ou dans une fonction VBA.
Merci.
-----Message d'origine-----
Bonjour.
je ne peux pas le vérifier sur place, mais quand on
charge un objet OLE on

le place dans la propriété ControlSource. essaie
d'appeler cette propriété

par
MsgBox Me.objetOLE.ControlSource

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Christophe" a écrit dans le
message de

news:065a01c3a9f7$9e8f17e0$
Bonjour
J'ai un champ de type [Objet OLE] dans une table.
Après avoir inséré un objet, je voudrais dans une requête
ou par code sortir le chemin complet de mon objet.
Merci pour vos réponses.


.



Avatar
Raymond [mvp]
Bonsoir.
dans ton formulaire places un bouton nommé Commande0.
copie les fonctions ci-dessous dans ton formulaire.
remplace objole par le nom de ton objet ole.
positionne-toi sur un enregistrement avec un objet ole affiché.
cliques sur le bouton.
tiens moi au courant.

Private Sub Commande0_Click()
MsgBox GetOLEPath(Me.objetOLE)
End Sub

Function GetOLEPath(objOLE As Variant) As String
GetOLEPath = ""
Dim RefComplete As String
Dim PositionDébut As Long
Dim PositionFin As Long
If Not IsNull(objOLE) Then
RefComplete = StrConv(objOLE, vbUnicode)
PositionDébut = InStr(1, RefComplete, ":", 1) - 1
If PositionDébut <= 0 Then
PositionDébut = InStr(1, RefComplete, "", 1)
End If
If PositionDébut > 0 Then
PositionFin = InStr(PositionDébut, RefComplete, Chr(0), 1)
GetOLEPath = Mid(RefComplete, PositionDébut, PositionFin -
PositionDébut)
End If
End If
End Function


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Christophe" a écrit dans le message
de news:074c01c3a9ff$3c388ec0$
Cela marche lorsque tu lie ton champs à un controle dans
un formulaire... mais je veux connaitre le chemin de mon
objet OLE à partir d'une requête ou dans une fonction VBA.
Merci.