有没有办法批量禁用查看属性（Alt+Enter)？

roych

      之前有看过相关资料，在允许设计更改里改成“仅设计模式”，如果窗体比较多的时候，逐个改也是很费劲的事情。

      又有说法，把ShortcutMenu属性改为False也可以，不过我试了好像不行~~应该只是屏蔽了右键菜单吧。

      有没有办法写一个模块来完成这件事呢？

红尘如烟

1. Sub SetDesign()
   
2.     Dim frm As AccessObject
   
3.     For Each frm In CurrentProject.AllForms
   
4.         DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
   
5.         Forms(frm.Name).AllowDesignChanges = False
   
6.         DoCmd.Close acForm, frm.Name, acSaveYes
   
7.     Next
   
8. End Sub
   

复制代码

LJB

红尘如烟 发表于 2010-12-13 20:30

这段代码如何运行?

j13583

红尘如烟 正解。
关键点：
1.在设计视图打开 acDesign,并且隐藏起来
2.修改属性
3.保存

yodong

哗,太历害了.可惜现在才看到.我一个一个改的.不过这个方法学到了.红尘如烟朋友,毫无保留,好人呀!