[Access VBA] サブフォーム上のレコードを挿入、削除する簡単なサンプル

Nov 15, 2020 · この記事は約2分で読めます · Access VBA 自作 ·

概要

作成動機は、
下記の記事で起こっていたカレントレコードなしエラー(エラー番号:3021)のケースが
サブフォームにおいても起こるかどうかを確かめたかったため。

サブフォームに対するレコード削除機能をもたせたテストファイルを作成した。

・・・結果は、サブフォームの場合ではエラーは起こらなかった。
しかし、上記サイト様のほうで

ただし、そのような処理をすると常に発生するわけではなく、
テーブル/クエリやフォームとのいろいろな条件が揃ったときに発生するようで、
かなり似た構成の作りであってもエラーが発生しないこともあります。
またAccessのバージョンやビルドなど一時的な問題の可能性もあります。

とあるように、たまたま私のオブジェクト構成・コードでは起こらなかっただけかもしれない。

せっかくなので、レコード挿入機能も追加し、
レコードを挿入、削除する簡単なサンプルコードを持つファイルとして作成し直した。

Windows10
MSOffice 2019

こんな感じ。

挿入サンプル

削除サンプル

詳細な動きは、ソースコードを参照ください。