通过组合框更改动态默认值日期答案

【问题标题】：Dynamic default value date via combo box change通过组合框更改动态默认值日期
【发布时间】：2020-07-13 18:21:03
【问题描述】：

我有 1 个组合框和 1 个日期文本框。我想要的只是通过组合框创建动态日期文本框默认值，例如，当我在组合框中选择 BIKE SERVICE 时，日期文本框默认值将更改为“Date()-Weekday(Date())+30”，如果我选择其他像 CAR SERVICE 它将更改为 "Date()-Weekday(Date())+180"

Private Sub Form_Load() If CBO_SERVICE = "BIKE SERVICE" Then
    TextDate.DefaultValue = "Date()-Weekday(Date())+30" End If End Sub

Private Sub CBO_SERVICE_Click() If CBO_SERVICE = "BIKE SERVICE" Then
    TextDate.DefaultValue = "Date()-Weekday(Date())+30" End If End Sub

Private Sub CBO_SERVICE_Dirty(Cancel As Integer) If CBO_SERVICE = "BIKE SERVICE" Then
    TextDate.DefaultValue = "Date()-Weekday(Date())+30" End If End Sub

没有显示错误但什么也没发生，呵呵，请帮忙

【问题讨论】：

如果这是 Microsoft access，请使用 [ms-access] 标签，而不是 [access]
谢谢，有什么解决办法吗？

标签： vba ms-access

【解决方案1】：

您可以设置默认值 - 这是一个字符串 - 像这样：

Me!TextDate.DefaultValue = "#" & Format(DateAdd("d", -Weekday(Date) + 30, Date), "yyyy\/mm\/dd") & "#"

【讨论】：