Discussion :

[morobaboumar]

Salut membres du forum !
Je souhaite afficher l'image de chaque élève du Dossier_Images sur un formulaire.
Chaque image porte un matricule(numérique) suivi des Noms (en lettre). Cependant, je sollicite de l'aide afin d'écrire une fonction qui pourrait afficher l'image du nom alpha numérique d'élève qui reçoit le focus.
Cordialement.

[volsan]

Bonjour,

Tu peux mettre ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub photo_AfterUpdate()
  Dim chemin As String
 
       ' Chemin d'accès à l'image = Répertoire de base + Nom de l'image
  Chemin = "c:\image\"+cstr(me.matricule)+me.noms
 
      ' Charger l'image
      Me![imgApercu].photo = chemin
  End If
End Sub

Je l'ai ecrit rapidement sans avoir tester les erreurs de syntaxe eventuel, mais cela devrait fonctionner

[morobaboumar]

Bonsoir !

Je vous envoie la pièce jointe de ma base de D. avec les capture des messages d'erreurs.

[volsan]

Bonjour,

Il faudrait que tu écrives plutôt ça :

Code :

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

Me![ImageEleve].Picture = chemin

ou

Code :

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

Me.ImageEleve.Picture = chemin

Autre chose dans ton chemin il faut que tu spécifie aussi le type de fichier image comme cela :

Code :

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

chemin = "C:\Photos Elèves ECO_ISLAM dans GESTION D_ETABLISSEMENT\" + CStr(Me.MleEleve_Image) + Me.NomPrenomsEleve+".jpg"

ici j'ai considéré que ton image est du jpg a toi de changer en fonction de ton extension de fichier

[morobaboumar]

Bonjour !
J'ai effectué les changements comme vous me les avez demandé, voici les messages d'erreur:


Cordialement.

[volsan]

Ok en fait il ne trouve pas le fichier.
Es ce que tu peux me donner le nom du fichier photo correspondant à cette élève?

[morobaboumar]

Ok en fait il ne trouve pas le fichier.
Es ce que tu peux me donner le nom du fichier photo correspondant à cette élève?

Bonsoir !
Je vous envoie une partie du dossier d'images "Photos Elèves ECO_ISLAM dans GESTION D_ETABLISSEMENT".
Cordialement.

[volsan]

Bonjour,

voila ce qui faut modifier car on se retrouvait 2 fois avec le matricule :

Code :

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

chemin = "C:\Photos Elèves ECO_ISLAM dans GESTION D_ETABLISSEMENT\"+Me.NomPrenomsEleve+".jpg"

Ensuite pour l'affichage tes photos il vaut mieux que mettre ta fonction plutôt dans ton formulaire comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form_Current()
  Me.Txt_CouleurLigne = Me.MleEleve_Image
 
  Dim chemin As String
 
       ' Chemin d'accès à l'image = Répertoire de la base + Nom de l'image
  chemin = "C:\Photos Elèves ECO_ISLAM dans GESTION D_ETABLISSEMENT\" + Me.NomPrenomsEleve + ".jpg"
 
      ' Charger l'image
      Me![ImageEleve].Picture = chemin
      'Me.ImageEleve.Picture = chemin
 
End Sub

Et cela donne ceci

[morobaboumar]

Bonsoir !
Cette ligne du code:

Code :

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

Me![ImageEleve].Picture = chemin

génère des messages d'erreur:


Par contre celle ci:

Code :

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

 Me![ID_CheminImage] = chemin

ramène le chemin de l'image dans le champ "ID_CheminImage" de la table "Tbl_Album_ImagesEleves"..
Mon objectif est de pouvoir afficher l'image de la ligne qui reçoit le focus; ce qui n'est pas le cas.


Cordialement.

[tee_grandbois]

bonsoir morobaboumar,

Code :

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

1
2
3
4
5
6
7
Dim chemin As String
 
       ' Chemin d'accès à l'image = Répertoire de la base + Nom de l'image
  chemin = "C:\Photos Elèves ECO_ISLAM dans GESTION D_ETABLISSEMENT\" + Me.NomPrenomsEleve + ".jpg"
 
      ' Charger l'image
      Me![ImageEleve].Picture = chemin

le code donné par volsan fonctionne bien, j'ai testé la base avec le dossier photos fourni. Donc le problème ne vient pas du code.

L'erreur VBA 2220 est levée lorsque le fichier ne peut pas être chargé: soit parce qu'il n'existe pas ou qu'Access ne le trouve pas, soit parce qu'il n'est pas accessible (permissions), soit parce que ce n'est pas un fichier image.

Pour ne pas rester bloquer, il faudrait essayer au moins les solutions suivantes:
- donner un nom plus simple au dossier (par exemple C:\Photos) juste pour savoir si ce n'est pas à cause de l'accent de Elèves.
- vérifier dans les propriétés du dossier si il est accessible en lecture
- vérifier dans les propriétés des fichiers si ils sont accessibles en lecture

[morobaboumar]

Bonjour Volsan et tee_grandbois !
J'ai renommé le dossier d'images avec "PhotosElevesECIND" mais ça ne marche.
Je vous rappelle que j'utilise Access 2013.

Je vous envoie la pièce jointe complète.

Cordialement !

[tee_grandbois]

bonjour,
cela ne sert à rien de poster encore la base, je répète que le code actuel a été testé et il fonctionne.

Le problème se situe sur ton PC (emplacement et/ou l'accessibilité du dossier et/ou des fichiers)

Concernant ces solutions :
- vérifier dans les propriétés du dossier si il est accessible en lecture
- vérifier dans les propriétés des fichiers si ils sont accessibles en lecture
quel est le retour ?

éventuellement, ajoute cette instruction: MsgBox chemin juste après: chemin = "C:\PhotosElevesECIND\" + Me.NomPrenomsEleve + ".jpg" pour vérifier que le chemin de l'image est correct.

[tee_grandbois]

je te conseille d'arrêter de modifier ce code et de mettre le dossier photos au même endroit que ta base:

Code VBA :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
  Me.Txt_CouleurLigne = Me.MleEleve_Image
  Dim chemin As String
 
       ' Chemin d'accès à l'image = Répertoire de la base + Nom de l'image
  chemin = CurrentProject.Path & "\PhotosElevesECIND\" & Me.NomPrenomsEleve & ".jpg"
      ' Charger l'image
      Me![ImageEleve].Picture = chemin
End Sub

[madefemere]

Bonjour,

La concaténation de texte se fait avec "&" et non avec +. Cela pourrait être source d'erreur avec les nom des variables concaténés.

Cordialement.

[morobaboumar]

Bonjour !
Merci infiniment à vous tee_grandbois,
volsan,
madefemere
ainsi qu'à toute la famille Développez.net !

Cordialement.