时间戳

首页 > 解决方案 > 通过组合框更改动态默认值日期

vba - 通过组合框更改动态默认值日期

问题描述

我有 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

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

标签： vbams-access

解决方案

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

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

推荐阅读