Microsoft Access 掲示板

お世話になります。
テーブル作成クエリの「Q_勤怠詳細_t」をフォームを閉じるときに実行することができ目的を達成することができました。
しかしながら
Private Sub Form_Load()
    Me.日付.DefaultValue = "#" & Format(Date, "yyyy/mm/dd") & "#"
    DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub 社員ID_AfterUpdate()
    Me.社員ID.DefaultValue = Me.社員ID
End Sub

Private Sub 日付_AfterUpdate()
    Me.日付.DefaultValue = "#" & Format(Me.日付.Value, "yyyy/mm/dd") & "#"
End Sub

を記述したところ フォームを開くとエラーが出てしまいます。

一度、VBAの記述などをチェックしていただけますでしょうか？

ほぼほぼ最終地点に到達させていただいております。
ご教授よろしくお願いします。

ファイル Demo5 に更新します。