{Access} photos dans etats
moiced59
Messages postés
1161
Statut
Membre
-
moiced59 Messages postés 1161 Statut Membre -
moiced59 Messages postés 1161 Statut Membre -
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
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
7 réponses
-
Bonjour
essaiesPrivate 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
-
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 -
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
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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... -
je ne veux pas que la photo change dans un formulairee mais dans un etat
-