Access フォームの作成 レコードの追加について

質問

原稿が以下のようになっている、フォームを作成したのですが
入力に手間が掛かるので良案がありましたらお願いいたします。

企業コードｘｘｘｘ
店名＿ｘｘｘ店
住所＿ｘｘｘｘ市ｘｘｘ村

商品分類＿売上構成＿ウエア＿シューズ＿グッズ
野球ソフト＿（野球ソフトの構成数値）＿（野球ソフトのウエアの構成数値）＿・・・
テニス＿
バドミントン＿
卓球＿
ゴルフ＿
・
・
・
合計＿

分類ID（商品名）は15商品と決まっております
3品目もウエア、シューズ、グッズと決まっております。
原稿は商品名15品目がすべて印字済みです。
エクセルの表のような原稿だと考えていただければよいかと思います。

テーブルは正規化に則り以下のように作成しました。

売上構成テーブル
企業コード＿売上構成＿分類ID(商品名のID)

3品目（ウエア、シューズ、グッズ）
企業コード＿3品目構成比＿分類ID＿項目ID（3品目のID）

店マスタテーブル
企業コード＿店名＿電話番号　等

現在は店マスタテーブルをメインフォームにサブフォームを
売上構成、3品目と作成しましたがこのままでは見にくいですし
IDをわざわざ入力しなければなりません。（新規のデータの場合）

メインフォーム（単票フォーム）
サブフォーム（データシート）

一つの企業コードに対して最大15商品、それらに対して3品目は決まっているので
ID入力を省くように追加ボタンの作成は出来ないのでしょうか？

企業コードを指定してクリックすると売上構成に1~15までの商品レコード追加。
企業コードを指定してクリックすると3品目項目IDを追加。

入力の並びに関しては以前ご質問したときにVBAで長いコードを
書かなければならないと解答をいただきました。
VBAは殆どさわった事ないので分かりません。（検索に使っている程度です。）

以上のことでもし何かありましたら回答お願いいたします。

回答No.2

CHRONOS_0 · ベストアンサー

なんか要領を得ないですね
あなたの挙げた例ではあやふやなところがあって回答しにくいので
こちらで作成した例で回答しておきますから応用してください

生徒の成績入力を行うメイン・サブフォームの例です
メインフォームに設けた入力開始というボタンを押すと
サブフォームには科目と生徒名が入力済みで点数だけが空欄のレコードが
生徒数×科目数分追加され表示されます

テーブル
[生徒マスタ](生徒コード*、氏名、性別、生年月日、・・・)
[科目マスタ](科目コード*、科目名、・・・)
[成績](生徒コード*、科目コード*、点数)
*は主キー

フォーム
科目マスタから作った単票フォームに成績テーブルから作ったサブフォームを
科目コードでリンクしてはめ込む
メインフォームにボタンをおきクリック時イベントで下のクエリを走らせるようにします

追加クエリ
生徒マスタと科目マスタをクエリデザインビューに取り込み
結合しないで生徒コードと科目コードを取り出します
このクエリをクエリの種類で追加クエリに変えます
追加先は成績テーブルです

補足

ありがとうございます。
追加クエリを通常通り使用すればよいだけでしたね・・・
一つ問題があるのですが、追加ボタンを押した後に別のレコードに
移動しないと、データを追加したサブフォームの表示が反映されません。これは何か方法があるのでしょうか？

それと気になることがあるのですが、上記の例題と異なり、生徒マスタをメインフォーム（単票フォーム）としている状態なのです。
そのため、追加クエリを実行するときにパラメータクエリで追加したい生徒コードを入力するように作成しました。
フォーム上で表示している生徒コードと同じ生徒コードを追加するにはVBAでの指定になるのでしょうか？

回答No.3

CHRONOS_0

>別のレコードに移動しないと、データを追加したサブフォームの表示が反映されません。
追加クエリを走らせた後でサブフォームを再クエリしてください

