{Access} photos dans etats Fermé

Question

Bonjour,

voila mon probleme g un etat avec: nom penom et la photo

la photo va chercher c:mes images/[nom].jpg

mais a chaque photo de mon etat je n est que la photo du 1er merci a vous de m aider

michel_m · Answer

Bonjour
essaies
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim photo_id As String
If IsNull(Me!s_photo) Then: Exit Sub

photo_id = CurrentProject.Path & "\photo_ident\" & Me!s_photo
Me!trombine.Picture = photo_id
End Sub

dans cette macro:
dans lequel s_photo est le champ du nom de la photo
trombine étant le nom du contrôle "image" dans l'état

moiced59 · Answer

re voila j ai adapté le code a l ouverture de mon etat mais il me marque :

expression sans parametre sur la ligne photo_id

voici mon code


Dim photo_id As String
If IsNull(Me!Image12) Then: Exit Sub

'photo_id = CurrentProject.Path & "\photo_ident\" & Me!Image12
photo_id = "C:\App\" & nomm & ".jpg" 
Me!Image12.Picture = photo_id
End Sub

merci a toi

moiced59 · Answer

J'avais mis le code sur ouverture g changé et g mis sur activation et cela fonctionne sauf quil me met la meme photo a tout les enregistrement

michel_m · Answer

Il faut que dans ta table tu aies un champ (chez moi :s_photo) où est inscrit le nom du fichier photo (par ex "michel.jpg")
photo_id = CurrentProject.Path & "\photo_ident\" & Me!s_photo
Me!trombine.Picture = photo_id


il faut que tu retrouves un controle  s_photo type zone de texte en propriété non visible sur ton état

ci joint un extrait de l'état et de la table
https://www.cjoint.com/?jvwRelRVZ7

michel_m · Answer

bonjour,
La macro ci dessus est celle du bouton sur le formulaire montrant le nom, prénom etc...
où il faut que tu mettes aussi "s_photo" en non visible
https://www.cjoint.com/?jwiL3c8uAu
C'est le formulaire qui gère le passage d'une photo à une autre
Pour afficher les photos dans ce formulaire, il faut 2 procédures pour passer d'une photo à l'autre: c'est le rôle de l'événement form_current

Private Sub s_photo_AfterUpdate()
Dim photo_id As String

If IsNull(Me!s_photo) Then
    Me!trombine.Picture = ""
Else
    photo_id = CurrentProject.Path & "\photo_ident\" & Me!s_photo
    Me!trombine.Picture = photo_id
End If
End Sub

Private Sub Form_Current()
s_photo_AfterUpdate
End Sub

ensuite le clic sur le bouton déclenche la macro que je t'ai donné hier...

moiced59 · Answer

je ne veux pas que la photo change dans un formulairee mais dans un etat

moiced59 · Answer

up

{Access} photos dans etats

7 réponses

Discussions similaires