我想將行轉換爲ms-access中的列

Question

我需要將行轉換爲MS Access數據庫中的列，VBA，SQL這兩個代碼都是受歡迎的。

表

| 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 | 

所需的表

| 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 | 

正如你所期望的表格中看到，我想有年度行作爲柱，從相隔一年列出所有的列作爲我的行。 我曾嘗試在MS Access中使用Tranform和Pivot函數，但它只能旋轉一個變量。讓我知道你的想法。

以下代碼在轉置所有變量時失敗。

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

此外，如果可能我想發佈它作爲PDF文檔。

由於提前， RVG

Answer 1

址變換是不是真的直觀和易於使用的，我不認爲你可以使用這種方式。每個結果行應該是您的表的聚合。我知道無法將以前的字段名稱添加到新列中。

看到一個工作示例： TRANSFORM and PIVOT in Access 2013 SQL

你真正似乎想僅僅是一個新的演示文稿，以現有的數據。

Excel可能會有所幫助。

我從來沒有從Access導出PDF，但從Excel很容易。以下是一個示例：

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

數據總是與字段名稱和年份相同嗎？如果是的話，你也許可以使用UNION查詢，像：

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

這是一個VB腳本，從TableSource取數據，並將其調換到TableTranspose。第二個表必須設置一個名爲FName的列，以獲取源表中每個年份的字段名稱和列。

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 

這是通過在同一時間，以匹配所需的輸出的佈局處理一個領域，並通過每年TableSource的循環，從而找到數據來彌補該行中TableTranspose。它們應該有多少個領域或者他們命名的都不重要。

它將在Year的輸出中創建一行，這將是多餘的 - 您可以刪除它，或者添加邏輯以在必要時跳過該字段。

對於樣本中的4年數據，這似乎可以正常工作，並且應該將OK延長到更多年。如果數據中的年份太長，您可能會遇到SQL命令長度的限制，但我認爲不是。

如果您正在過濾來自TableSource的記錄，則可以在靠近底部的db.execute的行上添加WHERE子句。