Accessについて教えて下さい。

質問

Access初心者です。
フォームのクリック時のイベントで開いた別のフォームを、サブフォームのリンクフィールドように、リレーションの項目を入力しなくてもテーブルに反映させるにはどうしたらいいのでしょうか？

今現在の状況は
テーブルは顧客リスト、送付物、問合せがあり顧客IDでリレーションになっています。フォームはそれぞれ作りました。
メインフォームは顧客フォームで問合せのサブフォームが組み込まれています。送付物フォームはボタンでクリック時開くようマクロで作成しました。where条件は[顧客ID]=[Forms]![顧客リスト]![顧客ID]となっています。
例えば手紙を送ることになり、顧客フォームで該当者を選択→ボタンをクリックし送付物フォームを開く
→顧客IDを入力→その他必要事項を入力というかんじです。
顧客IDを入力しないと『フィールド顧客IDとキーが一致しているレコードをテーブル顧客リストで探すことはできません』とエラーになります。
問合せのサブフォームは顧客IDでリンクフィールドとなっています。
ID表示が必要ないので顧客IDは消してあります。
こちらは顧客フォームで該当者を選択し、顧客IDを選択しなくても入力すると問合せテーブルに顧客IDも反映されています。

問合せのように送付物にも顧客IDを選択しなくても反映させるようにするにはどうしたらよいでしょうか？
説明がわかりづらいとは思いますが、お分かりになる方よろしくお願い致します。

回答No.3

hatena1989 · ベストアンサー

> 教えて頂いたようにプロパティを設定しましたが、やはり顧客ＩＤの入力が必要でした。

当方のサンプルでは問題なく 顧客ID が自動で入力されてます。
メインフォームは開いたままにしてますよね。
フォーム名やフィールド名に間違いはないですよね。
もう一度確認してみてください。

とりあえず別の方法も提示しておきます。
VBAを使う方法になります。

フォームの「デーティ時」のイベントプロシージャを下記のように記述します。

Private Sub Form_Dirty(Cancel As Integer)
　　If　IsNull(Me.顧客ID) Then
　　　　Me.顧客ID = Forms!顧客リスト!顧客ID
　　End If
End Sub

お礼

何度もありがとうございます。
ご指摘頂きましたメインフォームを開いたままにしていなかったのが原因のようでした。
自動入力されるようになりました。
ＶＢＡまで記載して頂きありがとうございます。
大変助かりました。ありがとうございました。

回答No.4

chayamati

サブフォーム以外の処理としてはリンクされたフォームもありますが。
フォームウィザードの処理過程で添付のようにサブフォームが
リンクされたフォームを選択するステップがあります。

ただし、主フォームの基になっているテーブルと
リンクされたフォームの基になっているテーブル間で
１対N（1-∞）のリレーションシップが設定されていることが必須です。

>>テーブルは顧客リスト、送付物、問合せがあり顧客IDでリレーションになっています。

？１．送付物の中に顧客IDというフィールドがあるのですか
？２．送付物とはどのようなものですか、
　　　ある送付物は特定の顧客だけのもので、他の顧客とは無関係ということですか

お礼

ご回答ありがとうございます。
hatena1989様のやり方で解決できました。

回答No.2

chayamati

あなたの理屈にはこたえられません。ごめんなさい。

送り状(または納品書等）の類を作成したいのではありませんか
だとすると

顧客テーブルと送付物テーブルがあるものとして

(1)次の二つにテーブルを作成してください

１．送り状テーブル
．．ID オートナンバー
．．送り状No.
．．日付
．．顧客ID （顧客テーブルのiDをルックアップ)
．．

２．送り状サブテーブル
．．ID オートナンバー
．．送り状ID
．．送付物ID （送付物テーブルのiDをルックアップ)

(2)リレーションシップ設定
送り状テーブルと送り状サブテーブル間に
送り状テーブルのIDと送り状IDでリレーションシップを設定します。

(3)フォームの作成
フォームウィザードのナビに従って下さい
フォームの基になるテーブルは
１．送り状テーブル
２．顧客テーブル
３．送り状サブテーブル
４．送付物テーブル
です。
これに必要なフィールドを選択しますが、オートナンバー型の
フィールドは対象外です。
ウィザードにより、
１．送り状テーブルと２．顧客テーブルがメインフォームの基データ

３．送り状サブテーブル、４．送付物テーブルサブフォームの基データ
となります。

尚、メインフォームとサブフォームを別々に作成して後で繋ぐには
メインフォームのデザインビューで添付のように、隠れているツールを
表示し[サブフォーム・サブレポート]をフォームフッターにドラッグし
ナビに従います。

追伸マイフォームの基になるテーブルとサブフォームの基にるテーブル
が1対∞でリレーションシップが作成できることが前提です。

．．

お礼

ご回答ありがとうございます。サブフォームの作成できるので、サブフォームではなく作動させたかったので質問したのですが。。。

回答No.1

hatena1989

送付物フォームの「顧客ID」テキストボックスの「既定値」プロパティを下記のように設定しておけばいいでしょう。

=[Forms]!顧客フォーム[]![顧客ID]

補足

ご回答ありがとうございます。教えて頂いたようにプロパティを設定しましたが、やはり顧客ＩＤの入力が必要でした。他に方法はございますか？ご存じでしたら教えて下さい。