关于事件上与权限设定的问题

williamwangc

我模仿红尘如烟的通用开发平台的设置权限的函数并按照我的理解做了一段FUNCTION，并按照我的理解做了一些调整，并做了调试。
奇怪的是我功能函数放在按钮里面运行正常，但放到form.OnXxxx就不行了。
function如下：

1. Public Function fnintSetRightOfFormButton(strFormName As String, RightOfEdit As Boolean, RightOfAdd As Boolean, RightOfDelete As Boolean) As Integer
   
2. Dim ctl As Control
   
3. If fnblObjectExists("form", strFormName) = True Then
   
4.     Forms(strFormName).AllowEdits = RightOfEdit
   
5.     Forms(strFormName).AllowAdditions = RightOfAdd
   
6.     Forms(strFormName).AllowDeletions = RightOfDelete
   
7.     For Each ctl In Forms(strFormName)
   
8.         If ctl.Name Like "cmd*Add*" And ctl.ControlType = acCommandButton Then
   
9.         ctl.Enable = RightOfAdd
   
10.         ElseIf ctl.Name Like "cmd*Edit*" And ctl.ControlType = acCommandButton Then
    
11.         ctl.Enable = RightOfEdit
    
12.         ElseIf ctl.Name Like "cmd*Del*" And ctl.ControlType = acCommandButton Then
    
13.         ctl.Enable = RightOfDelete
    
14.         End If
    
15.     Next ctl
    
16.     fnintSetRightOfFormButton = 1
    
17. Else
    
18. MsgBox "该窗体不存在"
    
19. fnintSetRightOfFormButton = -1
    
20. End If
    
21. End Function
    

复制代码

考虑到可能事件只能用sub,我把这个FUNCTION改成了一个无返回值的SUB，但还是无效。
在一个按钮的CLICK事件中写了这样的代码，如下：

1. Private Sub Command0_Click()
   
2. DoCmd.OpenForm "窗体2"
   
3. Forms("窗体2").OnOpen = "=fnsubSetRightOfFormButton ('窗体2' , False, False, False)"
   

复制代码

PS.fnsubSetRightOfFormButton是fnintSetRightOfFormButton的sub形式
另外fnblObjectExists("form", strFormName) 是我自写的另外一个自定义FUNCTION

todaynew

在属性设置中只能调用Public Function。

williamwangc

todaynew 发表于 2013-5-18 18:00
在属性设置中只能调用Public Function。

我用的是function,不过无返回值。请版主再看看。