Salut
Voici un code que j'ai pris je ne sais plus où, mais ça marche!
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:
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 |
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
@+
Partager