运行下面的函数

　　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