AddDataのコードには、レコードを追加したら、(追加を確定する為に)更新すると書いてあるので、
確認メッセージ「●件のレコードが更新されます」が出るのは、正常に見えます。
2件のレコードを編集する流れで、●●●件、つまり、3桁のレコードを変更する確認メッセージが出るならば、異常と考えて、例えば、For〜Next処理をdebug.printしてみるか、上記以外のコードを見直す感じでしょうか。
通報 ...
AddDataのコードには、レコードを追加したら、(追加を確定する為に)更新すると書いてあるので、
確認メッセージ「●件のレコードが更新されます」が出るのは、正常に見えます。
2件のレコードを編集する流れで、●●●件、つまり、3桁のレコードを変更する確認メッセージが出るならば、異常と考えて、例えば、For〜Next処理をdebug.printしてみるか、上記以外のコードを見直す感じでしょうか。
ありがとうございます。
コードを見直すということですが、1つ気になっているのが、自分の環境だと全くエラーが出ないのに、他の環境だとエラーが出ることです。
他の部分でも同じようなことが起こらないかと危惧しています。
これはどういった原因が考えられるでしょうか?
他の人は、旧バージョンを開いているとか?
とりあえず「●●●件のレコードが更新されます」を試しに実行して、テーブルの中身を確認しましょう。全件削除実行からの一連の流れなので、何か問題が起きれば、手動全件削除で元に戻せますよね。
前回のデータが残っているなら、全件削除のコードを比較。ループデータが残っているなら、For 〜Nextの中で、datasやrs(j)をdebug.printを比較。
確認メッセージが出る出ないは、DoCmd.SetWarningsのコードがどこかにありませんか?
確認した結果を教えてくれると、嬉しいな。
ありがとうございました!
>確認メッセージが出る出ないは、DoCmd.SetWarningsのコードがどこかにありませんか?
こちらを参考に、改めて確認したところ
自分の環境では確認メッセージを出さないように設定しており、
他の環境では設定してもらうか、マクロ、VBAでの制御が必要と知りました。
VBAで制御したところ、メッセージが出なくなりました。
大変助かりました。ありがとうございました。
同じ悩みの方のため、参考サイトのリンクを貼っておきます。
AccessVBAでクエリ実行時の確認メッセージを完全に非表示にする方法