有网友问到如何在窗体显示的记录数是表中对应的记录数。即第6条记录就是第6条。

可以利用了=[CurrentRecord]来显示当前记录。但是在订单查询中双击查找筛选后，当数据只有一条时就只会显示是1。不是第6条记录。

我们可以通过下面的代码来处理

Private Sub Form_Current()

    Dim rs As DAO.Recordset

    Dim i As Long

    Set rs = CurrentDb.OpenRecordset("订单表", dbOpenSnapshot).Clone

    Do While Not rs.EOF

        If rs.Fields("订单编号") = Me.订单编号 Then

            i = rs.AbsolutePosition + 1

            Exit Do

        End If

        rs.MoveNext

    Loop

    Me.记录条数 = i

    rs.Close

    Set rs = Nothing

End Sub