| |
こんにちは。小僧さん、またまた教えて下さい。
以前、2000年と打つと、1年目の所に2000年・2年目に2001年と
でるようなクエリ・フォーム・レポートを作成していただいた
のですが、今度は、これをエクスポートしたいのです。
念のため、今回作っていただいたイベントとSQLをのせます。
クエリのSQL↓ (中身は以前より、少し変更しました)
PARAMETERS [Forms]![管理開始5年].[txt年] Long;
TRANSFORM Count(Q_63分類と17分類のまとめ.ID) AS 人数
SELECT Q_63分類と17分類のまとめ.[17分類], Q_63分類と17分類のまとめ.[17分類名], Q_63分類と17分類のまとめ.６３分類, Q_63分類と17分類のまとめ.６３分類名
FROM Q_63分類と17分類のまとめ
GROUP BY Q_63分類と17分類のまとめ.[17分類], Q_63分類と17分類のまとめ.[17分類名], Q_63分類と17分類のまとめ.６３分類, Q_63分類と17分類のまとめ.６３分類名
PIVOT (Left(Q_63分類と17分類のまとめ.管理開始年,4)-Forms!管理開始5年.txt年)+1 & '年目' In ('1年目','2年目','3年目','4年目','5年目');
フォームのイベントプロシージャー
Private Sub txt年_AfterUpdate()
Me.[Lbl1年目].Caption = Me.txt年 & "年"
Me.[Lbl2年目].Caption = Me.txt年 + 1 & "年"
Me.[Lbl3年目].Caption = Me.txt年 + 2 & "年"
Me.[Lbl4年目].Caption = Me.txt年 + 3 & "年"
Me.[Lbl5年目].Caption = Me.txt年 + 4 & "年"
Me.Requery
End Sub
レポートのイベントプロシージャー↓
Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
Me.Lbl1年目.Caption = Forms![管理開始5年].Lbl1年目.Caption
Me.Lbl2年目.Caption = Forms![管理開始5年].Lbl2年目.Caption
Me.Lbl3年目.Caption = Forms![管理開始5年].Lbl3年目.Caption
Me.Lbl4年目.Caption = Forms![管理開始5年].Lbl4年目.Caption
Me.Lbl5年目.Caption = Forms![管理開始5年].Lbl5年目.Caption
End Sub
としています。今度はエクスポートをして、1年目の所に2000年・2年目の所に2001年
と出力できるようにしたいのです。
どうか、よろしくご教授願います。
|
|
サチチ
- 05/12/5(月) 14:19 -
