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

  With Me!txtData
    Select Case Me!fraProperty
      Case 1
        '一般モードに設定
        .IMESentenceMode = 0
      Case 2
        '人名/地名モードに設定
        .IMESentenceMode = 1
      Case 3
        '話し言葉優先モードに設定
        .IMESentenceMode = 2
    End Select
  End With

End Sub