Foto's tonen in rapporten

[h.van.bouwel]

Ik heb via VBA enkele foto's gelinkt in mijn formulier. Graag wil ik nu deze foto's afprinten via een rapport.


ImgAankoopfoto is een afbeelding
Aankoopfoto is een tekstvak en bevat de string met het pad.


Volgende code werkt
Private Sub Report_Open(Cancel As Integer)

Dim strfoto As String

strfoto = "C:\Documents and Settings\All Users\Documenten\Mijn afbeeldingen\Voorbeelden van afbeeldingen\winter.jpg"
If strfoto <> "" Then
ImgAankoopFoto.Picture = strfoto
Else
ImgAankoopFoto.Picture = ""
End If

End Sub


volgende code werkt niet:
Private Sub Report_Open(Cancel As Integer)

Dim strfoto As String

strfoto = Aankoopfoto.Value

If strfoto <> "" Then
ImgAankoopFoto.Picture = strfoto
Else
ImgAankoopFoto.Picture = ""
End If

End Sub


Iemand enig idee wat ik moet doen om de 2de code te laten werken.
Ik weet het echt niet meer.
Alvast bedankt voor het advies.

Hans

 

[vanzwam]

Volgens mij kan je 2° code niet werken omdat je geen map specifieert.

 

[Bartuls]

In het tweede geval wordt de variabele strFoto met variabele Aankoopfoto.Value. Je moet even kijken wat hier precies instaat.

 

[h.van.bouwel]

Beste Rudi

Het klopt niet helemaal wat je zegt. De padnaam van de foto staat in tekstvak "Aankoopfoto".

De inhoud van tekstvak "Aankoopfoto" in het 2°voorbeeld is gelijk aan "strfoto" in het 1°voorbeeld.

Het tekstvak wordt opgevuld in een formulier en bevat dus een waarde.

Hopelijk is het iets duidelijker.

mvg
Hans