Discussion :

[zoubab]

Bonjour,

Je rencontre actuellement un probleme avec un formulaire servant de trombinoscope. L'objectif est de recueillir les informations de la table PHOTO à savoir NomRepertoire (exemple c:\) et NomFichier (exemple test.jpg)

Il se trouve que lorsque je réalise ma boucle avec les informations que me renvoie ma requête, mon controle d'image nommé imgPhoto ne conserve comme valeur que le dernier résultat de ma requête.
J'ai donc bien compris qu'il était nécessaire de créer un nouveau controle image pour chaque itération a fin d'éviter que mon image ne change juste de nom, cependant j'ai beau chercher partout je ne trouve pas comment faire.

Je vous met mon petit code pour que vous voyez un peu le probleme.

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
 
Dim cdb As DAO.Database, rs As DAO.Recordset
Set cdb = CurrentDb
 
Dim req As String
req = "SELECT PHOTO.NOMREPERTOIRE, PHOTO.NOMFICHIER, PERSONNE.NOMPATRONYMIQUE, PERSONNE.PRENOM FROM PERSONNE, ETUDIANT, PHOTO WHERE ETUDIANT.NUMEROETUDIANT = PHOTO.NUMEROETUDIANT AND PERSONNE.NUMPERSONNE = ETUDIANT.NUMPERSONNE;"
 
Set rs = cdb.OpenRecordset(req)
 
 
 
 
While Not rs.EOF
 
imgPhoto.Picture = rs("NomRepertoire") & rs("NomFichier")
 
rs.MoveNext
Wend

Les champs nomPatronymique et prénom servent juste à apparaitre en dessous de la photo.

Merci d'avance pour toute réponse.

[mout1234]

Bonjour,

As-tu remarqué ce tuto?
http://cafeine.developpez.com/access/tutoriel/photos/

[zoubab]

Oui j'ai déja remarqué ce tutoriel, cependant ce tutoriel s'applique à une seule photo, ce qui ne me causerait aucun soucis. Mais je dois générer autant de photos qu'il y a de résultats dans ma requete.
Or en récupérant en vba les valeurs de cette requete, je peux ainsi associer le nom du repertoire au nom du fichier pour avoir le nom de la photo que je dois recuperer. Je genere le bon nombre de photo, mais ces dernieres ont tous comme source que la derniere valeur de la requete.
Il faudrait donc que je puisse "créer" autant de photo que d'étudiant pour que chacune ait bien la bonne source (la bonne image correspondant) et non juste l'image correspondant au dernier resultat.

[Invité]

Bonjour,

Je ne sais pas trop quoi te répondre, mais vu ton code

Code :

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

1
2
3
4
5
6
While Not rs.EOF
 
imgPhoto.Picture = rs("NomRepertoire") & rs("NomFichier")
 
rs.MoveNext
Wend

Je comprends, car tu parcours tout ton recordset et tu mets dans ton contrôle image, tu les écrases au fur et à mesure, c'est donc normal qu'il reste la derniére photo.

Juste une idée (car je n'ai jamais travaillé sur les photos), te servir de ton recordset pour charger une table provisoire avec un champ OLE, et c'est cette table qui aliment ton formulaire à tester.

Starec

[zoubab]

Merci pour la réponse.
Le probleme est que je ne souhaite pas devoir rentrer a la main chaque photo. Mon application sert a gérer les inscriptions d'étudiants. Il y aura donc plus d'une centaine de photo et je me vois mal devoir les faire entrer manuellement en tant qu' objet Ole. (si j'ai bien compris bien sur)