ACCESSのクロス集計クエリのようなData Reportを書くにはどうしたらよいのですか (ID:113499)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

SQL = "TRANSFORM Sum(入力項目.金額) AS 金額の合計 SELECT 入力項目.勘定科目, 入力項目.年, 入力項目.月, Sum(入力項目.金額) AS [合計 金額] From 入力項目 GROUP BY 入力項目.勘定科目, 入力項目.年, 入力項目.月 PIVOT 入力項目.部署名;"
If NEN <> "" Then
 criteria = "年 = '" & NEN.Text & "'"
End If

If TUKI <> "" Then
    If criteria <> "" Then
    criteria = criteria & " And 月 = '" & TUKI.Text & "'"
    Else
    criteria = "月 = '" & TUKI.Text & "'"
    End If
End If

Set RS = New ADODB.Recordset
RS.Open SQL, CN
Set DataGrid1.DataSource = RS
RS.Filter = criteria

With DataGrid1
.Columns("年").Visible = False
.Columns("月").Visible = False
.Columns("勘定科目").Width = 80 * 15
.Columns("勘定科目").Alignment = dbgCenter
.Columns("合計 金額").Width = 80 * 15
.Columns("合計 金額").Alignment = dbgCenter
    Set MYDB = OpenDatabase("C:¥データ.mdb")
    SQL = "select * from 入力項目"
    Set RECSET = MYDB.OpenRecordset(SQL, dbOpenDynaset)
  CUNT = 0
    Do Until RECSET.EOF
    
    aaa = RECSET!部署名
.Columns(aaa).Width = 70 * 15
.Columns(aaa).Alignment = dbgCenter

RECSET.MoveNext
    CUNT = CUNT + 1
    Loop
    RECSET.Close

End With
と書いてDataGridに表示させたのですが、このDataGridをそのままData Reportに表示させたいのですがどうしたら良いのでしょうか？    とても初心者でどうしても分かりませんでした。どうか、どなたか教えて下さい。

←解決時は質問者本人がここをチェックしてください。

戻る