[VBA]多階層のフォルダを一発で作成する方法

[Access VBA]VBAで簡単にテーブルの列を追加・変更・削除する方法まとめ

[Access VBA]VBAで簡単にテーブルの列を削除する方法

[Access VBA]VBAで簡単にテーブルの列を追加する方法

[Excel VBA]いろんな関数をVBAで使おう！エラー回避も考慮！

[Access VBA]たった1行でテーブルの存在確認をする方法

[Access VBA]テーブルの列のデータ型をVBAで変更する方法

[Excel/Access VBA]超簡単！たった1行でサブフォルダのサブフォルダまで作成する方法！

[Excel VBA]たった１行でシートの存在有無を確認する方法

[Excel/Access VBA]サーバやホストの接続確認(Ping)をやる方法

[Excel 関数]数式を変数に格納して使うことができる関数を利用しよう[LET関数]

[Access VBA]新しいAccessファイルを作成しテーブルをコピーする方法

[Access VBA]マクロ(VBA)でテーブルの主キーを設定する方法

[Excel/PowerQuery]VBAでデータソースをいじりたい

[Access VBA]自動で内閣府の国民の祝日CSVデータをテーブルに取り込もう

[Access VBA]サブフォームのイベントをメインフォーム側で受け取る方法(WithEvent,RaiseEvent)

[Access VBA]テーブルの書式を一括で消す方法

[Excel VBA]『名前の定義』で設定したセルが存在するか確認する簡単・簡潔な方法

[Excel VBA]複数のセル範囲で重なっているセルを取得するIntersectと複数のセル範囲を取得するUnion

[Access]テーブルのテキスト型フィールドで「IME 入力モード」を一括でON/OFFする方法

[VBA]AccessからExcelを使う時に起きる「Microsoft Excel *.* Object Library」参照不可問題への対応最新版

【Access VBA】ナビゲーションフォームのサブフォームで、コンボボックスの選択肢を別のコンボボックス(orテキストボックス)のデータを条件に動的に変更する方法(値集合ソース)

[Access VBA]全てのクエリ(SQL)を一度で一括に変換(置換)する方法

[Access VBA]主キーである項目名(フィールド名)を取得する方法

[Excel VBA]剰余演算子であるModの考え方

[Python]CCXTで扱える取引所でそれぞれどんなAPIが取得できるの？を解決する方法

[Python]CCXTを使ったBitMEXのオープンポジション取得方法(API)

[VBA]エクセルで仮想通貨取引所のAPI情報を取得する方法

[Excel/Access VBA]デスクトップやマイドキュメントのパスを自動で取得する方法

[Excel]セルの書式設定の表示形式で改行を使用する方法

[Excel]入力規則のリストにテーブルの列範囲(フィールド/Field)を指定する方法

[VBA]ヤフオク詳細＆一括検索ツールを作ってみた

[VBA]複数の異なるOfficeバージョン環境でAccessからExcelを扱う場合における「Microsoft Excel *.* Object Library」参照不可問題への対応

[VBA]ネットワークドライブ（サーバ）に保管されているAccessファイルを開けないようにする方法

[Access VBA]全てのフォームのプロパティを一括で変更する方法

[VBA]Accessサブフォーム(データシートビュー)の幅高さをポップアップフォームと連動し自動調整する方法

[VBA]Acceessフォームを表示した状態でアプリケーションウィンドウのみを非表示にする方法

[VBA]参照設定にてxla,xlamアドインファイルの追加と解除について

[VBA]ExcelのメールのテンプレートからGmailを送信する方法

[VBA]配列の次元数を調べる

[VBA]ネットワークドライブ(サーバ)に存在するExcelファイルを開かせないようにする方法

[VBA]ミリ秒も含めてシステム時刻を取得する

[VBA]背景色をRGB形式で取得

[VBA]ファイルを開く処理エラー回避

[Access]テーブルのテキスト型フィールドで「IME 入力モード」を一括でON/OFFする方法

VBA(Access)

2019.06.102021.05.12

この記事は約1分で読めます。

概要

今回はAccessテーブルのテキスト型フィールドにおいて、一括でIME 入力モードON/OFFを切り替える方法を紹介します。

コード

早速ですが、コードです。

以下は、IME 入力モードを一括でOFFにする方法です。

【IME 入力モードを一括でOFFにする方法】

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

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

【使い方】

１．”テーブル名” に実際に使っているテーブルの名前を指定してください。

２．IME 入力モードをONにしたい場合は定数「vbIMEModeOff」を定数「vbIMEModeOn」に切り替えます。

３．実行

【プログラムの説明】

DB.TableDefs(“テーブル名”) で指定したテーブルを開いて、全てのフィールドでテキスト型であるか確認しています。

それぞれのフィールドがテキスト型であれば、imemodeをいじってON/OFFを切り替えています。

以上。

---コメント---

タイトルとURLをコピーしました