北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
全面解决方案：权限控制加审核分级控制
第一步：窗体原设计时或窗体加载事件中，先全面锁定窗体，禁止编辑数据。
第二步：窗体原设计时，加入权限控制按钮，只有相应权限的人，才能使用点击“查看全部单”、“反审核”两个按钮。
第三步：使用中根据权限，点击“编辑”按钮进行编辑。其中，还同时根据审核情况判断编辑许可。
Private Sub Cmd编辑_Click()
If Me.审核 = True Then Exit Sub
Me.AllowEdits = IIf(审核 = True, False, blnAllowEdits) 'blnAllowEdits为编辑许可权限变量。当审核后一般编辑人员都无法再编辑。除非管理员反审核后。
Me.AllowDeletions = blnAllowDeletions
Me.AllowAdditions = True
Me.fsbWLK.Form.AllowEdits = IIf(审核 = True, False, blnAllowEdits)
Me.fsbWLK.Form.AllowDeletions = blnAllowDeletions
Me.fsbWLK.Form.AllowAdditions = True
Cmd请购单入.Enabled = True
Cmd报销单入.Enabled = True
CmdExcel入.Enabled = True
Me.Requery
End Sub
Private Sub Lockfrm()
If Me.NewRecord Then Exit Sub
Cmd请购单入.Enabled = False
Cmd报销单入.Enabled = False
CmdExcel入.Enabled = False
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
Me.fsbWLK.Form.AllowEdits = False
Me.fsbWLK.Form.AllowDeletions = False
Me.fsbWLK.Form.AllowAdditions = False
End Sub
第四步：有权限的点击“查看全部单”后取消筛选，显示导航按钮并可翻页查看全部记录，当翻页时，重新锁定窗体。
Private Sub Form_Current()
If Me.Recordset.RecordCount > 1 Then
If Me.入库单ID <> Me.RecordsetClone!入库单ID Then
Call Lockfrm
End If
End If
End Sub
第五步：具有“反审核”按钮权限的人（如管理员）可操作取消“审核”，开放对一般编辑人员再次编辑。
点击下载此附件