在使用平台功能时,可能会在编辑窗体中使用权限功能,如审核、取消审核,那么我们可以使用快速开发平台中的权限功能,如下:
在编辑窗体VBA最上面加一句:
Private mdctPermissionList As Collection
然后在打开事件中加入需要的权限功能就可以了,哈哈,简单吧!
例如:在编辑窗体上在一个名为Cmd4的按钮,权限如下:
Private Sub Form_Open(Cancel As Integer)
Set mdctPermissionList = LoadPermissions("报关单信息", Me)
If Not mdctPermissionList("") Then
Exit Sub
End If
ApplyTheme Me
On Error Resume Next
Me.Cmd4.Enabled = mdctPermissionList("修改")
End Sub