把全部Access文本類型字段的輸入法模式關閉

在Access錶設計中，字段屬性有一箇“輸入法模式”的功能。

我們可以使用 IMEMode 屬性在焦點 切換到控件時設置控件的“日文漢字轉換模式”。

説明

IMEMode 屬性使用下列設置。

如果設置爲“隨意”（默認值），則使用焦點切換到該控件之前的設置值。對於任何其他設置，將使用該控件的“日文漢字轉換模式”設置。例如，如果 IMEMode 屬性設置爲“關閉”，則關閉“日文漢字轉換模式”，而如果 IMEMode 屬性設置爲“開啟”，則打開“日文漢字轉換模式”。當焦點每次在控件之間切換時，“日文漢字轉換模式”將自動更改。

如果設置爲“禁用”，則不能更改“日文漢字轉換模式”設置。如果使用任何其他設置，均可以更改“日文漢字轉換模式”，但是當焦點改變時將丟失設置。

利用代碼設置某錶的輸入法模式關閉

Function getTableInfo()
'引用DAO
Dim mydb As DAO.DATABASE
Dim myT As DAO.TableDef
Dim myFld As DAO.Field
Dim p
Set mydb = CurrentDb
For Each myT In mydb.TableDefs
    For Each myFld In myT.Fields
        Debug.Print myFld.Name
        For Each p In myFld.Properties
            Debug.Print p.Name
        Next
        If myFld.Properties("type") = dbText And Left(myT.Name, 4) <> "msys" Then
            myFld.Properties("ImeMode") = 2
            '1 開
            '2 關
            '0 隨便
        End If
    Next
Next
End Function

效果圖：