Hello,
I hav a working report with a recordsource like:
Dim strSQL As String
strSQL = " SELECT "
strSQL = strSQL & " TblMachine.Machinenaam, TblMoederrollen.Datum, TblMoederrollen.Moederrolnummer, TblPapiersoorten.Papiersoort, TblPapiersoorten.Gramgewicht,"
strSQL = strSQL & " TblKwaliteitgegevens.Kwaliteitsnaam, TblKwaliteitswaarde.Kwaliteitswaarde, TblMoederrolOpmerking.Opmerking, TblKwaliteitgegevens.Rapportering"
strSQL = strSQL & " FROM TblKwaliteitswaarde INNER JOIN TblMoederrollen ON TblKwaliteitswaarde.Moederrolnummer = TblMoederrollen.Moederrolnummer LEFT OUTER JOIN"
strSQL = strSQL & " TblMoederrolOpmerking ON TblMoederrollen.Moederrolnummer = TblMoederrolOpmerking.Moederrolnummer INNER JOIN"
strSQL = strSQL & " TblPapiersoorten ON TblMoederrollen.PapiersoortID = TblPapiersoorten.PapiersoortID INNER JOIN"
strSQL = strSQL & " TblKwaliteitgegevens ON TblKwaliteitswaarde.KwaliteitID = TblKwaliteitgegevens.KwaliteitID INNER JOIN"
strSQL = strSQL & " TblMachine ON TblMoederrollen.MachineID = TblMachine.MachineID"
strSQL = strSQL & " WHERE (TblKwaliteitgegevens.Rapportering = 1) AND (TblMachine.machinenaam = '" & [Forms]![FrmRapportering]![cbomachine] & "')"
'strSQL = strSQL & " AND (TblMoederrollen.Datum BETWEEN '" & [Forms]![FrmRapportering]![txtbegindatum2] & "' AND '" & [Forms]![FrmRapportering]![txteinddatum2] & "')"
strSQL = strSQL & " ORDER BY TblMoederrollen.Moederrolnummer"
Me.RecordSource = strSQL
How can I change this report that it becomes a pivot report?
Best regard,
Sven.
I hav a working report with a recordsource like:
Dim strSQL As String
strSQL = " SELECT "
strSQL = strSQL & " TblMachine.Machinenaam, TblMoederrollen.Datum, TblMoederrollen.Moederrolnummer, TblPapiersoorten.Papiersoort, TblPapiersoorten.Gramgewicht,"
strSQL = strSQL & " TblKwaliteitgegevens.Kwaliteitsnaam, TblKwaliteitswaarde.Kwaliteitswaarde, TblMoederrolOpmerking.Opmerking, TblKwaliteitgegevens.Rapportering"
strSQL = strSQL & " FROM TblKwaliteitswaarde INNER JOIN TblMoederrollen ON TblKwaliteitswaarde.Moederrolnummer = TblMoederrollen.Moederrolnummer LEFT OUTER JOIN"
strSQL = strSQL & " TblMoederrolOpmerking ON TblMoederrollen.Moederrolnummer = TblMoederrolOpmerking.Moederrolnummer INNER JOIN"
strSQL = strSQL & " TblPapiersoorten ON TblMoederrollen.PapiersoortID = TblPapiersoorten.PapiersoortID INNER JOIN"
strSQL = strSQL & " TblKwaliteitgegevens ON TblKwaliteitswaarde.KwaliteitID = TblKwaliteitgegevens.KwaliteitID INNER JOIN"
strSQL = strSQL & " TblMachine ON TblMoederrollen.MachineID = TblMachine.MachineID"
strSQL = strSQL & " WHERE (TblKwaliteitgegevens.Rapportering = 1) AND (TblMachine.machinenaam = '" & [Forms]![FrmRapportering]![cbomachine] & "')"
'strSQL = strSQL & " AND (TblMoederrollen.Datum BETWEEN '" & [Forms]![FrmRapportering]![txtbegindatum2] & "' AND '" & [Forms]![FrmRapportering]![txteinddatum2] & "')"
strSQL = strSQL & " ORDER BY TblMoederrollen.Moederrolnummer"
Me.RecordSource = strSQL
How can I change this report that it becomes a pivot report?
Best regard,
Sven.
