这个函数怎么写

大熊屋　发表于：2008-03-25 22:36:21 　

我的一个窗体里面有新增，修改，删除等按钮。当点新增时修改，删除按钮.Enabled = false

Private Sub add_Click()

修改.enabled= false

删除.enabled= false

End Sub

因为按钮太多，我想用一个模块来写

Public Function aaaa(nlist As String)

Select Case nlist
    Case 0 '--------启动时
      ' save.Enabled = False
      ' cancel.Enabled = False

    Case 1 '---------添加时
        ' add.Enabled = False
        ' mod.Enabled = False
    Case 2 '--------保存时
        ' save.Enabled = False
        ' list.Locked = False
end select

End Function

单独放在窗体里没有问题，但我现在有好几个窗体都要用同样的代码，我想写一个函数 aaaa(数值，窗体名)，单总是出错，请大家给个办法

Top

竹笛发表于：2008-03-26 09:00:27

参考下面的代码进行适当修改

Public Function aaaa(frmName As String, nlist As Long)
'frmName为窗体的名称
'首先让某一文本框txtTest获得焦点
    Forms(frmName)!txtTest.SetFocus
    Select Case nlist
    Case 0    '--------启动时
        Forms(frmName)!cmdsave.Enabled = False
        Forms(frmName)!cmdcancel.Enabled = False
        '让新增按钮可用
        Forms(frmName)!cmdadd.Enabled = True
    Case 1    '---------添加时
        Forms(frmName)!cmdadd.Enabled = False
        Forms(frmName)!cmdmod.Enabled = False
    Case 2    '--------保存时
        Forms(frmName)!cmdsave.Enabled = False
        Forms(frmName)!cmdlist.Locked = False
    End Select
End Function

Sub aa()
'调用方法
Call aaaa(Me.Name, 0)
End Sub

Top

大熊屋发表于：2008-03-26 18:37:43

谢谢！万分感谢！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

这个函数怎么写