Problème d'insertion d'image dans un formulaire avec une macro
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:
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 |
