Access学習メモ 3-5. 根っこは同じ&バックアップを
勤務先にてMicrosoft365を使用しており、ちびメカ自作のOutlookメール生成Accessアプリが月1回限定でこっそり活躍中。先日、もともと使用中の事業所マスタ(Accessフォーム)をコピーし、メール取引のない事業所用として別フォームを新たに設け、不要なレコードを削除。ななんと片方のフォームからも当該レコードがきれいに消失していた!肝を冷やした(゚д゚lll)さいわいバックアップをとる習慣をつけているので、大事には至らなかったが、うかつだったと反省した。見た目は別々のフォームでも、同じテーブルを参照する以上、根っこは同じ。うっかり消してしまった場合もデータが保護されるよう、バックアップ用の作業テーブルを作っておくことを思いついた。バックアップ用テーブル運用の準備作業(私用ファイルで検証)① 元テーブルと同じ構成のバックアップ用テーブルを用意②「元のテーブル(配信テーブル)」にて、ユーザーが指定した話数レコードを「保存用テーブル(配信テーブル_バックアップ)」に移籍VBAによるINSERT → DELETE → RequeryPrivate Sub Cmd_削除_Click() ’エラーが発生したら、処理を中断して ErrHandlerラベル位置へジャンプ On Error GoTo ErrHandler Dim db As DAO.Database Set db = CurrentDb ' 指定したテーブル/フィールドのレコードを抽出し、保存用のバックアップテーブルへコピー開始 db.Execute _ "INSER
0