{Access} photos dans etats

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

7 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
  2. moiced59 Messages postés 1161 Statut Membre 60
     
    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
    0
  3. moiced59 Messages postés 1161 Statut Membre 60
     
    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
    0
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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...
    0
  7. moiced59 Messages postés 1161 Statut Membre 60
     
    je ne veux pas que la photo change dans un formulairee mais dans un etat
    0
  8. moiced59 Messages postés 1161 Statut Membre 60
     
    up
    0