こんにちは！エンジニアリングの世界へようこそ。
Accessを使ったシステム開発をしていると、ユーザーから「また数値を入れる欄に全角で入力しちゃってエラーが出たよ…」なんて嘆きを聞くこと、ありませんか？
人間は誰しもうっかりミスをする生き物です。だからこそ、システム側で「数値を入れる場所には半角しか入らないようにする」といったUI/UXの配慮をしてあげるのが、ワンランク上のプログラマの仕事です。
今回は、テーブルのフィールドにある「IME入力モード」をVBAで自在にコントロールし、ユーザーの誤入力を根本から断つ極意を伝授します。ここをクリアすれば、Access VBAのテーブル操作の基本はバッチリですよ！一緒にマスターしていきましょう！
—
1. なぜ「IME入力モード」の制御が必要なのか？
Accessのテーブル設計において、例えば「電話番号」「社員ID」「金額」といった数値・コード系のフィールドを作るとき、デフォルトのままだと、ユーザーがキーボードを叩いたときに日本語入力（漢字や全角数字）がオンになってしまうことがあります。
これを一件一件、画面（デザインビュー）を開いてポチポチ設定するのは、管理するテーブルやフィールドが増えるほど苦行ですよね。さらに、後から「あ、全フィールドの見直しが必要になった」となったときには発狂モノです。
だからこそ、VBAを使ってコード一発で一括制御・自動化するのです。
—
2. IMEModeプロパティの正体を知る
VBAからテーブルのフィールドを操作するには、DAO（Data Access Objects）というAccessの根幹を支えるデータベースエンジンを使います。
フィールドオブジェクトには `IMEMode` というプロパティがあり、ここに特定の数値を代入することで、入力モードを強制的に切り替えることができます。
主な設定値は以下の通りです：
- 0: なし（直前の状態を引き継ぐ）
- 1: 入力モードオフ（半角英数） ＝ ★今回一番使う主役！
- 2: ひらがな
- 3: 全角カタカナ
- 4: 半角カタカナ
- 7: 全角英数
数値項目には基本「1（入力モードオフ）」を指定し、強制的に半角を強いるのが鉄則です。
—
3. 【実践】全数値フィールドのIMEを「オフ」にする魔術的コード
それでは、実際に動かせる実用的なコードを見てみましょう。
このコードは、指定したテーブル内のすべてのフィールドをスキャンし、データ型が数値（Long型など）のフィールドを見つけたら、自動的にIMEモードを「オフ（半角英数）」に書き換えるプログラムです。
開発環境の標準モジュールなどに貼り付けて実行してみてください。
Sub ForceDisableIMEModeForNumbers()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim targetTableName As String
‘ 対象となるテーブル名を指定してください
targetTableName = “M_社員マスター”
‘ データベースオブジェクトを取得
Set db = CurrentDb
On Error GoTo ErrorHandler
‘ テーブル定義を取得
Set tdf = db.TableDefs(targetTableName)
‘ テーブル内の全フィールドをループ処理
For Each fld In tdf.Fields
‘ デバッグ用：イミディエイトウィンドウにフィールド名と型を表示
‘ Debug.Print fld.Name & ” : ” & fld.Type
‘ フィールドのデータ型が「長整数型(Long)」や「数値型」の場合を判定
‘ ※dbLong = 4, dbInteger = 3, dbCurrency = 5, dbDouble = 8 など
Select Case fld.Type
Case dbInteger, dbLong, dbSingle, dbDouble, dbCurrency, dbDecimal
‘ IMEModeプロパティが存在するか確認してから設定
‘ （※テキスト型や数値型以外の特殊な型ではエラーを防ぐため）
fld.Properties(“IMEMode”) = 1 ‘ 1: 入力モードオフ（半角英数）
Debug.Print “【設定完了】 ” & fld.Name & ” のIMEを「オフ」にしました。”
Case Else
‘ 数値以外はスキップ
End Select
0 Next fld
MsgBox “テーブル「 ” & targetTableName & ” 」の数値フィールドのIME設定を最適化しました！”, vbInformation, “完了”
CleanUp:
‘ オブジェクトの解放（メモリリークを防ぐプロの作法）
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
Exit Sub
ErrorHandler:
‘ 【重要】IMEModeプロパティがまだ作成されていない場合のハンドリング
If Err.Number = 3270 Then ‘ 3270: プロパティが見つからない
Resume Next
Else
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End If
End Sub
—
4. コードの深掘り解説：ここがエンジニアのこだわりポイント
初心者の方が「おっ」と思うポイントや、現場で役立つテクニックをいくつか解説します。
① プロパティの存在チェック（エラー 3270 対策）
Accessのフィールドは、新しく作った直後だと `IMEMode` などのカスタムプロパティが実体として存在しない（物理的にプロパティの箱がない）ことがあります。
そのため、存在しない箱に値を入れようとすると、Accessは容赦なく「エラー 3270（プロパティが見つかりません）」を吐いて止まります。
上記のコードでは、`On Error GoTo ErrorHandler` を使って、「もしプロパティがなければ（エラー3270なら）、エラーを無視して進む（Resume Next）」という、現場で必ず役立つ防御的プログラミング（ディフェンシブ・プログラミング）を実装しています。
② メモリのクリーンアップ
最後に `Set fld = Nothing` などを記述しています。Access VBAでは、オブジェクト変数を最後に明示的に解放しないと、目に見えないメモリのゴミ（リソースリーク）が残り、長期間稼働するシステムで動作が不安定になる原因を作ります。
「使ったものは片付ける」、これが一流の証です。
—
5. 陥りやすい罠とアドバイス
最後に、このコードやIMEMode制御を扱う上で、よくある落とし穴をお伝えしておきます。
- リンクテーブルには使えません
このDAOを使ったテーブル定義の変更（TableDefs）は、ローカルテーブル（自ファイル内にあるテーブル）に対してのみ有効です。SQL ServerやSharePoint、他のAccessファイルなどにある「リンクテーブル」に対して実行しようとすると、「更新可能ではありません」といったエラーになります。バックエンド側のテーブル構造そのものを変更するか、あらかじめローカル側で設計を固めておきましょう。
- フォームのコントロールも確認しよう
テーブル側でIMEを「オフ」に設定しても、フォーム側のテキストボックス個別に「IME入力モード：漢字」などの上書き設定がされていると、フォーム側が優先されることがあります。テーブルとフォーム、両面で「数値を入れる場所は半角」という意識を統一させましょう。
—
おわりに
いかがでしたでしょうか？
「フィールドのプロパティをVBAで自在にいじる」という感覚が掴めると、Access開発のスピードとクオリティは爆発的に向上します。何十個、何百個もあるフィールドの設定をコード一発で完了させたときの爽快感は、エンジニアの醍醐味そのものです。
「ここをクリアすれば、Access VBAの基本はバッチリですよ！」
ぜひあなたの開発現場でもこのテクニックを取り入れて、ユーザーに愛される快適なシステムを作ってみてくださいね。それでは、次のステップへ進みましょう！
