默认为组合框中的当前日期范围

Question

我有一个组合框，其中的值来自另一个表。该列表包含日期跨度，即。 2014年12月7日至2014年12月14日，按日期顺序排列。值来自的表也包含开始日期（即12/7/2014）和结束日期（2014年12月14日）的字段。为了方便用户，我想将当前日期范围显示为组合框中的默认值。因此，今天，它不会是2014年12月7日至2014年12月14日，而是将于2015年1月18日至2015年1月31日 - 因为今天的日期是2015年1月23日。我迷失了如何做到这一点。

组合框的行源是：SELECT tblPayDates.DateSpan，tblPayDates.PayBegDate，tblPayDates.PayEndDate FROM tblPayDates

这是一个带有Access前端的SQL数据库。任何帮助将不胜感激！提前致谢！我甚至不确定要google什么。

Answer 1

DateSpan似乎是您的绑定列，因此您可以获取范围并将组合设置为该值。

功能

Function ThisFortnight()

    StartDate = Date - Weekday(Date, vbUseSystemDayOfWeek)
    EndDate = StartDate + 13

    ThisFortnight = StartDate & " to " & EndDate
End Function

设置组合

Me.MyCombo = ThisFortnight