Access交流中心

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

[5分]在编辑主子窗体中 如何有条件的锁定整条记录,使之不能修改删除?

张保华  发表于:2013-12-22 22:58:20  
复制

在编辑主子窗体中   如何有条件(有打钩的记录)的锁定整条记录,使之不能修改删除?



 

 

Top
一杯绿茶 发表于:2013-12-23 08:36:36
参照这个例子,锁定修改,下载附件

张保华 发表于:2013-12-23 10:30:14

但是  有多个条件呀,我是菜鸟,能有针对这个问题的完整代码吗?

谢谢



一杯绿茶 发表于:2013-12-23 11:35:20
你是锁定整条记录的呢?还是根据选的项,然后只锁定部分记录,这个要说清楚,请上传附件。

张保华 发表于:2013-12-23 11:55:50

如果有4个条件中有一个打钩,那整条(子)记录就不允许修改、删除。

只有4个条件中全部不打钩,那整条(子)记录才   允许编辑。

 



竹笛 发表于:2013-12-23 14:18:21

在子窗体的成为当前事件中写代码去实现。

Private Sub Form_Current()
 Dim IsEdit As Boolean
 If Me!辅料计划 = False And Me!原料计划 = False And Me!生产计划 = False And Me!生产安排 = False Then
   IsEdit = True
 Else
   IsEdit = False
 End If


 If IsEdit = True Then
   Me.AllowEdits = True
 Else
   Me.AllowEdits = False
 End If
End Sub





总记录:5篇  页次:1/1 9 1 :