MS Access 组合框/VBA答案

【问题标题】：MS Access Combobox/VBAMS Access 组合框/VBA
【发布时间】：2021-02-03 21:32:09
【问题描述】：

整个下午；

我正在寻找有关我一直在开发的 MS Access 2016 应用程序的一些建议。我有一个带有组合框的表单，该组合框来自包含一周开始日期（星期一）和一周结束日期（星期日）的表格。

我希望当表单打开时，组合框会跳转到本周的星期一。例如，今天是第三天，所以组合框会预先选择 2/1/21 - 2/7/211。

有没有办法做到这一点，或者这是一个白日梦？

任何建议将不胜感激。

【问题讨论】：

欢迎来到 StackOverflow。请阅读此帮助文档，了解如何提出可以得到很好答案的问题。 stackoverflow.com/help/how-to-ask
要获得一个体面的答案，您必须说明您的表格是什么样的（字段、数据类型等）以及有关组合框的详细信息（列、行源、绑定列等）。

标签： vba combobox ms-access-2016

【解决方案1】：

我想会是这样的。

Private Sub Command_Click()
Dim sDate As String
Dim i As Integer

    sDate = "01/01/" & Year(Date)
    
    If Day(CDate(sDate)) <> vbMonday Then
        sDate = DateAdd("d", vbMonday - Day(CDate(sDate)) - 1, CDate(sDate))
    End If
    
    For i = 0 To 51
        Combo1.AddItem Format(DateAdd("ww", i, sDate), "mmm dd, yyyy")
        If Date > DateAdd("ww", i, sDate) And Date < DateAdd("ww", i + 1, sDate) Then
            Combo1.ListIndex = i
        End If
    Next i

End Sub

另外，请参阅下面链接中的相关讨论。

MS Access 2010 (Design View): return Monday of the current week with Monday as 1st day of the week

【讨论】：