Discussion :

[YVES69]

Bonjour,
J'ai résolu dans une précédente discussion le problème de mon formulaire (6 onglets) et États.
Maintenant je souhaiterai que la photo de chaque élève s'affiche sur l'Etat correspondant à l'enregistrement saisie sur le formulaire.
Les photos sont stockées dans un dossier Photos.

Merci d'avance

Yves

[Jeannot45]

Les photos sont stockées dans un dossier Photos.

Alors, il faut lire le tuto : Gestion de photos par formulaire
C'est très efficace

Bonne continuation

[YVES69]

Bonjours Jeannot,
Merci encore de t'occuper de moi,
Ce tuto est parfait pour mettre la photo dans le formulaire, mais j'ai déjà bricolé la méthode de 3stone en faisant référence à un dossier PHOTO pour la mettre à chaque élève dans le formulaire à 6 onglets.
Maintenant je tourne en rond pour la mettre dans la section détail de mon Etat; je ne sais pas comment faire.

merci d'avance
Yves

[alassanediakite]

Salut
Voici un code que j'ai pris je ne sais plus où, mais ça marche!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
    On Error GoTo line_erreure
 
        Me.ImageFrame.Picture =chemin de la photo
        Me.ImageFrame.Visible = True
 
    Exit Sub
line_erreure:
MsgBox Err.Number & " " & Err.Description
End Sub

Bien sûr il faut une vérification du chemin!
Le code que j'utilise:

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
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
    On Error GoTo line_erreure
    If Nz(Me.photoeleve, "") = "" Or Dir(cheminphoto("eleves") & "\photo_eleves\" & nomphoto(Nz(Me.photoeleve, "")), vbHidden) = "" Then
        Me.ImageFrame.Picture = ""
        Me.ImageFrame.Visible = False
    Else
        Me.ImageFrame.Picture = cheminphoto("eleves") & "\photo_eleves\" & nomphoto(Nz(Me.photoeleve, ""))
        Me.ImageFrame.Visible = True
    End If
Me.imgdrp.Picture = CurrentProject.path & "\drpml.bmp"
Me.imgdrp.Visible = True
 
    Exit Sub
line_erreure:
MsgBox Err.Number & " " & Err.Description
End Sub

Code :

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

 cheminphoto("eleves") & "\photo_eleves\" & nomphoto(Nz(Me.photoeleve, ""))

trouve le dossier partagé de la base dorsale, le dossier contenant les photos et le nom de la photo xxx.bmp ou xxx.jp
@+

[YVES69]

Bonjour,
Merci pour ton code que j'ai un peu bricolé pour le mettre au formatage sur un entête d’État; le résultat est bien sauf que je suis obligé de mettre des photos à la verticale dans mon formulaire et à l'horizontale dans l’état car mon État avec 7 pages est en A4 H et je veux agrafer le dossier.
Je n'ai pas trouvé pour faire un état dont la première page est A4 V et les autres A4 H sauf en séparant mes ÉTATS comme m'a conseillé Jeannot;


Encore merci de ton aide

Yves

[Jeannot45]

Je n'ai pas trouvé pour faire un état dont la première page est A4 V et les autres A4 H sauf en séparant mes ÉTATS

Pas possible autrement