アクセス フォームで同じ日にちを自動で入力させるには

質問

こんばんは。

アクセスで次のようなテーブルを作りました。
日　　　コード　　　工数（分）
5/2　　　12345　　　　30
5/2　　　15555　　　　20
5/2　　　13456　　　　50
5/3　　　13545　　　　100

このデータをフォームから入力させたいのですが、
同じ日付を何度も入力させるのが大変なので、
5/2　　コード　工数
　　　 コード　工数
1度入力しただけで、次のレコードにも同じ日付が入るようにしたいのです。

また、5/2を一つのレコード。
5/3を次のレコードと認識してくれ、画面が切り替わるようにしたいのですが、アクセスではどのようにすれば良いのでしょうか。
（コードは月により変化します。）

宜しくお願い致します。

回答No.1

nda23

フォームの「日」の更新後処理に以下のコードを記述します。
Dim V
V = Me.日.DefaultValue
If Not IsNull(V) Then
　　V = CDtae(V)
　　Me.日.DefaultValue = Format(V, "\#M/D\#")
End If