Discussion :

[pierre42000]

Bonjour,

Je suis débutant en access (et Arcgis aussi au passage), dans le cadre d'un stage de Master 1 je dois gérer une base de données sur un cours d'eau. J'utilise access 2000.

J'ai inclus à cette base de données de nombreuses photos liés à des mesures de terrain précises, pour cela je me suis largement inspiré du tutoriel de caféine, beaucoup plus pratique que les objets OLE.

Je n'arrive cependant pas à afficher ces photos dans un état, j'ai pas mal parcouru le forum sans trouver de réponses. J'ai dans mon sous-état inclu ce code (trouvé sur le forum) :

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)
If Len(Me.Photo) > 0 Then
Me.imgPhoto.Picture = Me.Photo
Else
Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If
 
End Sub

Une erreur microsoft visual basic s'affiche lorsque je passe en mode aperçu :

Code :

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

Erreur d'exécution '2465' : impossible de trouver le champ 'Photo' auquel il est fait référence dans votre expression.

J'ai pourtant bien renseigné la source de données de l'état avec la requête ci dessous :

Code :

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

SELECT [Photo_buses].[Photo], [Photo_buses].[Commentaire] FROM Photo_buses;

Je ne comprend donc pas pourquoi il ne retrouve pas le champ 'Photo', quelqu'un a t il une solution ?

Merci

[marot_r]

OK, les joies de la syntaxe Access. Il n'y a pas d'objet (textbox) nommé photo sur ton état, n'est-ce pas ? Me. se réfère aux objets présents sur l'état pas aux champs de la source de données. Par contre Me! se réfère aux champs de la source de données.

Essaye avec

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

If Len(Me!Photo) > 0 Then
   Me.imgPhoto.Picture = Me!Photo
Else
   Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If
 
End Sub

ou en ajoutant un textbox invisible qui affiche le contenu du champ photo et qui s'appel photo et dans ce cas tu ne devrais pas avoir à modifier ton code.

A+