Discussion :

[ThieBEN]

Bonsoir à tous, voici mon problème, je gère un carnet de plongée dans une base , pour chaque enregistrement d’une plongée correspond une photo, j’ai créé un formulaire d’édition pour imprimer un état, lorsque je sélectionne une plongée par rapport à un site il m’affiche bien la bonne fiche et la bonne photo, en revanche si je veux imprimer le carnet complet il m’affiche bien les plongées mais il me met la même photo sur toute les fiches. Comment faire pour que les photos changent comme le formulaire plongée ? Merci de votre aide

[Domi2]

Bonsoir,

Tu ne mets pas ton code...

Mais dans un état, vérifie que la récupération du chemin de la photo soit bien dans la propriété au formatage de la section appropriée...

Exemple : si ton contrôle image est dans la section détail, c'est bien la propriété Au formatage de cette section que tu dois utiliser.

Domi2

[ThieBEN]

C'est quoi le code au formatage? mon controle photo est bien dans détail de mon état. excuse mais je suis novice dans access j'essaie de comprendre.
merci de ton aide

[Domi2]

Re,

Peux-tu poster le code que tu utilises pour afficher ta photo dans le formulaire ?

Domi2

[Lou Pitchoun]

Salut,

C'est quoi le code au formatage? mon controle photo est bien dans détail de mon état. excuse mais je suis novice dans access j'essaie de comprendre.
merci de ton aide

Bien que la photo soit dans la section détail, il faut placer le code pour changer la photo sur l'évènement (ou procédure événementielle) Au formatage de la section détail.

Le sujet a déjà été traité sur le forum.
Fait une recherche avec les termes "Etat image", sujets résolus : il y a 2 pages.
Si ensuite tu as un soucis : reviens et va voir ce que l'on peut faire

[ThieBEN]

Merci de votre aide le code que j'utilise pour insérer les photos est celui ci :

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
Private Sub Commande29_Click()
On Error GoTo Err_Commandex_Click
Dim ValPos As Variant
Dim TabVal As Variant
Dim ResTest As String
Dim NomPhoto As String
Dim Mabase As Database
Dim MonRst As Variant
 
 
Set Mabase = CurrentDb
Set MonRst = Mabase.OpenRecordset("Parametre")
 
 
        'Else
        If IsNull(MonRst![chemin photo]) Or IsEmpty(MonRst![chemin photo]) Then
            ResTest = TestIt("E:\")
        Else
          'ResTest = TestIt(MonRst![chemin photo])
        End If
 
 
    ResTest = TestIt(Me.photo)
 
 
 
    ValPos = RechCaract(ResTest, "\")
    Me.photo = ResTest
    NomPhoto = Right(ResTest, Len(ResTest) - ValPos)
    NomPhoto = Left(NomPhoto, Len(NomPhoto) - 4)
    Me.code_photo = NomPhoto
    Me.Image21.Picture = Me.photo
 
Exit_Commandex_Click:
    Exit Sub
 
Err_Commandex_Click:
    'MsgBox err.Description
    Resume Exit_Commandex_Click
End Sub

[ThieBEN]

J'ai trouvé la solution, je débute dans access et j'ai du mal à tout comprendre notamment les codes SQL, mais je fais des efforts en tout cas merci à tous ceux qui donnent de leur temps pour aider les autres. pour ceux que ça interesse voilà le code que j'ai utilisé au formatage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_form_photo
    DoCmd.SetWarnings False
    Me.Image21.Picture = Me.photo
    DoCmd.SetWarnings True
err_form_photo:
Resume Next
End Sub