Hallo Steintje,
Zelf ben ik ook geen expert in access maar zo doe ik het.
Voorzie in je tabel waar je gegevens staan een veld “afbeelding” . per record zet je waar de overeenkomstige foto te vinden is.
bv:
d:\digitaal\1-100\D9.jpg , elk record krijgt wel een andere foto toegewezen door bv record 1 d:\foto\foto1, record 2 d:\foto\foto2 enz..
Maak een kopij van uw bestaand formulier en probeer het volgende met je kopij.
Open je formulier in de ontwerp mode.
Klik op de icoon "afbeelding" (berg met een zonnetje) in je werkbalk.
Dan kan je een kader maken in je formulier en hierna komt er een scherm “figuur invoegen”.
Hier kan je je directory met een bepaalde foto (speelt geen rol welke foto) aanduiden en deze foto komt dan in je aangemaakte kader te staan (het is mogelijk dat de kader te groot of te klein is maar dit kan je later aanpassen). Klik op eigenschappen (rechtermuis) en geef het de naam “beeld" in map "overige" Zie wel dat je kader die je hebt gemaakt geselecteerd is.
Dan klik je de bovenste blauwe balk van je formulier aan met de rechtermuistoets => eigenschappen, gebeurtenis “gebeurtenis bij aanwijzen” klik je op het icoontje met de 3 puntjes en kies dan opbouwfunktie voor programmacode. Dan kom je in de VBA editor
Hier staat reeds:
Private Sub Form_Current()
End Sub
Hier tussen typ je of copieer je volgende tekst :
On Error GoTo verder
Me![beeld].Picture = Me![AFBEELDING]
Exit Sub
verder:
Me![beeld].Picture = "d:\fotodia\geenfoto.jpg"
Info : d:\fotodia\geenfoto.jpg is een jpg dat ik zelf heb gemaakt met de melding “geen foto”
Deze kan je ook zetten in je directory waar je je foto’s hebt staan maar je moet dan wel de goede directory bij Me![beeld].Picture = "d:\directory\geenfoto.jpg" ingeven.
Hierna ga je terug naar access en klik je op “na bijwerken” en op de 3 puntjes en opbouwfunktie voor programmacode.
Hier staat
Private Sub Form_AfterUpdate()
End Sub
Hier tussen typ je
On Error Resume Next
Me![beeld].Picture = Me![AFBEELDING]
Zet nu je formulier in de weergave en nu zou je de foto’s met het formulier moeten kunnen zien.
Laat maar weten indien je nog vragen hebt
Succes
Jos