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

  With Me!フォーム104_sub.Form
    Select Case Me!fraProperty
      Case 1
        '移動ボタンを表示しない
        .NavigationButtons = False
      Case 2
        '移動ボタンを表示する
        .NavigationButtons = True
    End Select
  End With

End Sub