{Access} photos dans etats
moiced59
Messages postés
1145
Date d'inscription
Statut
Membre
Dernière intervention
-
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- {Access} photos dans etats
- Partager des photos - Guide
- Toutes mes photos - Guide
- Google photos - Télécharger - Albums photo
- Comment activer le partage de photos dans google photos - Guide
- Tiktok etats unis - Accueil - Réseaux sociaux
7 réponses
Bonjour
essaies
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
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
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
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
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
ensuite le clic sur le bouton déclenche la macro que je t'ai donné hier...
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...