如何在Access 2010表单中高效关联Toggle Buttons与Textboxes？

嗨，这个需求很贴合实际使用场景，我来帮你一步步实现这个联动功能，分两部分处理：表单Current事件的初始化逻辑，以及Toggle Button的点击交互逻辑。

第一步：统一控件命名（关键！减少重复代码） #

为了让代码更简洁易维护，建议给你的日期文本框和对应的Toggle Button统一命名：

• 日期文本框：txtDate1、txtDate2、txtDate3……（按你的实际数量命名）
• 对应Toggle Button：tglDate1、tglDate2、tglDate3……（保证编号和文本框一一对应）

第二步：表单Current事件处理（初始化状态） #

当表单切换到新记录（触发Current事件）时，自动检查每个日期文本框的状态，同步Toggle Button的状态和文本框的可见性：

打开表单的设计视图，右键表单空白处选择【事件生成器】，在Current事件中输入以下VBA代码：

Private Sub Form_Current()
    Dim i As Integer
    Dim txtBox As TextBox
    Dim tglBtn As ToggleButton
    
    ' 假设你有5个日期字段，可根据实际数量调整循环范围
    For i = 1 To 5
        ' 获取对应控件
        Set txtBox = Me.Controls("txtDate" & i)
        Set tglBtn = Me.Controls("tglDate" & i)
        
        ' 判断文本框是否有值
        If Not IsNull(txtBox.Value) And txtBox.Value <> "" Then
            txtBox.Visible = True
            tglBtn.Value = True ' Toggle处于按下状态
        Else
            txtBox.Visible = False
            tglBtn.Value = False ' Toggle处于弹起状态
        End If
    Next i
    
    ' 释放对象
    Set txtBox = Nothing
    Set tglBtn = Nothing
End Sub

第三步：Toggle Button的点击交互逻辑 #

接下来实现点击Toggle时的联动：按下Toggle则显示对应日期文本框并让它获得焦点；弹起Toggle则清空文本框并隐藏它。

右键任意一个Toggle Button（比如tglDate1），选择【事件生成器】，在Click事件中输入以下代码（所有Toggle Button都可以复用这个事件，只要命名规范）：

Private Sub tglDate_Click()
    Dim txtBoxName As String
    Dim txtBox As TextBox
    
    ' 根据Toggle的名称推导对应文本框的名称
    txtBoxName = Replace(Me.ActiveControl.Name, "tgl", "txt")
    Set txtBox = Me.Controls(txtBoxName)
    
    If Me.ActiveControl.Value = True Then
        ' Toggle按下：显示文本框并聚焦
        txtBox.Visible = True
        txtBox.SetFocus
    Else
        ' Toggle弹起：清空文本框并隐藏
        txtBox.Value = ""
        txtBox.Visible = False
    End If
    
    Set txtBox = Nothing
End Sub

注意：所有Toggle Button的Click事件都要选择这个通用的tglDate_Click过程（在事件下拉菜单里选它就行），不用每个都写重复代码。

额外优化建议 #

• 如果需要验证输入的日期格式，可以在文本框的BeforeUpdate事件中添加日期验证逻辑，比如：

Private Sub txtDate_BeforeUpdate(Cancel As Integer)
    If Not IsDate(Me.ActiveControl.Value) Then
        MsgBox "请输入有效的日期格式！", vbExclamation
        Cancel = True
        Me.ActiveControl.SetFocus
    End If
End Sub

• 可以给Toggle Button设置合适的Caption（比如"添加日期"），进一步提升用户体验。

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