Foto's via VBA in Access

[Abyss]

Hallo VBAers,

Ik wil graag voor mijn access database een stukje schijven om foto's per record te laten zien in een formulier. Ik heb +/- 400 tumpnails die ik via een formulier wil weer geven.

ik heb iets , maar het werkt niet naar behoren.


Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
' Als fals er geen foto beschikbaar is
On Error GoTo nofoto
' Maak fotonaam
bestand = [Foto].[fotonummer]
' Plak directory ervoor
bestand = "G:\MAPNAAM\" + bestand + ".jpg"
' Ken foto toe aan rapport
Report_RAPPORTNAAM.FOTO.Picture = bestand
GoTo eind
nofoto:
Report_RAPPORTNAAMKPFoto.Picture = "G:\MAPNAAM\nb.jpg"
On Error GoTo 0
eind:
End Sub


Private Sub Report_Activate()

End Sub

Private Sub Report_Open(Cancel As Integer)

End Sub

 

[WinteE]

Set objFSO = CreateObject("Scripting.FileSystemObject")

    Do While not rs.EOF

        sFoto = CurrentProject.Path & "\Foto's\" &
        bestand = rs!Foto & rs!fotonummer & ".jpg"

        If objFSO.FileExists(sFoto) = True Then
            Me.Foto.Picture = sFoto & bestand
        End If

    rs.MoveNext
    Loop

Me.Foto is een Afbeelding-object.