Access VBA：重置表单上的日期

Question

我正在尝试创建一个带有 VBA 代码（单击时）的按钮来清空表单，以便启动新条目或重新启动条目。以下代码有效...

Public Sub clearForms()
Dim frm As Form
Set frm = Forms!Person_Name

Dim ctl As Control

For Each ctl In frm.Controls
    With ctl
        Select Case .ControlType
            Case acTextBox
                .Value = " "
            Case acCheckBox
                .Value = False
            Case acComboBox
                .SetFocus
                .SelText = " "
            Case acListBox
                .Value = Null
            Case acDate

        End Select
    End With
Next ctl

MsgBox "forms cleared"
End Sub

除了我拥有的 Date 字段之外的所有内容。我不知道如何将日期重置为 00:00:00:00 或只是一个空框。我更喜欢空盒子，但找不到任何有关如何操作的信息。谢谢！

更新代码：

Public Sub clearForms()
Dim frm As Form
Set frm = Forms!Person_Name

Dim ctl As Control

For Each ctl In frm.Controls
    With ctl
        Select Case .ControlType
            Case acTextBox
                .Value = " "
            Case acCheckBox
                .Value = False
            Case acComboBox
                .SetFocus
                .SelText = " "
            Case acListBox
                .Value = Null
            Case acDate
                .Value = #12:00:00 AM#
        End Select
    End With
Next ctl

MsgBox "forms cleared"
End Sub

Answer 1

即：

Case acDate
    .Value = #00:00:00#

但是，如上所述，没有“日期”控件，因此您可以简化为：

For Each ctl In frm.Controls
    With ctl
        Select Case .ControlType
            Case acTextBox, acComboBox, acListBox
                .Value = Null
            Case acCheckBox
                .Value = False
        End Select
    End With
Next ctl