アクセスで1ページに複数レコードを選択・表示させる方法

Question

アクセス2000を使ってます。
今現在、簡単な参考書で勉強途中なのですが、よろしくご教授下さい。
★作りたい物
(1)　1つの画面に、複数人の指示表を表示（例参照）
(2)　A・B・C・・・さんかは、その都度入力する　　
（例です）
○月×日
　　　　ご飯　　　ぱん　　味噌汁　　コーヒー
---------------------------------------
Aさん　　ある　　　なし　　具入り　　砂糖いり
Bさん　　なし　　　ある　　　ある　　アメリカン
Cさん　　大　　　　2枚　　　なし　　　モカ
Dさん　　小　　　　なし　　すこし　　ブラック
　・　　　　・　　　　　・　　　　・　　　　・
　・　　　　・　　　　　・　　　　・　　　　・
　・　　　　・　　　　　・　　　　・　　　　・
★現在の状況
テーブルで
テーブル（A）
　　　ご飯　　　ぱん　　味噌汁　　　コーヒー
---------------------------------------
Aさん　ある　　　なし　　具入り　　　砂糖いり
Bさん　なし　　　ある　　ある　　　　アメリカン
Cさん　大　　　　2枚　　　なし　　　　モカ
Dさん　小　　　　なし　　すこし　　　ブラック

テーブル（B）
本日の日時　1人目　2り目　3人目　4人目　5人目
　-----------------------------------------
1月1日　　　Bさん　Cさん　Dさん　Aさん
1月2日　　　Aさん　Bさん　Cさん　
1月3日　　　Eさん　Kさん　Aさん　Bさん　Mさん
　・　　　　　　・　　　　・　　　　　・　　　・　　・　
★質問
テーブル（A）と（B）は出来ましたがフォーム・ウイザードで例のような表を作ろうとしても出来ませんどうしたら良いのでしょうか？よろしくお願い致します。

gonta_goma · Accepted Answer

コンパイルエラーの原因を色々考えてみたのですが・・・

もしかして、
＞ORDER BY [名前], [日付], [来店順位];" '←ここは一行で 

この部分の、『ここは一行で』というのは、ページの関係で、

Me.RecordSource = "SELECT * FROM テーブルA WHERE 名前 In (" & tmp & ")

　と

ORDER BY [名前], [日付], [来店順位];" 

が2行に表示されるけど、1行にしてください。という意味なのですが、1行になってますか？
なってないなら、この部分が赤字表示されていませんか？。

1行になってるのなら、別の原因を考えなければなりませんが、今のところちょっと思いつきません。すみません。

他の質問ですが、

＞１人お客さんが来るたびにレコードが１つ増えるという事ですよね？ 
そうです。
Aさんが11/3の最初のお客さんなら、　Aさん｜2002/11/3｜　1　というレコードになり、次にBさんが来たら、　Bさん｜2002/11/3｜　2　です。

＞テーブルの名前をテーブルAとしました
問題はないと思います。

＞クエリーは2つのデーターを関連付けるために使う物ですよね（
クエリーはテーブルの中から、条件に合う物を抽出するのにも使います。
例として、クエリーの WHERE 名前 IN ('Aさん','Bさん')　この部分は、対象となるテーブルの、「名前」項目が、Aさん又はBさんであるレコードが抽出されるわけです。
この場合はAさんとBさんが抽出されるのですが、次にDさん、Eさんを抽出したくなったら、クエリーを書き換えなければならなくなって、面倒です。
ですので、フォームから条件を入力したら(対象となる人の名前をテキストボックスに入力したら)、レコードが抽出されて便利かな、と思ったのです。

あと、私は暫くネットに接続できなくなりますので、その間は質問には答えられなくなりますので失礼します。

gonta_goma · Answer

おっしゃるような事をするには、クエリーが必要になると思います。
テーブル構造は私がNo2で示したようになっているとして、AさんとBさんの履歴を出すクエリーは、次のようになります。

SELECT * FROM テーブルA WHERE 名前 IN ('Aさん','Bさん') ORDER BY [名前], [日付], [来店順位];

「'Aさん','Bさん'」の部分を来客によって変えるのですが、いちいちクエリーを編集するのは手間ですよね。
だからVBAを使うのが良いと思います。

