Discussion :

[geuneuille]

Bonjour tout le monde, je me suis inscris sur ce forum pour essayer de me dépatouiller d'un petit problème.
Je manipule une base de données Access avec des photos dans les formulaires pour chaque enregistrement. Ces photos sont liées à la base par du code que voici:

Private Sub Form_Current()
Dim strCHAMP_photo As String
Dim album_photos As String
album_photos = "C:\FABIEN\photos\Photo_terrain_sig\photos_ohp"
If Me!lien_photo = ".bmp" Or IsNull(Me!lien_photo) Then
Me.photo_ohp.Picture = ""
Else: strCHAMP_photo = album_photos & "\" & Me!lien_photo & ".bmp"
Me.photo_ohp.Picture = strCHAMP_photo
End If
End Sub

Pour info: lien_photo= nom du champ de ma table contenant le nom des photos photo_ohp= nom de mon cadre d'image dans le formulaire


Tout ceci marche très bien. Maintenant je fais à peu près la même manip pour faire apparaitre la photo dans mon état avec le code suivant:

Private Sub report_activate()

' dossier contenant les images
Dim strfol As String
strfol = "C:\FABIEN\photos\Photo_terrain_sig\photos_ohp"

' nom du fichier
Dim strnomfich As String
strnomfich = Me.Texte79

'rajout au chemin du dossier, le nom du fichier
Dim strimage As String
strimage = strfol & "\" & strnomfich

' affectation de l'image à la zone image
If FileExists(strimage) Then ' fileexists est une fonction permettant de tester si le fichier existe
Me.photo_ohp.Picture = strimage
Else
Me.photo_ohp.Picture = ""
Exit Sub
End If

End Sub

Pour info: Texte 79= textbox qui comprend comme source de contrôle le champ lien_photo de ma table (ou sont placés les noms de mes images)

Ce code ne plante pas du tout, mais aucune photo ne s'affiche... Le problème vient surement de la commande .Picture qui n'est pas proposée dans l'état...

Si quelqu'un a une solution... Merci

[Arkham46]

salut,

essaye plutôt l'événement "Sur formatage" de la section

[Eric26]

salut,

j'ai le même problème, sauf que moi, ça me fait planter access.