[AC-97] Transfert du nom d'un fichier .jpg dans une procédure access basic

[rotteleur]

Bonjour à tous. Je ne suis qu'un bidouilleur Access et j'ai évidemment besoin de votre aide !

Dans une BDD access97, un champ OLE contient des références à des images .jpg (liées)
[Photo Microsoft Photo Editor 3.0] le logiciel adjoint...

Pour l'instant, j'implémente le champ des images ([Image]) via un formulaire nommé "Timbres sous photoshop" selon la procédure suivante, ce qui m'oblige à indiquer le nom du fichier image et le chemin en toutes lettres dans un champ annexe du formulaire (Le champ [Référence]) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub BImage_Click()
Dim LeCheminDeLImage As String
LeCheminDeLImage = Me![Référence]
On Error GoTo PasDImage
Me![Image].SourceDoc = LeCheminDeLImage
Me![Image].Action = acOLECreateLink
DoCmd.RepaintObject acForm, "Timbres sous photoshop"
Exit Sub
PasDImage:
If MsgBox("Aucun fichier ne correspond aux données", 0, "Image absente") = 1 Then Exit Sub
End Sub

Ce que je voudrais, c'est qu'une procédure me permette de naviguer dans mes répertoires à la recherche de l'image qui va bien et que le choix fait, elle transfère le nom de l'image au code basic (au lieu de m'obliger à utiliser l'explorateur Windows, copier le nom et le coller dans le contrôle ad hoc).

Quelle méthode puis-je utiliser ?

Merci.
Jean François

[LedZeppII]

Bonjour,

regarde dans la faq : Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné

Ensuite tu remplace ta ligne

Code :

LeCheminDeLImage = Me![Référence]

par

Code :

LeCheminDeLImage = OuvrirUnFichier(Application.hwndAccessApp, "Parcourir", 1, "Fichier jpg", "jpg")

A+