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.
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
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.
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" <strat-mix@wanadoo.fr> a écrit dans le message de
news:065a01c3a9f7$9e8f17e0$a001280a@phx.gbl...
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.
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.
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.
.
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" <strat-mix@wanadoo.fr> a écrit dans le
message de
news:065a01c3a9f7$9e8f17e0$a001280a@phx.gbl...
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.
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.
.
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.
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" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:074c01c3a9ff$3c388ec0$a001280a@phx.gbl...
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.
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.