MS Access表单基于条件动态设置Exp_Date默认值咨询

没问题，这个需求用VBA完全可以实现，而且能做到勾选加急复选框时实时更新到期日，比你之前用的默认值表达式灵活多了。我来一步步给你讲怎么做：

先明确控件命名（方便代码对应） #

假设你的表单控件是这些命名（如果不一样，把代码里的名字换成你实际的控件名就行）：

• 加急复选框：chkExpedited（对应你说的ExpYN）
• 开始日期文本框：txtStartDate
• 到期日文本框：txtExpDate

步骤1：初始化表单默认值 #

打开表单时，自动把开始日期设为当前时间，同时默认按“不加急”计算到期日。在表单的Form_Load事件里加代码：

Private Sub Form_Load()
    ' 设置开始日期为当前时间
    Me.txtStartDate = Now()
    ' 默认不加急，所以到期日是30天后
    Me.txtExpDate = DateAdd("d", 30, Me.txtStartDate)
    ' 如果需要默认勾选加急，就加这句：Me.chkExpedited = True
End Sub

步骤2：勾选/取消加急时动态更新到期日 #

给加急复选框添加AfterUpdate事件，每次勾选状态变化时重新计算到期日：

Private Sub chkExpedited_AfterUpdate()
    Dim startDt As Date
    
    ' 先确认开始日期的值，如果用户没改就用当前时间
    If IsNull(Me.txtStartDate) Then
        startDt = Now()
        Me.txtStartDate = startDt ' 顺便给开始日期赋值
    Else
        startDt = Me.txtStartDate
    End If
    
    ' 根据勾选状态计算到期日
    If Me.chkExpedited = True Then
        ' 加急：加72小时
        Me.txtExpDate = DateAdd("h", 72, startDt)
    Else
        ' 不加急：加30天
        Me.txtExpDate = DateAdd("d", 30, startDt)
    End If
End Sub

步骤3：（可选）修改开始日期时同步更新到期日 #

如果允许用户手动修改开始日期，给开始日期文本框也加AfterUpdate事件，确保到期日跟着变化：

Private Sub txtStartDate_AfterUpdate()
    If Not IsNull(Me.txtStartDate) Then
        If Me.chkExpedited = True Then
            Me.txtExpDate = DateAdd("h", 72, Me.txtStartDate)
        Else
            Me.txtExpDate = DateAdd("d", 30, Me.txtStartDate)
        End If
    End If
End Sub

为什么之前的方法不行？ #

• 你用的默认值表达式只会在控件初始化时计算一次，不会随着复选框的变化动态更新，所以没法实时切换。
• 至于你试的DLookUp，这里解释一下：D代表Domain，它是用来查询表或查询里的数据的，不是用来获取当前表单控件值的，所以用在这里完全不对——获取表单控件值直接用Me.控件名就可以了，简单又准确。

这样设置后，你的表单就能完美实现需求：打开时自动设好开始日期和默认到期日，勾选加急时立刻把到期日改成72小时后，取消勾选又切回30天后，修改开始日期也会同步更新到期日。

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