运行下面的函数

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