【Access VBA極意】テーブル定義でIMEを制御せよ！入力ミスを未然に防ぐ「守りの設計」術
こんにちは。Accessの現場で数々のシステムを構築してきたアーキテクトです。
Accessを使っていると、ユーザーからこんな悲鳴を聞くことはありませんか？
「名前を入力するたびに全角/半角を切り替えるのが面倒だ」
「電話番号の欄に全角数字が入ってしまい、後で集計するときにエラーになる」
これらは、フォーム側の設定だけで解決しようとすると泥沼化します。「データが入る器」であるテーブルの段階で制御をかける――これが、堅牢なシステムを作るための「守りの設計」です。
今日は、VBAを使ってテーブルの「IME入力モード」を自由自在に操る技術を伝授します。
—
なぜ「テーブル定義」で制御するのか？
初心者のうちは「フォームの入力欄の設定でいいじゃん」と考えがちです。しかし、フォームは増えたり作り直したりするものです。
テーブル定義（TableDef）でプロパティを埋め込んでおけば、そのテーブルを基に作ったすべてのフォームや、直接テーブルを開いて入力する場合でも、一貫してIMEが制御されます。「データの入り口」を厳格化することこそ、バグを未然に防ぐ最大の近道なのです。
—
IME制御の正体：Propertyオブジェクト
Access VBAでテーブルのフィールドを操作するには、`TableDef` と `Field` オブジェクトを使います。IMEの設定は、各フィールドが持つ「プロパティ」の中に隠されています。
具体的には以下の2つを制御します。
- IMEMode: IMEの動作（オン/オフなど）
- IMESentenceMode: 変換モード（一般、人名など）
—
実践：VBAでIMEを自動設定するコード
では、実際に特定のテーブルのフィールドを操作するコードを見てみましょう。このコードは、テーブル「T_顧客マスタ」の「電話番号」フィールドを「IMEオフ」に設定する例です。
Public Sub SetFieldIMEMode()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Set db = CurrentDb
Set tdf = db.TableDefs(“T_顧客マスタ”) ‘ 対象のテーブル名
Set fld = tdf.Fields(“電話番号”) ‘ 対象のフィールド名
‘ プロパティが存在しない場合に備えてエラーハンドリングを準備
On Error Resume Next
‘ IMEMode プロパティの設定 (2: 無効/オフ, 1: オン, 0: なし)
fld.Properties(“IMEMode”) = 2
‘ プロパティが未作成の場合は追加する
If Err.Number = 3270 Then
Set prp = fld.CreateProperty(“IMEMode”, dbByte, 2)
fld.Properties.Append prp
End If
On Error GoTo 0
‘ 変更を反映するためにテーブル定義を更新
tdf.Properties.Refresh
MsgBox “IMEの設定が完了しました！”, vbInformation
End Sub
ここがポイント！
- `CreateProperty` の重要性: すでに定義済みのプロパティは直接代入で書き換えられますが、新規作成時には `CreateProperty` を使って明示的に作る必要があります。
- `On Error Resume Next`: 「既にプロパティがある場合」と「ない場合」をスマートに分岐させるためのテクニックです。
- 定数の意味: `IMEMode` の値は以下の通りです。
- `0`: なし（デフォルト）
- `1`: オン（日本語入力）
- `2`: オフ（半角英数）
- `3`: オン（ひらがな）
—
陥りやすい罠：ここだけは注意！
現場でよくある失敗事例を挙げておきます。
1. プロパティ名を打ち間違える
`IMEMode` は大文字小文字を区別する場合があるため、コードを書くときはスペルミスに細心の注意を払ってください。
2. テーブルを開いたまま実行する
テーブルをデザインビューやデータシートビューで開いていると、VBAでプロパティを書き換えることができません。必ず閉じてから実行してください。
3. 「更新」を忘れる
`tdf.Properties.Refresh` は、変更した定義をAccessエンジンに認識させるための重要な儀式です。これを忘れると、設定したはずなのに反映されないという怪奇現象に悩まされます。
—
最後に：エンジニアとしてのステップアップ
このコードをマスターすれば、次は「一括で全テーブルのIME設定を行うツール」を作ることも容易になるはずです。
「ユーザーが意識せずに、正しいデータだけが入ってくる仕組み」を作ること。それが、システムエンジニアとして最も評価される仕事です。面倒な入力をVBAで自動化して、ユーザーから「仕事が楽になった」と感謝される……そんなプロフェッショナルな体験を、ぜひ積んでいってください。
ここをクリアしたあなたは、もうAccess VBAの基礎を完全に掌握しています。自信を持って次のステージへ進みましょう！
