Ich möchte Zeilen in Spalten in MS-Access transponieren

Question

Ich muss Zeilen in Spalten in MS Access-Datenbank, VBA, SQL beide Codes sind willkommen.

Tabelle

| Name | Ticker | ID | Innovation | Quality | Year | 
    | XYZ | PQR | 11 | 1   | 1  | 2009 | 
    | XYZ | PQR | 11 | 0   | 1  | 2010 | 
    | XYZ | PQR | 11 | 1   | 0  | 2011 | 
    | XYZ | PQR | 11 | 1   | 1  | 2012 | 

Gewünschte Tabelle

| Year  | 2009 | 2010 | 2011 | 2012 | 
    | Name  | XYZ | XYZ | XYZ | XYZ | 
    | Ticker  | PQR | PQR | PQR | PQR | 
    | ID   | 11 | 11 | 11 | 11 | 
    | Innovation | 1 | 0 | 1 | 1 | 
    | Quality  | 1 | 1 | 0 | 1 | 

Wie Sie aus der gewünschten Tabelle sehen können, Ich versuche, das Jahr Zeile als Spalte zu haben und alle Spalten abgesehen von Jahr Liste als mein Reihen. Ich habe versucht, mit Hilfe von Tranform und Pivot-Funktion in MS Access, aber es nur eine Variable Pivots. Lass mich deine Gedanken darüber wissen.

Der folgende Code konnte nicht alle Variablen transponieren.

TRANSFORM Max([Quality]) 
    SELECT Ticker 
    FROM Table 
    Where Ticker = "XYZ" 
    GROUP BY Ticker 
    PIVOT Year; 

Auch, wenn möglich, möchte ich es als PDF-Dokument veröffentlichen.

Vielen Dank im Voraus, RVG

Answer 1

Zugang VERÄNDERN nicht wirklich intuitiv und einfach zu bedienen ist, und ich glaube nicht, dass Sie es auf diese Weise nutzen können. Jede Ergebniszeile soll eine Zusammenfassung Ihrer Tabelle sein. Ich kenne keine Möglichkeit, die vorherigen Feldnamen in eine neue Spalte zu bringen.

Sehen Sie ein funktionierendes Beispiel: TRANSFORM and PIVOT in Access 2013 SQL

Was Sie wirklich zu wollen scheinen ist nur eine neue Präsentation zu den vorhandenen Daten.

Excel könnte helfen.

Ich habe nie pdf aus Access exportiert, aber aus Excel ist einfach. Hier ein Beispiel:

Sub ExportPdf(path As String, Optional openAfter As Boolean) 

''calculate best range for print area 
Dim lastCol As Integer 
Dim firstRow As Integer 
Dim lastRow As Integer 

lastCol = pt.TableRange2.Columns(pt.TableRange2.Columns.Count).Column 
firstRow = pt.TableRange2.Rows(1).Row 
lastRow = ms.Cells(pt.TableRange2.Rows.Count * 3, 1).End(xlUp).Row 

Worksheets(ContextSheet).PageSetup.PrintArea = Range(Cells(firstRow, 1), Cells(lastRow, lastCol)).Address 

Worksheets(ContextSheet).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    path & "\Area " & getPivotTablePageFilters(getPivotTable()) & ".pdf", Quality:= _ 
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=openAfter 
End Sub 

Answer 2

Sind die Daten immer die gleiche Menge von Feldnamen und Jahren? Wenn ja, könnten Sie in der Lage sein, eine UNION-Abfrage zu verwenden, so etwas wie:

Select "Name" as [FName], max(iif(year="2009",name))as [2009], max(iif(year="2010" 
,name)) as [2010], max(iif(year="2011",name)) as [2011], max(iif(year="2012", name)) as [2012] from Table group by FName 

Union all Select "Ticker", max(iif(year="2009",ticker)), max(iif(year="2010" 
,ticker)), max(iif(year="2011",ticker)), max(iif(year=-"2012",ticker)) from Table group by FName 

Union all Select "ID", max(iif(year="2009",id)), max(iif(year="2010" 
,id)), max(iif(year="2011",is)), max(iif(year="2012",id)) from Table group by FName 

Union all Select "Innovation", max(iif(year="2009",innovation)), max(iif(year="2010" 
,innovation)), max(iif(year="2011",innovation)), max(iif(year=-"2012",innovation)) from Table group by FName 

Union all Select "Quality", max(iif(year="2009",quality)), max(iif(year="2010" 
,quality)), max(iif(year="2011",quality)), max(iif(year=-"2012",quality)) from Table group by FName 

Answer 3

Dies ist ein VB-Skript, das die Daten von Table nimmt und transponiert sie in TableTranspose. Die zweite Tabelle muss mit einer Spalte namens FName eingerichtet werden, um die Feldnamen und Spalten für jedes Jahr in der Quelltabelle zu übernehmen.

Function Transpose() 
Set db = CurrentDb() 
db.Execute ("delete * from TableTranspose") 
Set RS = db.OpenRecordset("TableSource") 
Set YrList = db.OpenRecordset("select distinct [Yr] from [TableSource] Group by [Yr]") 

For Each F In RS.Fields 
    FN = F.Name 
    INS = "Insert Into TableTranspose (FName" 
    SQL = "Select '" & FN & "'" 
    YrList.MoveFirst 
    Do While Not YrList.EOF 
     YR = YrList.Fields("YR").Value 
     INS = INS & ",[" & YR & "]" 
     SQL = SQL & ",max(iif(YR=" & YR & ",[" & FN & "])) AS [" & YR & "]" 
     YrList.MoveNext 
     Loop 
    SQL = SQL & " From TableSource" 
    db.Execute (INS & ") " & SQL) 

Next F 
MsgBox ("Done") 
End Function 

Dies funktioniert, indem zu einem Zeitpunkt ein Feld Bearbeitung des Layouts der gewünschten Ausgabe und Weiterschleifen jedes Jahr der Table übereinstimmen, die Daten zu finden, die Zeile in TableTranspose zu bilden. Es sollte egal sein, wie viele Felder es gibt oder wie sie benannt sind.

Es wird eine Zeile in der Ausgabe für das Jahr erstellt, die redundant ist - Sie können sie löschen oder Logik hinzufügen, um dieses Feld bei Bedarf zu überspringen.

Dies scheint mit den 4 Jahren Daten in Ihrer Probe gut zu funktionieren, und sollte OK zu mehr Jahren verlängern. Es ist möglich, dass Sie ein Limit für die SQL-Befehlslänge erreichen, wenn die Daten zu viele Jahre alt sind, aber ich denke nicht.

Wenn Sie die Datensätze aus TableSource filtern, können Sie die WHERE-Klausel in der Zeile nur aus der Datei db.execute unten hinzufügen.