【ACCESS】フォーム上で検索して複数代入するには?
ACCESS2003、初心者です。
医療事務のデータベースを作っています。
tbl薬剤等製品のテーブルに
製品番号、製品名、販売元、製造番号
などがあります。
フォーム上でコンボボックス(製品番号)から、tbl薬剤等製品の製品名、製造元、販売元、製造番号を抽出してテキストボックスに代入したいのです。
下記のようなコードで代入できたのですが、これだと処理が重い気がします。スマートなコードじゃないですよね?
Private Sub 製品番号_Change()
[製品名].Value = DLookup("[製品名]", "tbl薬剤等製品", "[製品番号] = '" & Forms![frm接種記録]![製品番号] & "'")
[製造元].Value = DLookup("[製造元]", "tbl薬剤等製品", "[製品番号] = '" & Forms![frm接種記録]![製品番号] & "'")
[販売元].Value = DLookup("[販売元]", "tbl薬剤等製品", "[製品番号] = '" & Forms![frm接種記録]![製品番号] & "'")
[製造番号].Value = DLookup("[製造番号]", "tbl薬剤等製品", "[製品番号] = '" & Forms![frm接種記録]![製品番号] & "'")
End Sub
もっと簡単に代入できるコードの書き方はありますでしょうか?
お礼
ありがとうございます。 補修のコツなども書いてあってとても役立ちそうです。