購入伝票追加不具合

最初の頃に作成した購入伝票入力フォームです。

ごく普通に使えていたのですが、めったにやらない処理をしたら、不具合が見つかりました。

一件入力ごとに、仕訳表への登録をして、終了しています。

当日でなくても処理可能なように、購入日を指定できるようにしていますが、複数の伝票を貯めて、購入日を過ぎてから処理しようとしたら、最後の伝票の日付だけは、購入日ですが、それ以外は、今日の日付で登録されてしまいました。

【修正前】

    Me.購入日 = Date
　　・
　　・
　　・
    StrSQL = "INSERT INTO T_購買伝票 ( ID, 日付 ) "
    StrSQL = StrSQL & "VALUES('" & koubai_ID & "',#" & Format(Date, "yyyy/mm/dd") & "#);"
    DoCmd.RunSQL StrSQL, True

【修正後】
   Me.購入日 = Date　が不用でした。

追加レコードの挿入前に、フォームの日付欄に、今日のデータを入れていました。

見つけられて良かったです。どこで日付が変わっているか、絞り込むのに半日掛かってしまいました。