Access2010で教えて下さい。

質問

Access2010で教えて下さい。

１．フィールドの値が更新されたときに、別のフィールドも更新したい。

■果物マスタテーブル
《果物名》《産地》《金額》
りんご　　　青森産　１００円
なし　　　　鳥取産　８０円
すいか　　　千葉産　１００円

■買物リストテーブル
《果物名》《産地》《金額》

買物リストテーブルでの果物名フィールドでルックアップを使って果物名を選んだときに、産地と金額も自動で入るようにしたいのですが、どのようにすればよろしいでしょうか？

２．値が無い場合に追加したい

前と同じ例で、買物リストテーブルの果物名フィールドに「いちご」と入れた場合、自動的に果物マスタテーブルに「いちご」が追加される方法はないでしょうか？
また、その際に果物名だけでなく、産地や金額も自動で追加されるとうれしいです。POPアップで入力フォームが出てくるとか、できませんでしょうか？

よろしくお願い致します。

回答No.1

layy · ベストアンサー

http://office.microsoft.com/ja-jp/access-help/HA010163773.aspx#BM1

古いバージョンしかないので、以下参考レベルです。

仮に、
とあるフォーム上でボタン押すことで値取得するなら下記の感じです。
DLOOKUP使うかして存在チェックができますが、参考になればと思います。

'「りんご」入力した後で
'コマンド1を押すことで、産地に「青森産」、金額に「１００」をセットさせる。

Private Sub コマンド1_Click()
Dim r As Variant '戻り値
Dim r2 As Variant '戻り値

'「フォームの買い物果物名＝テーブルの果物名」となっているレコード（＝りんご）を特定し取得し
'そのレコードの産地フィールドの値を取得

r = DLookup("[産地]", "TBL果物", "[果物名]=" & Chr(39) & Forms![買い物]![買い物果物名] & Chr(39))

If Len(r) > 0 Then
'そのレコードの金額フィールドの値を取得

r2 = DLookup("[金額]", "TBL果物", "[果物名]=" & Chr(39) & Forms![買い物]![買い物果物名] & Chr(39))

Forms![買い物]![買い物産地] = r
Forms![買い物]![買い物金額] = r2

Else

'ヒットしないときの処理（→入力フォーム）

End If

End Sub

お礼

遅くなりましたが、回答有り難うございました。
DLookupというのを使用するようですね。
検索でも引っかかってはいたのですが、
確信が持てなかったので、こちらで伺いました。

DLookupについても調べてみます。

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