Discussion :

[bben59]

Bonjour,

Voilà , je suis nouveau dans access 2003 avec qque connaissance mais peu (ne connaissant rien en programmation).

Tout d'abord un grand merci à A. [cafeine] pour son tuto pour la Gestion de photos par formulaire.

Serait-il possible d'avoir aussi un tuto pour l'affichage des photos dans un etat.

car, je suis peut-etre neuneu mais je n'y arrive pas...



Pourtant, je suis bien les instructions :

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 :

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

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

et la ca marche!!! <<pas pour moi le neuneu >>

Car le code, je me met ou ???

Merci d'avance de votre aide pour un grand néophyle

[loufab]

Bonjour,

Vas dans les propriétés de l'état sur la propriété Sur Activé choisi [Procédure Evenementielle] clique sur le bouton ... puis mets-y le code fourni. ça devrait fonctionner.

Cordialement,

Attention cette manip n'est valable que pour une image par état et toujours la même sur toutes les pages.

[bben59]

Merci,

Mais mon but est d'afficher toutes les images de ma base...donc se code ne serait pas le bon.
Car a chaque ligne, j'ai une image differente (dvdtheque)
Est-ce possible

Merci d'avance

[loufab]

Dvdtek ! belle appli n'est ce pas ?!

Le code est à mettre dans l'événement Sur Formatage de la zone détails.

C'est comme ça qu'est construit DVDTek.

Cordialement,

[bben59]

Yes, dvdtek est une bonne appli, mais elle ne correspond pas à mes besoins perso de dvdtheque.

Grace à ton conseil,ca marche. Mais j'ai toujours la meme image, Comment faire pour que l'image affiché correspond au path ?
Car, je voudrais faire un etat planche d'image comme dans ta versions de dvdtek.

Merci d'avance

[bben59]

J'ai TROUVEE......COOOOOOOOLLLL

grand merci à loufab & à votre super forum


en fait, je le mettait pas dans la bonne section.


Le bon code : (affiche l'image correspondant a chaque path)

Code :

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

1
2
3
4
5
6
7
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Me.strChemin) Then
Me.ControlImg.picture = Me.strChemin
Else
Me.ControlImg.Picture = ""
End If
End Sub

Encore mille merci.
Car je cherche la solution depuis 2 ans, et je pensais celà impossible.
Grace à vous ma base va passer de 800Mo à 28 Mo(448 ko pour la base + 27 Mo de jpg).

Me reste à faire un tour sur le forum pour trouver le code permettant de mettre le path en chemin relatifs au lieu en dur.

[bben59]

Voilà, j'ai optimisé mon code :

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 Not IsNull(Me.strChemin) Then
Me.ControlImg.Picture = CurrentProject.PATH & "\images\" & Me.strChemin & ".jpg"
Else
Me.ControlImg.Picture = ""
End If
End Sub

GRAND GRAND MERCI à TOUS, c'est nickel.
Grace à ce code j'ai un champ en moins dans ma base
@+