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?