Accessフォームでの「非連結設計」のメリットと実装法【上級者向け】

こんにちは、なかぜんです。
Accessで本格的な業務システムを構築していると、「フォームの動作が重い」「一部のデータしか更新したくないのに全部ロックされる」といった悩みに直面すること、ありませんか？

今回は、そんな悩みを解消できる「非連結フォーム設計」についてご紹介します。業務システムに柔軟性と安定性をもたらすこの設計手法、ぜひ習得しておきましょう！

非連結フォームとは？
1. 「連結」と「非連結」の違い
2. なぜ非連結設計を使うのか
非連結フォームの実装方法
注意点とよくあるミス
応用ポイント：複数フォーム連携や一時保存
まとめ：非連結設計でAccessフォームをもっと自由に

非連結フォームとは？

「連結」と「非連結」の違い

Accessのフォームには、コントロールをテーブルやクエリと「連結」させて自動的にデータを反映させる方法が一般的です。一方、「非連結」フォームは、データソースを持たず、すべての入力・出力・更新処理をVBAコードで制御します。

なぜ非連結設計を使うのか

パフォーマンスの向上（特に大量データ環境）
複雑な入力制御やバリデーションの実現
トランザクション処理による整合性確保
同時編集・ロック競合のリスク低減

非連結フォームの実装方法

フォームの構造設計

データを直接表示するサブフォームなどは使わず、主にテキストボックスやコンボボックスを配置します。フォームの「レコードソース」プロパティは空にしておくのが基本です。

VBAでのロード処理

' 初期表示処理（データ読込）
Private Sub Form_Load()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM T_顧客 WHERE 顧客ID = 1")

    If Not rs.EOF Then
        Me.txt顧客名.Value = rs!顧客名
        Me.txt電話番号.Value = rs!電話番号
    End If

    rs.Close
    Set rs = Nothing
End Sub

解説：
フォーム読み込み時に必要なレコードをDAOで取得し、コントロールに手動で値を設定しています。これにより、不要なレコードの読込やロックが発生しません。

保存処理の実装

' 保存ボタンでデータ更新
Private Sub btn保存_Click()
    Dim strSQL As String
    strSQL = "UPDATE T_顧客 SET 顧客名 = '" & Me.txt顧客名 & "', 電話番号 = '" & Me.txt電話番号 & "' WHERE 顧客ID = 1"
    CurrentDb.Execute strSQL, dbFailOnError

    MsgBox "保存しました！", vbInformation
End Sub

解説：
ボタンを使って明示的にUPDATE文を発行しています。ユーザーが意図したタイミングでのみデータが更新されるので、ミスや誤操作の防止にもつながります。