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

  Const cstrForm As String = "フォーム040View"

  Select Case Me!fraProperty
    Case 1
      'デザインビューで開く
      DoCmd.OpenForm cstrForm, acDesign
    Case 2
      'フォームビューで開く
      DoCmd.OpenForm cstrForm
    Case 3
      'データシートビューで開く
      DoCmd.OpenForm cstrForm, acFormDS
  End Select

  '現在のビューを表示
  Select Case Forms(cstrForm).CurrentView
    Case 0
      MsgBox "デザインビュー"
    Case 1
      MsgBox "フォームビュー"
    Case 2
      MsgBox "データシートビュー"
  End Select

End Sub