![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_04.png?e8efa67)
2つのクエリーで抽出したレコードを結合し、そのレコードにID番号をつけて別のテーブルに追加することはできないでしょうか?
1枚のガラスの値段表を作りたいと考えています。
使用するテーブルは、1つ目がサイズ表でサイズ番号と2つの辺の長さの3つのフィールドからできています。2つ目はガラスの種類表で種類番号と種類名の2つのフィールドでできています。3つ目は値段表で上の2つの表の5つのフィールドにID番号と値段の2つのフィールドがあり全部で7つのフィールドです。
いま、フォームにサイズ表と種類表のサブフォームをつくり、それぞれ結合したいレコードを表示させています。そこからフォームに値段を入力し登録ボタンをクリックすると値段表に新しいレコードを追加するような登録ボタンを作りたいです。
簡単な例でも構いません。
VBAがわかる方、教えてください。
No.1ベストアンサー
- 回答日時:
ウーン!チクッと無駄で複雑な仕組みを作り上げようとしています。
例えば、
<Table1>
ID Data1
1 A
2 B
<table2>
ID Table1_ID Table3_ID Data1
1 1 1 XX
2 1 1 YY
<Table3>
ID Price
1 \1,000
2 \2,000
という設計であれば、ノープログラミングで目的を達成できます。
<クエリ1>
ID Table1.Data1 Table2.Data1 Price
1 A XX \1,000
2 A YY \1,000
SELECT Table2.ID, Table1.Data1, Table2.Data1, Table3.Price
FROM Table1 RIGHT JOIN (Table2 LEFT JOIN Table3 ON Table2.Table3_ID = Table3.ID)
ON Table1.ID = Table2.Table1_ID;
正に、この<クエリ1>が「1枚のガラスの値段表」です。
****************************************************************
なお、質問に即答すれば、
Private Sub コマンド0_Click()
Dim strInsertSQL As String
strInsertSQL = "INSERT INTO Table3 (ID,Price) Values (3,3000)"
CnnExecute(strInsertSQL)
End Sub
と、SQLのINSERT文を作成し実行すれば可能です。
CnnExecute()については、要求があれば示します。
大変ありがとうございました。
回答を読んでコードの全体像がとてもシンプルになりました。
SQL文の結合は情報処理の勉強で、SELECT・・・From・・・Where A = B AND ・・・のようなものしかやりませんでしたが、これも勉強になりました。
CnnExecute()は某Webサイトで調べました。オートナンバーは自動的にふってくれるし、あとは何とかできそうです。
No.2
- 回答日時:
> 3つ目は値段表で上の2つの表の5つのフィールドにID番号と値段の2つのフィールドがあり全部で7つのフィールドです。
この値段表テーブルの作り方がマズイです。
Accessに限らずリレーショナルデータベースでは、他のテーブルにあるデータを重複して持つことを極力避けます。
ご質問の例の値段表テーブルは、
1.商品ID(型番など、商品を一意に特定できる番号)
2.価格
3.サイズID(サイズ表テーブルのサイズ番号)
4.種類ID(種類表テーブルの種類番号)
この4フィールドにすべきです。
値段表テーブルに他のテーブルのデータを書き込むテーブル構成にしてしまうと、種類やサイズに変更があったとき、種類テーブルやサイズテーブルだけでなく、値段表テーブル上にあるデータも訂正しなければならなくなります。
他のテーブルのデータを参照したいときは、これら別テーブルのIDでリンクさせたクエリーを使うのがセオリーです。
従って、ご質問のフォームでは、ザブフォームからは2つのサブフォームからそれぞれのIDだけを取り出し、値段表テーブルに追加すれば良いのです。
ただ、サブフォーム方式を採用することが良いかどうかは別の話です。
サイズテーブルや種類テーブルのレコード数が多い場合、絞り込みを行える様にするなど、エンドユーザーの負担を軽減させる工夫も必要です
ありがとうございました。
4つの主キーにしぼる話はNo1さんの回答を理解する助けにもなりました。番号の組合せと値段だけでは何のガラスかわからなくなってしまわないか不安はありましたが、必要に応じてリレーションシップからクエリなどで参照すればいいですよね。
値段表はフィールドを2つにするか4つするかまだ決めてませんが、フォームは新規のガラスを登録するときに既存のサイズと種類があるか確認しやすいものをつくりたいと考えています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INSERT INTO ステートメントに...
-
ACCESSで400以上のフィールドが...
-
ExcelのデータをコピーでACCESS...
-
【Access】フォームで自動計算...
-
アクセス:データ型の一括変換
-
Accessのフィールド数が255しか...
-
Accessでテーブルの値をテキス...
-
ACCESSでの改行コード
-
電話番号のデータの書式を変換...
-
ACCESS2000「定義されているフ...
-
accessで重複を防ぎたい
-
ACCESS VBAにてCSV...
-
ACCESSでオートナンバーを任意...
-
Accessのテーブル内のフィールド数
-
ファイルメーカーでCountifの様...
-
ACCESS検索★ある文字を複数のフ...
-
accessのレポートで元になるテ...
-
Accessで、固定アルファベット+...
-
アクセスのテーブルデータをCSV...
-
ACCESSでテーブルのチェックを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフィールド数が255しか...
-
Accessでテーブルの値をテキス...
-
INSERT INTO ステートメントに...
-
ACCESSでの改行コード
-
ACCESSで400以上のフィールドが...
-
accessで重複を防ぎたい
-
アクセス エラーを数値「0」に...
-
Access 昇順・降順で並び替え...
-
accessのレポートで元になるテ...
-
ExcelのデータをコピーでACCESS...
-
アクセス VBAで列の入れ替...
-
SQLServer2005のSQL文での別名...
-
【Access】フォームで自動計算...
-
Accessで、固定アルファベット+...
-
ファイルメーカーでCountifの様...
-
主キーはオートナンバー型のID...
-
アクセス メモ型 255文字...
-
ACCESS 入力文字数制限
-
ACCESSで和暦を西暦に・・・
-
ACCESSでテーブルのチェックを...
おすすめ情報