Forumleden,
Op mijn rapport zullen een groot aantal subrapporten staan waar telkens dezelfde code op moet gebeuren. Daarom dacht ik één routine of functie te plaatsen en daar dan via een variabele naar te verwijzen maar ik raak er niet.
ik gebruik deze code (al 10-tallen verschillende versies maar geen een werkt.
Als ik het subrapport VAST in de functie zet (ipv met set fm = ...) werkt het wel maar dan moet ik voor elke subrapport de volledige code copieren.
...
Call Zet_Fotos(2, 1, 0, 1, 0, "Ft1")
...
Function Zet_Fotos(PB, rmt, rmtnr, item, itemnr, ctrl)
On Error GoTo fout
flt = "[PBFLink] = " & PB & " AND [PBFRuimte] = " & rmt & " AND [PBFRuimteVlg] = " & rmtnr & " AND [PBFItem] = " & item & " AND [PBFItemVlg] = " & itemnr
a = 0
Set fm = Reports!RptPlaatsbeschrijving!SubRptPBTechnisch.Report![ctrl]
With CurrentDb.OpenRecordset("SELECT * FROM [tblFotos -lokaal-] WHERE " & flt)
.MoveFirst
While Not .EOF Or a < 4
fm!Controls(a).Picture = !PBFotoLocatie: a = a + 1: .MoveNext
Wend
fout:
End With
If a = 0 Then fm!Visible = False
End Function
Op mijn rapport zullen een groot aantal subrapporten staan waar telkens dezelfde code op moet gebeuren. Daarom dacht ik één routine of functie te plaatsen en daar dan via een variabele naar te verwijzen maar ik raak er niet.
ik gebruik deze code (al 10-tallen verschillende versies maar geen een werkt.
Als ik het subrapport VAST in de functie zet (ipv met set fm = ...) werkt het wel maar dan moet ik voor elke subrapport de volledige code copieren.
...
Call Zet_Fotos(2, 1, 0, 1, 0, "Ft1")
...
Function Zet_Fotos(PB, rmt, rmtnr, item, itemnr, ctrl)
On Error GoTo fout
flt = "[PBFLink] = " & PB & " AND [PBFRuimte] = " & rmt & " AND [PBFRuimteVlg] = " & rmtnr & " AND [PBFItem] = " & item & " AND [PBFItemVlg] = " & itemnr
a = 0
Set fm = Reports!RptPlaatsbeschrijving!SubRptPBTechnisch.Report![ctrl]
With CurrentDb.OpenRecordset("SELECT * FROM [tblFotos -lokaal-] WHERE " & flt)
.MoveFirst
While Not .EOF Or a < 4
fm!Controls(a).Picture = !PBFotoLocatie: a = a + 1: .MoveNext
Wend
fout:
End With
If a = 0 Then fm!Visible = False
End Function
Laatst bewerkt:
