{Access} photos dans etats

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. Contributeur
    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
    1. 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
      1. 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
        1. Contributeur
          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
          1. Contributeur
            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
            1. je ne veux pas que la photo change dans un formulairee mais dans un etat
              0