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