如何用代码设置表中字段的输入法模式

来源：计算机等级考试发布时间：2012-08-28 计算机等级考试视频评论

　　运行下面的函数

　　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

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。