編集不可でフォームを開きたい

オートナンバーの「番号」と数値型の「編集」というフィールドをもつテーブルを元にメインフォームを作成し、「日付」「項目」リンク用の「番号」というフィールドを持ったテーブルをもとにサブフォームを作成しました。 　このとき、ある条件を与えることで、サブフォームの編集をできなくしたいという希望があったので次の方法を考えてみました。

フォームにコンボボックス「編集」を配置し、数字の「1」か「2」を選べるようにする そして選んだデータはメインテーブルの「編集」に保存される。 フォームを開いた時に「1」だったらサブフォームを「編集可」に、「2」だったら「編集不可」にする。 フォームを開く時のイベントプロシージャを次のように記述します。

Private Sub Form_Open(Cancel As Integer) If Forms!メインフォーム!.編集 = 2 Then Me!サブフォーム.Enabled = no Me!サブフォーム.Locked = yes End If End Sub