Access VBA中如何判断日历表单点击的按钮并执行对应代码

你的代码未生效的核心原因：点击按钮时触发的是按钮自身的Click事件，而非表单的Click事件，因此表单的form_Click过程不会被执行。以下是两种可行的解决方法：

方法一：类模块批量绑定事件（推荐） #

这种方法无需为每个按钮单独设置事件，适合批量控件的场景：

1. 创建类模块，命名为clsCalendarButton，写入如下代码：

Public WithEvents btn As CommandButton

Private Sub btn_Click()
    Dim btnNum As Integer
    '提取按钮编号（支持D1~D42这类单/多位数命名）
    btnNum = CInt(Mid(btn.Name, 2))
    
    Select Case btnNum
        Case 1 To 6
            PrevMonDates
        Case 7 To 31
            CurrentDates
        Case 32 To 42
            NextMonDates
    End Select
End Sub

2. 在表单的代码模块中添加实例集合声明与加载绑定逻辑：

Private btnCollection As Collection

Private Sub Form_Load()
    Dim ctl As Control
    Dim btnObj As clsCalendarButton
    
    Set btnCollection = New Collection
    
    '遍历表单控件，绑定所有D开头的命令按钮
    For Each ctl In Me.Controls
        If ctl.ControlType = acCommandButton And Left(ctl.Name, 1) = "D" Then
            Set btnObj = New clsCalendarButton
            Set btnObj.btn = ctl
            btnCollection.Add btnObj
        End If
    Next ctl
End Sub

方法二：共享事件过程（快速应急） #

给所有按钮指定同一个Click事件过程：

1. 表单设计视图中选中所有D1~D42按钮
2. 在属性窗口的「事件」选项卡中，将「单击」事件选择为[事件过程]，进入代码窗口
3. 编写通用事件过程：

Private Sub CalendarButton_Click()
    Dim btnNum As Integer
    btnNum = CInt(Mid(Me.ActiveControl.Name, 2))
    
    Select Case btnNum
        Case 1 To 6
            PrevMonDates
        Case 7 To 31
            CurrentDates
        Case 32 To 42
            NextMonDates
    End Select
End Sub

4. 返回属性窗口，将所有按钮的「单击」事件都指定为CalendarButton_Click

原代码的两个隐性问题 #

• Mid(Me.ActiveControl.Name, 2, 1)仅能提取1位数字，遇到D10这类多位数按钮会提取错误，改为Mid(Me.ActiveControl.Name, 2)可获取完整编号
• findbtnname为字符串类型，直接用数值范围Case 1 To 6判断会存在类型不匹配风险，需转为整数类型后再判断

内容的提问来源于stack exchange，提问作者Nashid Iftekhar