显示附加信息 >>>

作者：cg1  摘自：access911.net  编辑：cg1  更新日期：2003-5-7  浏览人次：

专题地址：

http://www.access911.net/?kbid;74FABE1E11DC

把下面这个函数运行一遍

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