Accessで日付と金額を自動入力する方法

質問

Access2003/2007で会費集金記録を作っています。
フォームでの入力作業を簡単にするために悩んでいます。

会員ごとの単票形式のフォームを作り、下記のように入力フィールドを作成しました。
メインフォーム:[会員ID] [会員名] [会費額]
サブフォーム:[会員ID] [入金確認] [入金日] [入金額]　※[入金確認]はチェックボックス

サブフォームの[入金確認]をクリックしてオンにすると、[入金日]にその日の日付、 [入金額]にメインフォームの[会費額]の数値が自動的に入るようにすることはできますでしょうか?
毎月数千件の日付や金額を都度入力しており、なんとか自動化したいのです。

会費の入金日はバラバラなので、次にフォームを開いたときに、すでに入力済みの日付が更新されるとまずいのと、会員によって分割入金の方がおられるので、場合によって、自動入力された金額を修正することがあります。

クリック時のイベントプロシージャに構文を入力する方法で、どなたお教えいただけませんでしょうか。

回答No.1

30246kiku · ベストアンサー

入金確認の更新後処理で、

If (Me.入金確認 = True) Then
　　Me.入金日 = Date
　　Me.入金額 = Me.Parent.会費額
End If

入力が新規レコードなのであれば、入金日の既定値を =Date() にしておくことで、上記代入は要らなくなります。

Me.入金確認 が False のときの処理は、盛り込んでみてください。

お礼

30246kikuさま
ありがとうございました。
お教えいただいた方法で、きちんと表示されました。
これで劇的に楽ができるようになります。
本当にありがとうございました。