如何用代码设置表中字段的输入法模式

运行以下函数

函数getTableInfo()
'对mydb中的每个myt引用Dao
dimmydb as Dao . database
dimmyt as Dao . tabledef
dimmy LD as Dao . field
Dim p
Set mydb = current db
。myT中每个myFld的TableDefs
。字段
调试。打印我的文件夹。myFld中每个p的名称
。属性
调试。如果我的文件夹，打印p.Name
Next
。Properties("type") = dbText和Left(myT。Name，4) "msys "然后
my fld . properties(" imemode ")= 2
' 1 on
' 2 off
' 0 whatever
end if
next
。