·一周点击排行
·热点推荐
如何用代码设置表中字段的输入法模式
发布时间：2008-5-28 15:27:00 浏览次数: 121
运行下面的函数
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
讨论此主题请进>>: 如何用代码设置表中字段的输入法模式