Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  With Me
    Select Case !fraProperty
      Case 1
        '削除を許可する
        .AllowDeletions = True
      Case 2
        '削除を許可しない
        .AllowDeletions = False
    End Select
  End With

End Sub