Private Sub Report_Open(Cancel As Integer)
Dim sqlRecordSourceReportPD As String
Dim sqlBronPD As String
Dim qdfPD As Object
'Vorige query verwijderen
If ObjectBestaatNog("BronTabelPD", 2) = True Then
DoCmd.DeleteObject acQuery, "BronTabelPD"
End If
sqlBronPD = "SELECT tblWerkgroepCGS.WerkgroepCGSID, tblWerkgroepCGS.WGAfdelingDivisie, tblProducten.*, tblAandachtspunten.* " & _
"FROM tblWerkgroepCGS INNER JOIN (tblProducten LEFT JOIN tblAandachtspunten ON tblProducten.ProductenID = tblAandachtspunten.ProductenID) " & _
"ON tblWerkgroepCGS.WerkgroepCGSID = tblProducten.WerkgroepCGSID " & _
"WHERE (tblWerkgroepCGS.WerkgroepCGSID <> " & Me.Parent.txtWerkgroepCGSID & ") And " & _
"(tblProducten." & Me.Parent.txtWGAfdelingDivisiePD & " = True) And (tblProducten.PKalenderjaar = " & TempVars.Item("PubKalenderjaar") & ");"
Set qdfPD = CurrentDb.CreateQueryDef("BronTabelPD")
qdfPD.SQL = sqlBronPD
' DoCmd.OpenQuery "BronTabelPD"
' DoCmd.Save acQuery, "BronTabelPD"
Set qdfPD = Nothing
'totaal aantal records tellen
TempVars.Add "TotaalRecordsPD", Nz(DCount("*", "BronTabelPD"), 0)
sqlRecordSourceReportPD = "SELECT tblWerkgroepCGS.WerkgroepCGSID, tblWerkgroepCGS.WGAfdelingDivisie, tblProducten.*, tblAandachtspunten.* " & _
"FROM tblWerkgroepCGS INNER JOIN (tblProducten LEFT JOIN tblAandachtspunten ON tblProducten.ProductenID = tblAandachtspunten.ProductenID) " & _
"ON tblWerkgroepCGS.WerkgroepCGSID = tblProducten.WerkgroepCGSID " & _
"WHERE (tblWerkgroepCGS.WerkgroepCGSID <> " & Me.Parent.txtWerkgroepCGSID & ") And " & _
"(tblProducten." & Me.Parent.txtWGAfdelingDivisiePD & " = True) And (tblProducten.PKalenderjaar = " & TempVars.Item("PubKalenderjaar") & ") " & _
"ORDER BY tblWerkgroepCGS.WGAfdelingDivisie, tblProducten.PCodeActie, tblProducten.PNaam;"
Me.RecordSource = sqlRecordSourceReportPD
End Sub