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

2017-11-22 15:28:00
cg1
轉貼
2630

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

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

説明

IMEMode 屬性使用下列設置。

設置 説明 Visual Basic
隨意 不設置“日文漢字轉換模式”(默認值)。 0
開啟 打開“日文漢字轉換模式”。 1
關閉 關閉“日文漢字轉換模式”。 2
禁用 禁用“日文漢字轉換模式”。 3
平假名 設置全角平假名。 4
全角片假名 設置全角片假名。 5
半角片假名 設置半角片假名。 6
全角字母/數字 設置全角字母/數字。 7
半角字母/數字 設置半角字母/數字。 8
HangulFull 設置全角 Hangul。 9
Hangul 設置半角 Hangul。 10

如果設置爲“隨意”(默認值),則使用焦點切換到該控件之前的設置值。對於任何其他設置,將使用該控件的“日文漢字轉換模式”設置。例如,如果 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



效果圖:

    分享