Private Sub  cmb_区分_LostFocus()

Select Case Me.cmb_区分
Case 1
  Me.Txt_摘要.IMEMode = acImeModeOff
Case 2
  Me.Txt_摘要.IMEMode = acImeModeHiragana
End Select

End Sub