Discussion :

[Coquelicot]

Nouveau problème.

J'ai réussi tant bien que mal à afficher des photos dans mes formulaire en bidouillant le tutoriel de Cafeine et... ça marche.

Par contre les photos n'apparaissent pas dans les états.
Je n'ai que le chemin qui s'affiche.

J'ai trouvé un message qui donne la solution

http://www.developpez.net/forums/vie...highlight=etat

Dans ce message il est écrit :

Recapitulons:
1. Tu as une table appellons la X, qui contient toutes tes donnees ainsi qu'un champs string contenant le chemin de ta photo, appellons ce champs "Path".
2. Tu veux faire un etat qui a son ouverture t'afficherons la photo qui correspond au champs "Path".

Solution:
1. Tu construis ton etat, relie a ta table X.
2. tu ajoutes une photo n'importe laquelle que tu nomme "ControlImg"
3. tu rajoute un textbox "strChemin" relie a ton champs "path"
4. Puis tu ecris le code suivant:
Code:

Private Sub Report_Activate()
If Not IsNull(Me.strChemin) Then
Me.ControlImg.picture = Me.strChemin
Else
Me.ControlImg.picture = ""
End If
End Sub

Je ne comprend pas où il faut écrire le code ???
Je suppose que c'est un truc en visual basic.
donc en mode creation de mon formulaire je clique sur l'icone CODE de la barre de menu et j'inscrit ça dans la fenetre qui s'ouvre ? c'est ça ?

Bein ça ne fonctionne pas chez moi...
les 3 première étapes ça va mais ensuite le fait d'ajouter ce code ne change rien.
j'ai toujours l'image que j'ai chosie à l'étape 2 qui s'affiche.

Un coup de main spécial neuneu que je suis serait le bienvenu !

[pgz]

Bonsoir,

Comme indiqué, tu dois associer ce code à l'évènement 'sur activation' de ton état. Pour cela:
Tu ouvres l'état en mode création. Tu ouvres la fenêtre des propriétés et tu t'assures que l'objet sélectionné est 'Etat'.
Sous l'onglet évènement, clicque sur la ligne 'sur activation' et sur les trois petits points à droite. Dans la fenêtre qui s'ouvre, choisis 'code'.
La fenêtre VB s'ouvre et le curseur est placé sous la ligne :

Code :

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

Private Sub Report_Activate()

Tu saisis le code là.

Bonne chance,
pgz

[Coquelicot]

C'est ce que j'avais fait.
j'ai refait la procedure et rien.

enfin, toujours l'image que j'ai choisie dans l'étape 2.

[Coquelicot]

J'ai effacé mon état.
Tout recommencé depuis le début.
Maintenant il affiche au lancement de l'état :

Erreur d'exécution '13':
Incompatibilité de type

et le débogage met en jaune la ligne :

Code :

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

Me.ControlImg.Picture = Me.strChemin

: : :

[Tierisa]

refait la meme chose mais tu peux aussi le mettre dans l'evenement "sur impression" de la zone detail de ton état.
tu mets:

Code :

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

Me!ControlImg.Picture = Me!chemin

N'oublies pas de mettre ton textbox et ton controle pour l'image.

[Coquelicot]

Tierisa :
Cette fois ci il m'indique "ne peut pas trouver la macro 'Me.ControlImg'.

Poyrtant j'ai bien créé une image nommée ControlImg...

[Tierisa]

autant pour moi dans le code c'est:

Code :

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

Me!ControlImg.Picture = Me!strChemin

[Coquelicot]

Merci mais...

Erreur d'exécution '13':
Incompatibilité de type

???

[Tierisa]

decris moi exactement le nom de ton état, où tu as mis les controles et les noms que tu leur as donnés, le code que tu as écris mot pour mot (attention à la ponctuation) et où tu l'as mis.

attention quand tu crées ton état, il faut bien qu'il soit créé à partir de la table correspondante.

[Coquelicot]

J'ai créé une table Elèves dans laquelle se trouvent (entre autres) les champs "Nom" et "Photo"

J'ai fait une requete à partir de cette table et d'une autre table (intitulée "Options des élèves")
Cette requête s'intitule "Elèves Inscrits"

Mon état "Fiches Individuelles" est basé sur cette requete "Elèves Inscrits"

Dans cet état il y a (entre autres) un champ "Nom" et un champ "Photo" (qui affiche en texte le chemin où se trouve les photos)

