Access2016で2つのフォームを特定フィールドで連結するにはどうしたらよいでしょうか

Question

Access2016のフォームの作成方法について教えて下さい。

TableA

購入No　購入者　住所

１　　　河合　　AAA

２　　　大木　　BBB

３　　　山本　　CCC

TableB

No       購入No　　品名　　　数量

１　　　２　　　　ボトル　　２

２　　　２　　　　スポンジ　３

のようなテーブルで購入Noでリレーションされています。

このとき１つのフォームでTableAを親(単票フォーム)に、TableBをサブフォーム(帳票フォーム)とし、リンク親・子フィールドに購入Noを設定すれば、サブフォームの新規レコードを入力したとき、自動的にTableBの購入Noに、関連するTableAの購入Noがセットされると思います。

これと同様のことを２つのフォーム間で設定する方法はありますでしょうか。

TableAがデータソースとなっているフォームA(帳票フォーム)にボタンをセットし、ボタンを押すとTableBをデータソースとしているフォームB(帳票フォーム)が開き、フォームBの新規レコードを入力すると呼び出し元のTableAの購入Noがセットされる、ということをしたいです。

現状ではフォームBを開く際に、VBAのOpenArgsに呼び出し元の購入Noをセットし、フォームBのデータの更新後イベントで

TableB.購入No = me.OpenArgs

として、TableAとTableBをリンクさせています。

一応やりたいことはできているのですが、Accessの標準の機能でもっとシンプルに２つのフォーム間で購入Noをリンクさせる方法はないでしょうか。

わかりにくい文章になってしまい申し訳ありませんが、ご教授のほどお願いいたします。

Answer 1

> TableAがデータソースとなっているフォームA(帳票フォーム)にボタンをセットし、

> ボタンを押すとTableBをデータソースとしているフォームB(帳票フォーム)が開き、

> フォームBの新規レコードを入力すると呼び出し元のTableAの購入Noがセットされる、

> ということをしたいです。

[フォームB]側の[購入No]（をコントロールソースとするテキストボックス）に関しては、

何らかの設定（[可視]プロパティ, [使用可能]プロパティ, [編集ロック]プロパティなど）

により、ユーザーが直接編集出来ないようにされているのでしょうか。

> 一応やりたいことはできているのですが、Accessの標準の機能で

> もっとシンプルに２つのフォーム間で購入Noをリンクさせる方法は

> ないでしょうか。

[フォームA]のコマンドボタンのクリック時に開くフォームを、

[フォームB]とするのではなく、以下のフォームとなされば

よろしいのではないでしょうか。

> １つのフォームでTableAを親(単票フォーム)に、

> TableBをサブフォーム(帳票フォーム)とし、

> リンク親・子フィールドに購入Noを設定

そしてその単票フォームを開く際に、[購入No]に対する Where条件式を

指定するようになさればよいはず。

> 現状ではフォームBを開く際に、VBAのOpenArgsに呼び出し元の購入Noをセットし、

> フォームBのデータの更新後イベントで

>

> TableB.購入No = me.OpenArgs

>

> として、TableAとTableBをリンクさせています。

あるいは[フォームB]の Load イベントが発生した際に

[購入No]をコントロールソースとするテキストボックスの

DefaultValue プロパティの値を設定するか。

Answer 2

sk.exe様いつもありがとうございます。

現状のシステムでは不可視のテキストボックスを作成し、親となる購入Noを代入しています。

確かに、何もないメインフォームを作成し、サブフォームで購入NoでリンクをさせたフォームをWHEREで開けばよかったですね。

これですごくすっきりしました。

本当にありがとうございます。