运行下面的函数
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