Rapport met afbeelding kader gekoppeld aan foto's op lokale schijf

[Tynaarlo]

Hallo,

Ik heb een rapport gemaakt van monumentale bomen waarbij de gegevens van elke boom op één pagina terecht komt. Nu wil ik in een afbeelding kader de foto's die lokaal staan erbij hebben. In het rapport staat ook een veld waarin het nummer (bestandnaam) van de foto wordt weergeven. Ik heb de volgende code gebruikt als oplossing zonder resultaat.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.Afbeelding.Picture = "C:\Temp\Vries\" & Me.txtNaamAfbeelding & ".jpeg"
End Sub

Weet iemand waar ik een fout maak?:Bekijk bijlage bomen Vries.zip

 

[Scottymv]

aanpassing van uw database

beste,
Ik heb uw database nagezien en bijgewerkt, nu worden alle afbeeldingen weergegeven.
zie bijlage...

Scottymv. :thumb:

 

[OctaFish]

Het kan zelfs nog een stukje simpeler zonder functie:

Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Foutafhandeling
Dim strFotos As String, tmp As String
    
    strFotos = Application.CurrentProject.Path
    tmp = Dir(strFotos & "\" & Me.txtNaamAfbeelding & ".jpg")
    If tmp & "" <> "" Then
        With Me.imgProfiel
            .Visible = True
            .Picture = strPic
            .Width = 5000
            .Height = 5000
        End With
    Else
        Me.imgProfiel.Visible = False
    End If
    Exit Sub

Foutafhandeling:
    MsgBox Err.Number & "  " & Err.Description

End Sub

 

[Tynaarlo]

foto's in rapport

Sorry voor de wat late reactie, ik was 3 weken op vakantie. Maar bedankt voor jullie oplossing het werkt !! Foto's wel wat minder groot moeten maken.