質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.46%
Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

1回答

2596閲覧

Access テーブルの値を利用して別のテーブルに値を入力する

mnbwqz

総合スコア74

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2021/11/30 00:38

編集2021/12/01 00:48

販売情報テーブルから、出荷情報テーブルを作成したいと思っています。
販売情報の商品名と販売日が同じものを合わせて、一つの出荷番号が割り当てられます。販売情報テーブルに先にデータが入力され、その後、出荷情報テーブルにデータが入力されます。販売情報テーブルにのみデータが入力されている状態で、「入力用」のように表示させ、空欄に入力すると出荷情報テーブルができるようにしたいと思っています。可能でしょうか。よろしくお願いします。

販売情報
|商品名|販売日|販売先|数量|
|:--|:--:|--:|
商品A|2021/01/04|あ社|3|
商品A|2021/01/04|い社|2|
商品B|2021/01/04|あ社|1|
商品A|2021/01/07|あ社|1|
商品A|2021/01/07|い社|2|

出荷情報
商品名|販売日|出荷日|出荷番号|担当者|
|:--|:--:|--:|
商品A|2021/01/04|2021/01/06|AA005|Aa
商品B|2021/01/04|2021/01/06|AA006|Aa
商品A|2021/01/07|2021/01/09|AA007|Bb

入力用
商品名|販売日|出荷日|出荷番号|担当者|
|:--|:--:|--:|
商品A|2021/01/04|
商品B|2021/01/04|
商品A|2021/01/07|


教えていただいた1の追加クエリを利用する方法、下記作成しました。
ありがとうございます。

SQL

1INSERT INTO 出荷情報 ( 商品名, 販売日 ) 2SELECT 販売情報.商品名, 販売情報.販売日 3FROM 販売情報 LEFT JOIN 出荷情報 ON (販売情報.販売日 = 出荷情報.販売日) AND (販売情報.商品名 = 出荷情報.商品名) 4WHERE (((出荷情報.商品名) Is Null) AND ((出荷情報.販売日) Is Null)) 5GROUP BY 販売情報.商品名, 販売情報.販売日;

2の方法、ご提示いただいたクエリ(クエリA)を作成し、入力用フォーム(情報登録用)を作成してレコードソースに設定し、更新前処理のイベントプロシージャを作成しました。また出荷情報の商品名・販売日フィールドに主キーを設定して動作しました。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sazi

2021/11/30 04:44 編集

質問に追加されたinsertを実施した場合、取消などはどう考えているんでしょう。 過去の質問は全体から見て断片的なものですけど、その回答を積み上げているだけにしか見えないので、 システム全体として大丈夫なの?という印象が否めませんけどね。 質問に追記された応用の仕方も、意味が分かっての応用でないから上手くいっていない印象ですし。
guest

回答1

0

ベストアンサー

方法としては2つ考えられます。

  1. 「出荷情報」を入力する前に、追加クエリで、「販売情報」から存在しない商品名と販売日の組み合わせのレコードを追加する。

  2. 「販売情報」の入力時に、「出荷情報」に存在しない「商品名と販売日」の組み合わせだったら、「出荷情報」に「商品名と販売日」を追加する。

2.の方法の入力フォームの設計を提示しておきます。

下記のクエリを作成します。

SQL

1SELECT 2 出荷情報.商品名 AS 商品名1, 出荷情報.販売日 AS 販売日1, 3 販売情報.商品名 AS 商品名, 販売情報.販売日 AS 販売日, 4 販売情報.販売先, 販売情報.数量 5FROM 6 出荷情報 LEFT JOIN 販売情報 ON 7 (出荷情報.販売日 = 販売情報.販売日) AND (出荷情報.商品名 = 販売情報.商品名);

これを入力フォームのレコードソースにします。
商品名1 と 販売日1 以外のフィールドをフォーム上に配置します。

フォームの更新前処理のイベントプロシージャを下記のように記述します。

vba

1Private Sub Form_BeforeUpdate(Cancel As Integer) 2 If IsNull(Me.商品名) Or IsNull(Me.販売日) Then 3 Cancel = True 4 MsgBox "商品名と販売日を入力してください。" 5 Exit Sub 6 End If 7 If IsNull(Me.商品名1) Then 8 Me.商品名1 = Me.商品名 9 Me.販売日1 = Me.販売日 10 End If 11End Sub

これで、販売情報を入力すると自動的に出荷情報に商品名と販売日が追加されます。

投稿2021/11/30 02:03

hatena19

総合スコア33795

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mnbwqz

2021/12/01 00:48

無事動作しました。ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問