レコード更新時にデータ値を自動入力したい

質問

たびたびすみません。また詰まってしまったので教えていただけませんでしょうか。
Accessでレコード更新時にある項目に自動的に値を代入したいです。
前提としてテーブルは消費者マスターと単価マスターがあります。
単価マスターはフィールドとして単価ランク（主キー）と単価（通貨型）があります。
消費者マスターのレコードをフォームを使って編集する際に単価ランクをキーに
単価マスターから単価を引っ張ってきて　料金　というフィールドに代入して画面に表示し、
必要に応じて　料金　を画面から変更する形にしたいと考えてます。
どのように指定すればよいでしょうか？
それからこれは別の質問にした方がいいかもしれませんが、差し支えなければ
教えて下さい。
レコードの更新の際に　更新日　というフィールドに当日日付を自動的に代入したいのですが
どうすればいいでしょうか？

回答No.2

hatena1989

> 該当フォーム上の単価ランクのプロパティシートの更新後処理の欄に教えていただいた
> 式をいれてみましたが、うまくいきませんでした。

ひょっとすると更新後処理の欄に直接コードを記述したのかな。

更新後処理にイベントプロシージャとして関連づけるには、下記の手順で。

更新後処理のドロップダウンリストから [イベント プロシージャ] を選択。
右端のビルドボタン[...]をクリックする。
VBAウィンドウが開き、下記のように表示されるので、

Private Sub 単価ランク_AfterUpdate()

End Sub

真ん中の行に下記のようにコードを記述します。

Private Sub 単価ランク_AfterUpdate()
Me.料金=DLookup("単価","単価マスター","単価ランク=" & Me.単価ランク)
End Sub

二つ目についても、イベントプロシージャが下記のようになるようにしてください。

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.更新日 = Date()
End Sub

補足

懇切丁寧なご説明ありがとうございます。超初心者の私には大変ありがたいです。
イベントプロシージャなるものの存在もわかり一歩前進できました。
それで結果ですが申し訳ないですが、うまくいきませんでした。
それで昨日、今日と私なりに試したことを報告しますので、どこが悪かったか
指摘していかだけませんでしょうか。
一つ目ですが、どんな値が入っているか調べようと思い、
テキストボックスを作成し、そのコントロールソースに直接
　= DLookup("単価","単価マスター","単価ランク=" & Me.単価ランク)
と指定したのですが、後ろの部分が自動的に [Me].[単価ランク] にされてしまい
うまくいきませんでした。
それでDLookup関数を調べ
　= DLookup("[単価]", "単価マスター", "[単価ランク]=" & [Forms]![frm結果入力]![単価ランク])
と指定したところテキストに単価の数値が入りました。
そこでイベントプロシージャに
　　Private Sub 単価ランク_AfterUpdate()
　　Me.料金=DLookup("[単価]", "単価マスター", "[単価ランク]="
　　& [Forms]![frm結果入力]![単価ランク])
　　End Sub
あるいは
　　[Forms]![frm結果入力]![料金] = DLookup("[単価]", "単価マスター", "[単価ランク]="
　　& [Forms]![frm結果入力]![単価ランク])
と指定してみたのですが、うまくいきませんでした。
情報不足かと思いますが、わかる範囲で教えていただけませんか。

それから二つ目ですが　Me.更新日 = Date()　と入力したのですが
() が自動的に消されて　Me.更新日 = Date　となってしまい
うまくいきませんでした。