h.van.bouwel
Gebruiker
- Lid geworden
- 20 jun 2004
- Berichten
- 51
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
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