Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 如何用代码来禁止窗体添加新记录？

如何用代码来禁止窗体添加新记录？

54.℡80後2oO　 发表于：2012-07-16 22:16:33 　
复制

请教各位仁兄，如何用代码来禁止窗体添加新记录？

 

Top
jia 发表于：2012-07-17 07:31:09
Me.AllowAdditions = False '不允许添加

Top
54.℡80後2oO 发表于：2012-07-17 07:41:10

谢谢你的热心回复，试了下，没用

我这个窗体是个基于查询的连续窗体，里面有复选框，如果窗体记录集类型选择快照的话，可以实现不能添加，就是那个*的按扭不可用，但这样一来，复选框又不能用了……



Top
54.℡80後2oO 发表于：2012-07-17 21:42:14



Top
54.℡80後2oO 发表于：2012-07-17 21:44:06
如上图所示，所何不显示，查询窗口中的*那行，就是新增记录那行，我试过用快照模式，但快照下，复选框不能用，现在是动态集模式下

Top
54.℡80後2oO 发表于：2012-07-17 21:44:37
注，用的是Access通用系统1.1

Top
叶海峰 发表于：2012-07-18 08:38:24
Me.AllowAdditions = False '不允许添加
就是不允许窗体进行记录新增啊,是不是楼主没有将代码放在窗体的LOAD事件或者Open事件里面呢?

 

还可以利用NewRecord属性来判断当前记录是不是新记录,如果是的话,取消.至于代码放在哪个控件的AfterUpdate事件里面,自己考虑.注意,这种做法都引致自编出现断号.

 

Private Sub id_AfterUpdate()
If Me.NewRecord = True Then Me.Undo
End Sub



Top
zch 发表于：2012-07-18 10:19:23
Me.AllowAdditions = False '不允许添加

你这句是不是用在主窗体上面了，要用在子窗体上面才有效

Top
54.℡80後2oO 发表于：2012-07-18 12:25:02
是用在子窗体上啊，但就是不起作用？不知为何？

Top
叶海峰 发表于：2012-07-19 08:58:25
把代码贴来看看,或者直接上实例

Top
54.℡80後2oO 发表于：2012-07-19 14:34:22

点击下载此附件

帮忙看看



Top
54.℡80後2oO 发表于：2012-07-19 14:37:47

如图



Top
叶海峰 发表于：2012-07-19 14:55:07

Me.日期查询.Form.AllowAdditions = False

将代码放在资料输入窗体的form_load事件里面就可以了



Top
54.℡80後2oO 发表于：2012-07-19 18:25:25

还是不行啊，日期查询窗口中那个*行，还是在啊？？



Top
叶海峰 发表于：2012-07-20 09:25:09

在资料输入窗体添加以下代码,窗体打开时,还是看到*号,但点击新记录时*号就会消失

Private Sub 日期查询_Enter()
Me.日期查询.Form.AllowAdditions = False
End Sub



Top
54.℡80後2oO 发表于：2012-07-20 13:11:26
假如没更好的办法的话，也只能退而求其次了，……

Top
总记录：15篇  页次：1/1 9 1 :

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4