皆様、こんにちは。Access VBA講師の佐藤です。
Access開発において、テーブルを直接フォームに紐付ける「連結フォーム」は非常に便利ですが、実務で複雑な業務システムを組む際、意図しないデータの更新や、入力チェックの難しさに頭を悩ませたことはありませんか？今回は、あえてフォームをテーブルに紐付けず、ADO（ActiveX Data Objects）を使ってデータを追加する手法を伝授します。
なぜ「非連結フォーム」を選ぶのか
連結フォームは便利ですが、ユーザーがレコードを移動するだけでデータが保存されてしまったり、入力途中のエラー制御が複雑になったりすることがあります。一方、非連結フォームでADOを使用すれば、「保存ボタンを押すまでデータベースに一切触れない」という仕組みを構築できます。これにより、データの整合性を担保し、誤入力を防ぐための厳密なバリデーションが可能になります。
ADOを使ったデータ追加の基本コード
ADOを使ってデータを追加する際は、Recordsetオブジェクトを開き、AddNewメソッドを使用します。以下に実務で使える簡潔なコード例を挙げます。
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open “T_受注管理”, cn, adOpenDynamic, adLockOptimistic With rs .AddNew !受注日 = Me.txt受注日.Value !顧客名 = Me.txt顧客名.Value !金額 = Me.txt金額.Value .Update End With rs.Close Set rs = Nothing Set cn = Nothing
実務で差がつく3つのポイント
1. トランザクションの活用
複数のテーブルに同時にデータを書き込む場合、途中でエラーが起きるとデータが不整合になります。BeginTransとCommitTransを組み合わせることで、全て成功した時のみ保存する安全な処理が実現できます。
2. 入力チェックの分離
ADOで書き込む前に、関数化されたチェックロジックを通すようにしましょう。「日付が妥当か」「必須項目が空ではないか」をVBA側で完全に制御できるため、ユーザーにストレスを与えない洗練されたUIを提供できます。
3. エラーハンドリングの徹底
ネットワークの切断や排他制御（レコードロック）の問題が発生した際、On Error GoTo文で適切に捕捉してください。エラーメッセージをユーザーに分かりやすく表示するだけで、システムの信頼性は劇的に向上します。
まとめ
非連結フォーム＋ADOの組み合わせは、実装の手間は少し増えます。しかし、大規模なシステムや、複数のユーザーが同時に操作する環境においては、「予期せぬ動作を排除する」という点で最高のパフォーマンスを発揮します。
まずは小さな入力画面から、ぜひこの手法を取り入れてみてください。あなたの開発スキルが、また一段上のレベルへ引き上げられるはずです。それでは、次回の講義でお会いしましょう。
