Discussion :

[Davik]

Voila dans un de mes formulaire j'ai un objet OLE, pour insérer un nouveau contenu je dois cliquer droit et faire "insérer un objet". Mais comme j'interdis le clique droit dans ma base je voudrais réaliser ce "insérer objet" par un clique sur un bouton BT.

est ce que quelqu'un aurait une idée?

mon formulaire se nomme T_client
le champ OLE se nomme LOGO
et le bouton BTajout

merci de votre aide

[emeraudes]

tu n'as qu'à insérer ton champ avec une requête SQL normal

[Davik]

peux tu me préciser un peu ?

moi je voudrais sélectionner le fichier que je veux insérer de mon pc vers la base

[emeraudes]

moi je voudrais sélectionner le fichier que je veux insérer de mon pc vers la base

C'est quoi comme fichier que tu veux insérer? je n'ai pas trop compris ce que tu voulais insérer.

C'est un champs (genre du texte, un chiffre...) ou un fichier?

[Davik]

un fichier, une image plus particulièrement, je sais jaurai du smplement prendre une image mais le prob c'est que jai tout fait en OLE et la il me reste juste une petite modif à faire alors tout repasser en Picture me prendrait trop de temps

jai commencé a dévelopé ce code, suis-je à coté de la plaque???
ouvrirunfichier est une fonction de la faq qui permet de sélectionner un fichier dans son ordinateur avec une fenetre de naviguation...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub BT_Click()
Dim strlink As String
strlink = OuvrirUnFichier(Me.hwnd, "Sélectionner", 1)
 
Logo.Class = "picture"
Logo.OLETypeAllowed = acOLELinked
Logo.SourceDoc = "strlink"
Logo.Action = acOLECreateLink
 
End Sub

[emeraudes]

alors là je ne sais pas trop
Désolé

[Davik]

je desespère

[Arkham46]

slt,

Pour faire l'équivalent du click droit --> insérer objet essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
LeContrôleOLE.SetFocus
Docmd.RunCommand acCmdInsertObject

[Davik]

décidement tout les jours tu me sauve la mise !

[Davik]

encore une petite question comment annuler le message d'erreur si je fais annuler dans l'insertion d'un objet (erreur 2501) ???

[Arkham46]

il faut mettre une gestion d'erreur

voir on error dans l'aide :

le plus simple mais pas le meilleur, annuler tous les messages d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
On error resume next
LeContrôleOLE.SetFocus
Docmd.RunCommand acCmdInsertObject
on error goto 0

sinon utilise on error goto pour renvoyer les erreurs vers une étiquette et les traiter en fonction de la valeur de Err.Number

[Davik]

oui merci ! finalement j'ai trouver avec
on error goto
ca fait plaisir ca marche du tonnerre


encore merci à toi !!!!!!!!!!!

[root16]

bonjour
est ce que je peux avoir le code que t'as fait pour faire l'insertion de l'image

merci