まず、フォームを作ります。
フォーム・ウイザードで、基になるテーブルにテーブルAを指定して、表形式にします。
出来たフォームにテキストボックスとコマンドボタンを貼り付けます。
名前はテキスト1、コマンド1としておきます。
フォームの編集画面で「表示」ー「コード」を選んで、以下を貼り付けます。

Private Sub コマンド1_Click()
　Dim tmp As String
　tmp = テキスト1.Value
　tmp = "'" & Replace(tmp, ",", "','") & "'"
　Me.RecordSource = "SELECT * FROM テーブルA WHERE 名前 In (" & tmp & ") ORDER BY [名前], [日付], [来店順位];" '←ここは一行で
End Sub

編集結果を保存して完成です。利用方法は以下になります。
フォームを開いて、テキストボックスに「Bさん,Cさん」という具合に表示したい人の名前を入力してコマンドボタンを押せば、目的の表示がでます。
この時、人の名前の間は、,(半角のコンマ)で区切って、スペースなどは入力しないようにしてください。

なおテキストボックスには「'Aさん','Bさん'」という具合に、名前を'で囲んで入力する方法でも良いのですが、間違いやすいのでVBAの方で処理するようにしました。

gonta_goma · Answer

回答ではないのですが、こんな風に考えてみました。
たとえばテーブルAに日付をもたせます。

名前　ご飯　　　ぱん　　味噌汁　　　コーヒー 　　日付
-------------------------------------------------------------------------- 
Aさん　ある　　　なし　　具入り　　　砂糖いり　　2002/1/1
Bさん　なし　　　ある　　ある　　　　アメリカン　2002/1/3
Bさん　なし　　　あり　　なし　　　　アメリカン　2002/1/4
Cさん　なし　　　なし　　あり　　　　砂糖いり　　2002/1/4

このテーブルAを名前が「Bさん」のレコードを抽出すれば、

名前　ご飯　　　ぱん　　味噌汁　　　コーヒー 　　日付
-------------------------------------------------------------------------- 
Bさん　なし　　　ある　　ある　　　　アメリカン　2002/1/3
Bさん　なし　　　あり　　なし　　　　アメリカン　2002/1/4

こうなって、Bさんの過去メニューが分るのですが、これでどうでしょうか。
この場合は一人ぶんのメニュー履歴しか表示されないので、Cさんの履歴を見たいときは抽出をやり直す必要が生じます。
それとも、Bさん、Cさんと来店した場合は、BさんとCさんの両方の履歴を表示しなければならないのでしょうか。
つまり下のような表示にするのでしょうか。

名前　ご飯　　　ぱん　　味噌汁　　　コーヒー 　　日付
-------------------------------------------------------------------------- 
Bさん　なし　　　ある　　ある　　　　アメリカン　2002/1/3
Bさん　なし　　　あり　　なし　　　　アメリカン　2002/1/4
Cさん　なし　　　なし　　あり　　　　砂糖いり　　2002/1/4

どちらも可能ですが、来店の都度、Bさんの履歴、Cさんの履歴を表示した方が分りやすい様に思います。

それから、テーブルBは必要でしょうか？
例で示された出力結果には来店順番が関係していないように思います。
もしも来店順番が必要ならば、テーブルAにその日の何番目の来店かを数値で記録した方が簡単に思います。
次の様なテーブルです。

名前　ご飯　　　ぱん　　味噌汁　　　コーヒー 　　日付　　　来店順番
-------------------------------------------------------------------------- 
Aさん　ある　　　なし　　具入り　　　砂糖いり　　2002/1/1　3

これは、Aさんが2002/1/1に3人目のお客さんであることを示します。
まあ、同じお客さんが一日2回来店することもあるだろうから、日付+順番を記録した方が良いかもしれません。

gooco_chan · Answer

こんばんは。
私の想像力が乏しくて、わかりにくいのですが、
フォームで何を表示したいのか、どの項目を入力するのか。
テーブルＡとＢの関連は？
もう少し具体的に書いてもらえると、想像できますが・・・
補足してください。

ちなみに、テーブルＢの項目は５人目までですか？

アクセスで1ページに複数レコードを選択・表示させる方法

コンパイルエラーの原因を色々考えてみたのですが・・・

おっしゃるような事をするには、クエリーが必要になると思います。

この回答への補足

回答ではないのですが、こんな風に考えてみました。

この回答への補足

こんばんは。

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング