[ACC2] フォームのレコードセットをすべて削除した時の動作

現象

現象

[規定の入力モード / DefaultEditing] プロパティを 「レコードの追加禁止」 に設定したフォームを作成します。フォーム フッターにコマンド ボタンを配置し、 [クリック時/OnClick] プロパティに、下記のプロシージャを作成します。プロシージャでは、フォームのレコードセットからすべてのレコードを、Delete メソッドを使用して削除します。
フォームビューから、コマンド ボタンをクリックしてレコードセットのレコードをすべて削除すると、フォーム上に配置しているコントロールが、マウスで選択できなくなります。

  ----------------------------------------------------------
  Sub ボタン 0_Click()
      Dim rs As Recordset
      Set rs = Me.RecordsetClone
      For i = 1 To rs.recordcount
          rs.MoveFirst
          rs.Delete
      Next
  End Sub
  ----------------------------------------------------------

原因

レコードの追加を禁止したフォームに対して、レコードセットのレコードを Delete メソッドで削除した場合、すべてのレコードが削除されると、上記現象が発生します。

回避方法

レコードの削除を実行する際、モジュールではなく、マクロのアクションを使用します。 マクロのサンプル：

  ●マクロを作成する場合
    アクション     アクションの引数
    メッセージの設定   メッセージの表示： [いいえ]
    メニューの実行     メニューバー： [フォーム]、メニュー名： [編集]、
                       コマンド： [レコードの選択]
    メニューの実行     メニューバー： [フォーム]、メニュー名： [編集]、
                       コマンド： [削除]
  ●同じ動作をモジュールで DoCmd を使用して行う場合
  --------------------------------------------------------------------------
  Sub ボタン 0_Click()
    DoCmd メニューの実行 A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A
    _MENU_VER20
    DoCmd メニューの実行 A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20
  End Sub
  --------------------------------------------------------------------------