Maak een map in de zelfde map als waar je database staat en noem deze map AfbeeldingenMeteo
(zet daar een paar afbeeldingen in en noem ze respectievelijk Meteo1, Meteo2,... )
Open je frmDataIngeven in ontwerpweergave
Kies op het tabblad Ontwerp uit de besturingselementen een 'Afbeelding' icoon Berg+zon+TV en klip op het formulier
Trek een kader waar de afbeelding moet komen
=>een wizard zal starten om een afbeelding te selecteren. Klik daar op annuleren
Met de kader voor de afbeelding geselecteerd, open het eigenschappenvenster (F4) op het tabblad ALLE
Wijzig de naam in 'Kader'
Nu hebben we een gebeurtenis nodig waarop de afbeelding moet getoond worden.
Kies bovenaan de keuzelijst-met invoervak van eigenschappen 'Formulier' (daar stond daarnet nog Kader)
Klik op het tabblad gebeurtenissen het eerste element (Bij Aanwijzen) ...klikop de 3 puntjes achteraan ...kies 'Opbouwfunctie voor programmacode'
Zet tussen de Sub Form_Current en de End Sub (die er nu staan) deze code:
Private Sub Form_Current()
Kader.Picture = CurrentProject.Path & "\AfbeeldingenMeteo\" & MeteoJpg & ".jpg"
End Sub
Als de afbeelding bestaat zal die worden weergegeven, zoniet zal je een error klrijgen dat deze niet bestaat.
Doet dat het voor jou?