InputBoxのIMEモードの指定方法

AccessのInputBoxで、入力時のIME操作を指定する方法をググってみたのでメモ。
InputBoxを表示する直前にIME入力モードを設定したテキストボックスに一旦移動させることで、IMEを指定したモードに変更できるらしい。

前提

  • フォームにテキストボックス「txt_IME」を配置。
    • プロパティで「IME入力モード」を任意のIMEモードに指定。
      • ただし半角英数は「オフ」じゃないと変換が必要な状態になるので注意。

ソース

Dim strUNIT As String

'InputBox表示前にIME入力モードを設定したテキストボックスに一旦移動させることでIMEを切る。
Me.txt_IME.SetFocus
strUNIT = InputBox("入力してください。", "入力")