Access フィールドを選択してレポート印刷

質問

Access初心者です。

↓このようなテーブルがあり、

IDー年1ー月1－商品1ー値段1ー年2－月2－商品2ー値段2－年3－月3－商品3ー値段3

1－2015－01－りんごー100

2－2014－02－みかんー150－2015－06－ぶどうー200－2014－01－りんごー120

3－2014－11－ぶどうー180－2015－01－みかんー120

レポートで例えば1月に出荷した商品だけを

ID　　年　　月　　商品
1　　2015　01　　りんご
2　　2014　01　　りんご
3　　2015　01　　みかん

このように印刷したいです。

どこでどのようにすれば良いのか

易しく教えていただければありがたいです。

宜しくお願いします。

回答No.1

tamu1129 · ベストアンサー

＞↓このようなテーブルがあり、

まさにExcel使っている人が作りそうなテーブルですね

データベースを作成する場合には、そういったテーブルの作成の仕方はしません

作成するテーブルは
IDー年ー月－商品ー値段　という項目のテーブルを作成します

で、データ入力を
1－2015－01－りんごー100
2－2014－02－みかんー150
2－2015－06－ぶどうー200
2－2014－01－りんごー120
3－2014－11－ぶどうー180
3－2015－01－みかんー120

のように行うのです
okcat1227 さんが作成したテーブルではデータが3件のみしかありませんが、本来ならば6件のデータがテーブルに保存されている状態でなければデータベースとしてはおかしいのです

で、入力したデータの中から 　月　項目の中のデータが　01 になっている物を抽出して、ＩＤの数値でグループ化させるクエリを作成する

このクエリを元にレポート作成するっていうような手順になります

今のうちに、データベースのテーブル構築と入力したデータの抽出をきっちり理解しておいた方が良いですよ

データベースはワークシートとは違うのです

お礼

勉強になりました。
いま必死にテーブルを作りなおしています。
また分からないことが出てきたので改めて質問しようと思います。
機会があればまた回答お願い致します。
ありがとうございました。

回答No.3

piroin654

No2です。
No2の一部表記を訂正します。

（３）の

SELECT T2.ID, T2.年, T2.月, T2.商品, T2.値段
FROM T2
WHERE (T2.月)=[日付入力];

を、

SELECT T2.ID, T2.年, T2.月, T2.商品, T2.値段
FROM T2
WHERE (T2.月)=[月入力];

のようにしてください。パラメータの標題を「月入力」とします。
変更しなくても、月を入力すればいいのですが。
それから、（４）の、
　　パラメータの「日付入力」
という文章は、
　　パラメータの「月入力」
としてください。二ヶ所あります。

以上です。

なお、テーブルの構成は本来、No2の「T2」のようなフィールドの
構成にすべきで、このようにしないと後でとんでもない目にあいます。

お礼

いま必死にテーブルを作り直しています。
また分からないことが出てきたので改めて質問しようと思います。
機会があればまた回答お願い致します。
ありがとうございました。

回答No.2

piroin654

＞易しく教えていただければありがたいです。

と言われても、内容は少し長く、面倒ですが、最後まで見てください。

（１）
まず、このままのテーブルではどうしようもないので、
テーブルのデータを別の新しいテーブルに切り出します。

データのある元のテーブルを「T1」、新しいテーブルを
「T2」とします。
新しいテーブル「T2」のフィールドは、

　ID　　
　年　
　月
　商品
　値段

IDはオートナンバーにせずに数値型、あるいはテキスト型
にしておいてください。その他はテキスト型でもいいのですが。
問題があれば補足してください。

（２）
次に、以下のプロシージャを標準モジュールに
貼り付け、保存してください。そしてこれを
実行してください。

元のテーブル「T1」は実際のテーブル名に変更
してもかまいません。
なお、実際の元のテーブル「T1」のフィールド数の
設定が質問通りであるとします。フィールドの設定
が実際には違っていたら補足してください。

なお、下記ではDAOを使っているのでコード表で
DAOのチェックを確認してください。
「ツール」「参照設定」から、
Microsoft DAO xx Object Library
にチェックが入っているか確認してください。
Accessのバージョンにもよりますが、xxは3.6とか
そのような数字です。

Sub test()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim j As Integer

Set db = CurrentDb
Set rs1 = db.OpenRecordset("T1")
Set rs2 = db.OpenRecordset("T2", dbOpenDynaset)

rs1.MoveFirst
Do Until rs1.EOF

　　For j = 1 To rs1.Fields.Count - 1
　　If Not IsNull(rs1.Fields(j)) Then
　　rs2.AddNew
　　rs2!ID = rs1!ID
　　rs2!年 = rs1.Fields(j).Value
　　rs2!月 = rs1.Fields(j + 1).Value
　　rs2!商品 = rs1.Fields(j + 2).Value
　　rs2!値段 = rs1.Fields(j + 3).Value
　　rs2.Update
　　End If
　　j = j + 3
　　Next j

rs1.MoveNext
Loop

rs1.Close: Set rs1 = Nothing
rs2.Close: Set rs2 = Nothing
db.Close: Set db = Nothing
End Sub

これで、あたらしいテーブル「T2」に「T1」の
データがすべてコピーされます。

（３）
次に、クエリを一つつくります。
「T2」はテーブル名です。

SELECT T2.ID, T2.年, T2.月, T2.商品, T2.値段
FROM T2
WHERE (T2.月)=[日付入力];

これを新しい、クエリをデザインビューで開き、
SQLビューに変更して上記を貼り付け保存します。
クエリの名前を「Qクエリ」としておきます。

（４）
次に、レポートの新規作成か「表形式」を選択し、
「基になるテーブルまたはクエリの選択」で
上記のクエリを選択し、「OK」とします。
すると、パラメータの「日付入力」を求められるので
「01」と入力すると、質問のようなデータが
レポートに表示されます。
レポートを適当な名前で保存します。
次回、開くときも同様なパラメータの「日付入力」
が表示されるので、任意の月を入力すればデータが
あれば、データが表示されます。

わからないところがあれば補足してください。

お礼

とても分かり易く答えてくださりありがとうございました。
少しずつやってみます！