Goedemiddag
Ik heb een databaseformulier in Access waarin ik foto's kan oproepen die elders op een (netwerk)directory staan. Het voordeel hiervan is dat de foto's geen geheugen in beslag nemen, aangezien ze niet in de database zelf staan.
Nu wil ik dezelfde foto's ook oproepen in een rapport om vervolgens het rapport met de foto's te kunnen printen. Echter ik krijg dit niet voor elkaar. Bijgevoegd is de code die de foto's oproept in het formulier.
Mijn vraag is hoe de code aangepast moet worden om deze ook werkend te krijgen in het rapport?
Ik heb een databaseformulier in Access waarin ik foto's kan oproepen die elders op een (netwerk)directory staan. Het voordeel hiervan is dat de foto's geen geheugen in beslag nemen, aangezien ze niet in de database zelf staan.
Nu wil ik dezelfde foto's ook oproepen in een rapport om vervolgens het rapport met de foto's te kunnen printen. Echter ik krijg dit niet voor elkaar. Bijgevoegd is de code die de foto's oproept in het formulier.
Mijn vraag is hoe de code aangepast moet worden om deze ook werkend te krijgen in het rapport?
Code:
Option Compare Database
Option Explicit
Private Sub Form_Current()
On Error GoTo err_Form_Current
If Not Me!txtPicture = "" Or Not IsNull(Me!txtPicture) Then
Me!Picture.Picture = GetPathPart & Me!txtPicture
Else
Me!Picture.Picture = ""
End If
If Not Me!txtPicture1 = "" Or Not IsNull(Me!txtPicture1) Then
Me!Picture1.Picture = GetPathPart & Me!txtPicture1
Else
Me!Picture1.Picture = ""
End If
If Not Me!txtPicture2 = "" Or Not IsNull(Me!txtPicture2) Then
Me!Picture2.Picture = GetPathPart & Me!txtPicture2
Else
Me!Picture2.Picture = ""
End If
exit_Form_Current:
Exit Sub
err_Form_Current:
MsgBox Err.Description
Resume exit_Form_Current
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_Form_Open
If IsNull(Me!txtPicture) Or Me!txtPicture = "" Then
' do nothing
Else
Me!Picture.Picture = GetPathPart & Me!txtPicture
End If
If IsNull(Me!txtPicture1) Or Me!txtPicture1 = "" Then
' do nothing
Else
Me!Picture1.Picture = GetPathPart & Me!txtPicture1
End If
If IsNull(Me!txtPicture2) Or Me!txtPicture2 = "" Then
' do nothing
Else
Me!Picture2.Picture = GetPathPart & Me!txtPicture2
End If
Exit_Form_Open:
Exit Sub
err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open
End Sub
Private Function GetPathPart() As String
' Comments : Returns the path part of a string
' Parameters: strPath - string to parse
' Returns : path part
'
Dim db As DAO.Database
Dim strPath As String
Dim intCounter As Integer
Set db = CurrentDb
strPath = db.Name
db.Close
Set db = Nothing
For intCounter = Len(strPath) To 1 Step -1
If Mid$(strPath, intCounter, 1) = "\" Then
Exit For
End If
Next intCounter
GetPathPart = Left$(strPath, intCounter) & "\Afbeeldingen\"
End Function
Laatst bewerkt: