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]) :
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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Quelle méthode puis-je utiliser ?
Merci.
Jean François
Partager