概要
今回はAccessテーブルのテキスト型フィールドにおいて、一括でIME 入力モードON/OFFを切り替える方法を紹介します。
コード
早速ですが、コードです。
以下は、IME 入力モードを一括でOFFにする方法です。
【IME 入力モードを一括でOFFにする方法】
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Option Compare Database Option Explicit Sub IMEModeOff() Dim DB As Database Dim Def As TableDef Dim Fld As Field Set DB = CurrentDb Set Def = DB.TableDefs("テーブル名") For Each Fld In Def.Fields If Fld.Type = dbText Then 'IME 入力モード オフ Fld.Properties("imemode") = vbIMEModeOff End If Next End Sub |
【使い方】
1.”テーブル名” に実際に使っているテーブルの名前を指定してください。
2.IME 入力モードをONにしたい場合は定数「vbIMEModeOff」を定数「vbIMEModeOn」に切り替えます。
3.実行
【プログラムの説明】
DB.TableDefs(“テーブル名”) で指定したテーブルを開いて、全てのフィールドでテキスト型であるか確認しています。
それぞれのフィールドがテキスト型であれば、imemodeをいじってON/OFFを切り替えています。
以上。
---コメント---