Bonjours,
Je suis actuellement stagiaire et mon patron qui a commencé à créer une BD Access veut absolument insérer des images dans sa base sans passé par une autre table type "table miniature" contenant les images en questions. Mon problème est donc d'afficher des images dans un formulaire continu sachant que ces images sont dans des dossiers différents dont on connais les nom (il est renseigné dans un champ) et toutes les images ont le même nom (fiche.jpg)
Pour faire ce qu'il me demande j'ai donc crée dans le formulaire un champ image que j'ai laissé vide puis j'exécute la macro ci-dessous pour le remplir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Option Compare Database Private Sub Form_Current() Dim chemin As String Dim rs As DAO.Recordset Dim db As DAO.Database Dim sql As String Dim temp As String 'Requete qui sélectionne les dossiers dans lesquels sont stockés les images sql = "SELECT [tbl Biens].dossier, [rqt Biens à proposer en vente].[Code Bien]" sql = sql + "FROM [tbl Biens] INNER JOIN [rqt Biens à proposer en vente] ON [tbl Biens].[Code Bien] = [rqt Biens à proposer en vente].[Code Bien]" Set db = CurrentDb Set rs = db.OpenRecordset(sql) NomFic = "fiche.jpg" 'Boucle qui parcours tous les dossiers dont les biens sont a vendre While Not rs.EOF If IsNull(rs.Fields("dossier")) Then rs.MoveNext Else chemin = "J:\Biens\" temp = CStr(rs.Fields("dossier")) 'Définition du chemin où se trouve l'image chemin = chemin + temp If Dir(chemin, vbDirectory) = "" Then rs.MoveNext Else 'Mettre l'image dans la case du formulaire (Je penses que c'est ici que ça bug) Me![miniaturetbl].Picture = chemin & NomFic End If End If Wend rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub
Partager