如何将勾选后显示的date_to_destroy字段设为必填项

嘿，我来帮你搞定这个需求！你已经实现了复选框控制日期框显示隐藏的功能，现在要在日期框可见时设为必填项，咱们可以通过优化现有代码+添加验证逻辑来实现：

第一步：优化现有显示/隐藏逻辑（可选但更易维护） #

先把你原有的重复代码提取成通用子过程，后续修改起来更方便，同时动态绑定日期框的必填属性：

Private Sub Form_Current()
    ' 表单加载/切换记录时，同步日期框状态
    ToggleDestroyDateVisibility (Me.Tick_if_destroyable = -1)
End Sub

Private Sub Tick_if_destroyable_AfterUpdate()
    Dim isChecked As Boolean
    isChecked = Me.Tick_if_destroyable = -1
    
    ToggleDestroyDateVisibility isChecked
    ' 取消勾选时清空日期框，避免残留数据
    If Not isChecked Then
        Me.Date_to_Destroy.Value = Null
    End If
End Sub

' 提取通用显示/隐藏+必填设置逻辑
Private Sub ToggleDestroyDateVisibility(isVisible As Boolean)
    Me.Date_to_Destroy.Visible = isVisible
    ' 动态设置必填属性：可见时必填，隐藏时取消必填
    Me.Date_to_Destroy.Required = isVisible
End Sub

第二步：添加保存前的必填验证 #

在表单的BeforeUpdate事件中添加逻辑，确保用户勾选复选框时必须填写日期，否则无法保存记录：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' 当复选框勾选（日期框可见）时，检查日期是否为空
    If Me.Tick_if_destroyable = -1 Then
        If IsNull(Me.Date_to_Destroy) Then
            Cancel = True ' 取消保存操作
            MsgBox "请填写销毁日期！", vbExclamation, "必填项缺失"
            Me.Date_to_Destroy.SetFocus ' 自动跳转到日期框，方便用户填写
        End If
    End If
End Sub

功能说明 #

• 当用户勾选Tick_if_destroyable复选框时，Date_to_Destroy会自动显示并设为必填项
• 取消勾选时，日期框隐藏并清空内容，同时取消必填属性
• 保存记录前会自动验证：如果复选框已勾选但日期为空，会弹出提示并阻止保存，还会自动把焦点定位到日期框，提升操作体验

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