关于使用类模块定义事件

悄无声息11 2013-06-12 12:31:11
谁帮我看看代码的问题
我现在在窗体中 有96个label 我现在希望能对这96个共同建立一个事件 就是当他们某个被点击时运行某个程序
但是按网上的教程的修改后 如下
运行后 点击那些label 没有任何反应 也不促发事件啊

在窗体中的代码:
Dim co As Collection
Private Sub Form_Load()
Set co = New Collection
Me.查询 = ""

Dim myc As cmd

For i = 1 To 8
For t = 1 To 12
Me.Controls("Label" & i & t).Caption = ""
Set myc = New cmd
Set myc.cmd = Me.Controls("Label" & i & t)
co.Add myc
Next t
Next i
Me.com_up.Visible = False
Me.com_down.Visible = False
Set myc = Nothing
End Sub
在类模块 cmd中代码

Option Explicit
Public WithEvents cmd As Label
Private Sub cmd_Click()




If Not cmd.Caption = "" Then
X = Len(cmd.Name) - 6
X = Mid(cmd.Name, 7, X)
BM = Form("销售查询").Controls("Label1" & X).Caption
DoCmd.Close
Call 返回宏

End If

End Sub

...全文
78 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
悄无声息11 2013-06-15
调试了 就是点击不触发 我放弃了 我写了96个程序
回复
wwwwb 2013-06-13
分步调试,看看问题出在什么地方
回复
相关推荐
发帖
Access
创建于2007-09-28

7516

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
申请成为版主
帖子事件
创建了帖子
2013-06-12 12:31
社区公告
暂无公告