サブフォームに同一の納品日を自動的に入力したい

質問

XP&ACCESS2003：
メインフォーム／サブフォーム形式のフォームで、受注番号で連結しています。
メインフォームが受注、サブフォームが受注明細です。（１対多）
メインフォームには「次のレコード」に進むボタンをつけ、クリックにより次のレコードが表示されます。（従って、サブフォームも次の受注の明細に移動します）
複数のレコードを持つサブフォームの納品日（受注明細の納品日フィールドに連結）の最初の一件に日付を入力し、メインフォームの「次のレコード」に進むボタンをクリックした時、１件前の受注明細の納品日を入力していない他の（２件目以降）のレコードにも同一の納品日を自動的に入力できる方法がわかりません。よろしくお願いします。

回答No.1

noname#22222 · ベストアンサー

納品日の既定値に最初の入力を反映させるには？という質問でしょうか？

納品日が更新された時に発生するイベントに

　　If Len(Me.納品日 & "") <>0 Then
　　　　Me.納品日.DefaultValue=Me.納品日
　　End If

で宜しいかと！

回答No.2

O_cyan

簡単にやるには納品日のコントロールの更新後処理に

Private Sub 納品日_AfterUpdate()
Me!納品日.DefaultValue = Me!納品日
End Sub

のようにすればセット出来ます。

補足

すいません。うまくいきません。サブフォームには移動ボタンがついており、移動ボタンで次のレコードに進んでも、何も表示されません。（エラーメッセージも出ません）
また、よくわかりませんが書式が違うのかもしれません。書式は連結しているテーブルでは、日付型（S）、フォーム上では、「納品日」テキストボックスの書式プロパティ「yyyy/mm/dd」です。