J'ai créé une zone de texte appelée "strChemin" . Dans sa propriété source controle j'ai choisi "Photo" (sa me donne en texte le lien vers la photo)

Ensuite j'ai créé une image (une boite de dialogue s'est ouverte et j'ai choisi une image générique). Cette image je l'ai nommée "ControlImg".

Ensuite je suis allé dans les propriétés de l'état, onglet evenement, Sur activé, générateur de code et j'ai inséré le code:

Code :

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

1
2
3
4
5
If Not IsNull(Me.strChemin) Then 
Me.ControlImg.picture = Me.strChemin 
Else 
Me.ControlImg.picture = "" 
End If

entre les lignes

Code :

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

Private Sub Report_Activate()

et

Code :

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

End Sub

et là j'ai toujours la meme image (celle que j'ai choisie en générique)

[Tierisa]

alors:

dans ton état, dans la section détail tu mets donc ton control textbox qui contient le chemin (tu peux meme le mettre sur visible=faux si tu ne veux pas qu'il se voit). Tu mets aussi un controle image dans laquelle tu rentres ton image par défaut.

on va dire que:
nom du textbox(zone de texte): strChemin
nom du control image:ControlImg

sur l'évènement "sur activé" de l'état tu mets ce code:

Code :

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

Me!ControlImg.Picture = Me!strChemin

avec la meme ponctuation (tres important).


et normalement ça marche.

[Coquelicot]

Excusez moi, je dois etre nul , mais ça ne marche pas !

il me dit : ne peut pas trouver la macro 'Me!ControlImg'.

j'ai pourtant tout suivi à la lettre...

[cafeine]

alors:

dans ton état, dans la section détail tu mets donc ton control textbox qui contient le chemin (tu peux meme le mettre sur visible=faux si tu ne veux pas qu'il se voit). Tu mets aussi un controle image dans laquelle tu rentres ton image par défaut.

on va dire que:
nom du textbox(zone de texte): strChemin
nom du control image:ControlImg

sur l'évènement "sur activé" de l'état tu mets ce code:

Code :

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

Me!ControlImg.Picture = Me!strChemin

avec la meme ponctuation (tres important).


et normalement ça marche.

ça marche aussi avec un Me.NomduControle ... l'erreur ne doit pas provenir de ça ...

[Ric500]

Salut Coquelicot!

Est-ce que ce message n'apparaîtrait pas lors du passage sur un enregistrement où le path n'est pas renseigné?

Si c'est le cas, la propriété picture de ton image est de type string (valeurs nulles non acceptées):

Moi, je mettrais donc:

Code :

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

Me!ControlImg.Picture = nz(Me!strChemin,"")

qui remplace les valeurs nulles par une chaine vide.

En espérant que cela résoudra ton problème,

[Coquelicot]

Idem : ne peut pas trouver la macro 'Me!ControlImg'.

Ce message s'affiche à l'ouverture de l'état.

[Ric500]

tu as bien un "ControlImg" dans la section détail de ton état ainsi qu'un "strChemin", et sur l'événement "Sur formatage" de la section détail, tu insères bien ce bout de code?

çà devrait marcher

[kikibel]

j'ai la même image, celle du premier "client" pas mes autre, j'ai fait un post pour ça...
et après lecture de ric500, ça marche !!!
merci

[Invité]

Salut,

Comment s'appelle ton objet qui doit contenir l'image ?

Comment as-tu fait pour l'insérer dans ton état, par quels menus est tu passé ?

A+

[kikibel]

le nom de l'image indépendante est controlimg
mais vérifie bien les propriété de "détail" pour l'activation et non du formulaire entier...moi c'est là que tout c'est est devenu ok

[Coquelicot]

tu as bien un "ControlImg" dans la section détail de ton état ainsi qu'un "strChemin", et sur l'événement "Sur formatage" de la section détail, tu insères bien ce bout de code?

çà devrait marcher

J'ai mis le code

Code :

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

Me!ControlImg.Picture = nz(Me!strChemin,"")

sur formatage et....

ça marche !!!

Enfin, merci à toi Ric500, et aux autres pour leur aide.


Juste un truc, c'est que l'image reste la même si l'élève suivant n'a pas de photo.
J'ai donc mis un chemin par défaut qui conduit à une image blanche s'il n'y a pas de photo donc ça marche.

Encore merci !!!