【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

もっと簡単に代入できるコードの書き方はありますでしょうか？

回答No.2

snoopy64 · ベストアンサー

[製品名].Value = rs.製品名
　　　↓
[製品名].Value = rs!製品名

これでどうでしょうか。
頑張ってくださいヽ(^。^)ノ

お礼

[製品名].Value = rs!製品名
に変えたらうまくいきました！！

何度もありがとうございます。
本当に感謝しています。

回答No.1

snoopy64

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl薬剤等製品", dbOpenDynaset)
rs.FindFirst "製品番号 = '" & Forms![frm接種記録]![製品番号] & "'"
[製品名].Value = rs.製品名
[製造元].Value = rs.製造元
[販売元].Value = rs.販売元
[製造番号].Value = rs.製造番号
rs.Close
Set rs = Nothing

頑張ってくださいヽ(^。^)ノ

補足

前回に続き、早速の回答ありがとうございます。

回答頂いたコードを実行してみましたが、
「コンパイルエラー
　メソッドまたはデータメンバが見つかりません。」
となり、
[製品名].Value = rs.製品名の.製品名の部分が灰色になっています。

どうしたよいのでしょうか？