Archief - [PROG][VBA] Inhoud Access-veld als Afbeelding

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

VenomGameworld

Legacy Member
Hey,

Ik ben momenteel bezig met een Access projectje en hierin heb ik een OLE object veld met het pad naar een afbeelding in. Nu zou ik graag in een formulier via een besturingselement Afbeelding de foto laten zien. Ik vermoedde dat dit het beste gedaan kon worden via VBA, maar mijn code werkt niet, dit is wat ik al heb:
Code:
Private Sub Form_Load()
Poster.Picture = Image.FromFile([tblFilms]![Poster])
End Sub

Poster is de naam van het element e, tblFilms en Poster zijn respectievelijk de tabel en het veld. Ik krijg volgende foutmelding: "Ken het veld | niet vinden waarnaar wordt verwezen in de expressie". Weet er iemand hoe ik dit kan oplossen? Of een efficiëntere manier?

Bij voorbaat bedankt!

H@voc_!nc.

Legacy Member
Geen acces gebruiken :D
probeer eerst is in een tekstboxke het pad te laten zien he

TheCrow7

Legacy Member
Ehm je bent toch geen afbeeldingen in een database aan het steken, hoop ik ?

Zoals hierboven reeds vermeld: probeer eerst met een referentie.

VenomGameworld

Legacy Member
Heb het nu wat anders aangepakt, het nu een vaste afbeelding op het formulier en als je er op klikt wil ik dat de poster geopend wordt. Ik lees eerst in het formulier het pad uit het veld Poster uit in een textbox.

Code:
Private Sub imgPoster_Click()
Shell ("posters\" & txtPosterPad.Text)
End Sub

Dan krijg ik een focus-error, wanneer ik deze dan fix met dit:

Code:
Private Sub Form_Load()
txtPosterPad.SetFocus
End Sub

krijg ik een error (2110) dat hij de focus niet kan verplaatsen. Weet er iemand raad?

Enygm

Legacy Member
VenomGameworld zei:
Code:
Private Sub Form_Load()
Poster.Picture = Image.FromFile([tblFilms]![Poster])
End Sub

Probeer eens met:
Post.picture = Image.FromFile(me![Poster])

Uw formulier is dan wel gebaseerd op de tabel 'tblFilms', maar je mag de tabel tblfilms niet rechtstreeks aanspreken. Je moet het veld van het formulier aanspreken.

Tevens zou ik het niet in het Form_Load event zetten, maar in het On_Current -event. Dit treedt op telkens je verandert van record, maar dus ook nadat het formulier ingeladen is. Het voordeel is dat je anders je code tweemaal zal moeten schrijven.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan