[AC-2003] Insertion d'une image dans un formulaire

Insertion d'une image dans un formulaire

Bonjour,

J'ai un soucis avec le code ci-joint. Lorsque que je l'excécute pas de soucis il me met mon image dans mon formulaire et l'adresse de l'image est bien dans mon champ "plan" dans ma table. Le soucis quand je réouvre mon formulaire l'image n'y ai plus mais le l'adresse de l'image est toujours dans mon champ "plan". Sous access 2007 cela fonctionnait parfaitement et pas sous 2003.

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Inserer_Click()
'Déclaration des variables
Dim strFichier As String
Dim oFD As FileDialog
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
'Ajoute les filtres pour fichiers images et tous
With .Filters
.Clear
.Add "Fichiers images", "*.jpg;*.jpeg;*.bmp;*.gif", 1
.Add "Tous", "*.*", 2
End With
'Renseignement du titre
.Title = "Insérer une image"
'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
.InitialFileName = ""
'Interdit la multi sélection
.AllowMultiSelect = False
'Permet de choisir le mode d'affichage dans l'explorateur (ici apperçu)
.InitialView = msoFileDialogViewPreview
'Permet de personnaliser le bouton.
.ButtonName = "Insérer"
'Affiche la fenêtre
If .Show Then
On Error GoTo fini 'gestion erreur pour control importation
'Retourne un erreur si pas fichier image.
Me.Image15.Picture = .SelectedItems(1)
'Extraction du nom du fichier à copier.
strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
'Copie du fichier sélectionné vers le sous dossier de la base.
FileCopy .SelectedItems(1), CurrentProject.Path & "\images" & strFichier
'Chargement dans control du chemin de l'image (sous dossier base).
Me.Plan = CurrentProject.Path & "\images" & strFichier
'Rafraîchit le Formulaire.
Me.Refresh
End If
End With
Exit Sub
fini:
Select Case Err
Case 2220
MsgBox "L'importation du fichier ne c'est pas effectué normalement.", _
vbCritical, "Erreur fichier Image"
Case Else
MsgBox Err.Number & Chr(13) & Err.Description
End Select
End Sub

Bonjour,

C'est une amélioration de 2007 par rapport à 2003.
Un contrôle image 2007 peut avoir une source, c'est à dire être lié à un champ d'une table contenant le chemin complet vers le fichier Image.
Cela n'existe pas pour un contrôle image pas dans Acces 2003.

Si ton formulaire est un formulaire simple (par opposition à formulaire continu), tu peux alimenter le contrôle image dans l'événement formulaire «sur activation».
Code:

1 2 3 4 5 6 7 8 Private Sub Form_Current() Dim strFichier As String ' Récupérer le chemin complet du fichier image se trouvant ' dans le champ [CheminImage] de la source de données du formulaire strFichier = Me.CheminImage ' Changer l'imagde du contrôle image Me.picImage2.Picture = strFichier End Sub
Il faudra peut-être vider la propriété «source contrôle» du contrôle image dans Office 2007, pour que ça marcher à la fois dans 2003 et 2007.

A+

Merci ca fonctionne impec.