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

  With Me!txtData
    'このプロパティを設定する場合はまずフォーカスを移動
    .SetFocus
    Select Case Me!fraProperty
      Case 1
        '２文字分を範囲選択
        .SelLength = 2
      Case 2
        '７文字分を範囲選択
        .SelLength = 7
      Case 3
        '入力文字全体を範囲選択
        .SelLength = Len(.Text)
    End Select
  End With

End Sub