包含多个数据的日期函数计数VBA Access 2010

Question

我想在一个查看子表单的表单中设置一个计算控件，并计算那里的日期。子表单中包含多个数据的日期。

示例：

6/10/17 99203
6/10/17 G0283
6/10/17 97014
6/13/17 G0283
6/13/17 97110

我想要方框2，而不是5。

Answer 1

您可以在父表单的 OnCurrent 事件中输入此代码：

Dim rs As DAO.Recordset
Dim DateCount As Integer
Dim LastDate As Date

Set rs = Me!YourSubformControl.Form.RecordsetClone

While Not rs.EOF
    If DateDiff("d", LastDate, rs!YourDateField.Value) <> 0 Then
        DateCount = DateCount + 1
        LastDate = rs!YourDateField.Value 
    End If
    rs.MoveNext
Wend
rs.Close

Me!YourDateCountTextbox.Value = DateCount