>生徒マスタをメインフォーム（単票フォーム）としている状態なのです。
全く同じことです
メインが生徒マスタなら生徒ごとに各科目を順に入力
科目がメインなら科目ごとに生徒に順に入力していくことになるだけです

>生徒コードを入力するように作成しました。
まだ理解されていないみたいですね
生徒と科目の全組み合わせを作るには、生徒マスタと科目マスタの2つのテーブルが必要です

>フォーム上で表示している生徒コードと同じ生徒コードを追加するには
>VBAでの指定になるのでしょうか？
生徒一人分でいいいの？
要望は「全生徒　×　全科目」分のレコードを一発で追加することでしょ

一度私の上げたサンプルを作ってみたら、どういう仕組みか理解できると思いますよ
その上でそちらのテーブル構成をもっとちゃんとしたものに作りかえることですね

補足

>追加クエリを走らせた後でサブフォームを再クエリしてください
ありがとうございます。

>要望は「全生徒　×　全科目」分のレコードを一発で追加することでしょ
そうではありません。
一人の生徒×全科目が目的です。
そのためパラメータクエリで「生徒コードを入力するように作成しました」となるわけです。

要するに一人の生徒に対して全科目のデータを持たせたいので（このＩＤ入力作業に手間が掛かるため）追加ボタンが欲しかった訳です。

回答No.1

CHRONOS_0

>企業コードを指定してクリックすると売上構成に1~15までの商品レコード追加。
15商品のテーブルがあればできそうですね

>一つの企業コードに対して最大15商品、それらに対して3品目は決まっているので
企業ごとに扱う商品が異なるのであれば、必要なテーブルはその情報を持ったテーブルです
(同じならその15品目のテーブル)

売り上げ構成というのはどういうものですか?

>企業コードを指定してクリックすると3品目項目IDを追加。
どこへ追加?

どこへ何を追加したいかということさえはっきりすれば追加クエリで簡単に出来そうですね

>入力の並びに関しては以前ご質問したときにVBAで長いコードを
>書かなければならないと解答をいただきました。
データベースのレコードに入力順は関係ありません
VBAを使ったとしてもテーブル上のレコードの順序は指定できません
何か勘違いしているのでは

補足

ありがとうございます。

>15商品のテーブルがあればできそうですね
商品テーブルはすでに作成済みです。
どの企業も同じ１５品目を使います。

>売り上げ構成比
売上に対してどのぐらい商品構成比率があるかです。
たとえば野球売上構成比５０なら野球商品の売上が５０％あると言う事になります。
さらにその中で野球ウエアの構成比、野球シューズの構成比、野球グッズの構成比となります。ですのでこの野球ウエア、野球シューズ、野球グッズを足して数値が１００％になります。さらにいえば商品の売上構成のみを足しても１００％になります。売上構成とは商品の売上構成比のことです。（野球、ゴルフ、テニス等）

>何か勘違いしているのでは
私が言いたかったのは、
野球ソフト＿テニス＿バドミントン＿卓球＿ゴルフ
（ここに売上構成比を入力）

このように商品項目横にもち入力するにはVBAを使わないと出来ないのではないかということです。

今の状況では新規データの場合、まず新規レコード追加ボタンを押し
その後、企業コード入力、住所入力、電話番号入力と順番に入力していきます。
そこではいいのですが、サブフォームの売上構成テーブルの入力で、わざわざ商品IDを１～１５まで入力しなければなりません。
それに手間が掛かるので、売上構成テーブルに1~15のIDを入力してくれるボタンを作れないかということです。（現在入力中の企業コードデータに）

要するに一つの企業コードに対して必ず商品15品目のレコードデータがあるようにしたいわけです。
それと同様に一つの商品項目に対してウエア、シューズ、グッズの3品のレコードデータがあるようにしたいわけです。

　　野球　
　／　│　＼
ウエア＿シューズ＿グッズ