如何用代碼設(shè)置表中字段的輸入法模式

運(yùn)行下面的函數(shù)
    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