有网友问到如何在窗体显示的记录数是表中对应的记录数。即第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
