输入日期时如何在输入字符串中允许dayname？

Question

在我们的Access连续表单中，我们希望提供一个组合框，它将显示7天的日期名称作为下拉列表的一部分。

组合框绑定到日期字段。我们可以在Form Load事件中轻松填充组合框，以ddd dd/MM/yy格式显示日期，并在表单上愉快地显示现有日期，如下所示：

但是，如果您尝试从下拉列表中选择，则会收到错误：
您输入的值对此字段无效。

涉及未绑定组合框的解决方案不起作用，因为这是一种连续的形式。

这是一个细节，因为日期名称不是绝对必要的，并且组合在没有日期名称的情况下工作正常。然而，这是一个重型数据输入表格，因此对最终用户进行优化非常重要，并且让日期名称可以帮助他/她。

Answer 1

我重新创建了问题，我想出的解决方案是有一个组合框，其中行源有两列，您使用ColumnWidths隐藏第一列，第二列是格式化的日期值。因此，当您在组合框中选择某些内容时，该值是未指定的日期值，不会产生任何问题。

像这样填充组合：

Dim i As Integer
For i = 0 To 6
    Dim item As Date
    item = DateAdd("d", i, weekCommencingDate)
    cboTimeDate.AddItem item & ";" & Format(item, "ddd dd/MM/yy")
Next i