把全部Access文本類型字段的輸入法模式關(guān)閉

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

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

説明

IMEMode 屬性使用下列設(shè)置。

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

如果設(shè)置爲(wèi)“禁用”，則不能更改“日文漢字轉(zhuǎn)換模式”設(shè)置。如果使用任何其他設(shè)置，均可以更改“日文漢字轉(zhuǎn)換模式”，但是當(dāng)焦點改變時將丟失設(shè)置。

利用代碼設(shè)置某錶的輸入法模式關(guān)閉

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 關(guān)
            '0 隨便
        End If
    Next
Next
End Function

效果圖：