显示窗体“第n条记录 共m条记录”的函数

竹笛

调用方法：
=RecordNumber("第",me)'me指当前窗体
可在文框的控件来源中写：=RecordNumber("第",forms!当前窗体名)
在代码的窗体成为当前事件中写：me.文本框=RecordNumber("第", Me)
结果虽相同，但在代码中的要快！
但是，在代码的窗体成为当前事件中写：Me.标签.Caption = RecordNumber("第", Me)
用标签，速度明显要比前两个用法还要快！
Function RecordNumber(pstrPreFix As String, pfrm As Form) As String
On Error GoTo RecordNumber_Err
Dim rst
Dim lngNumRecords As Long
Dim lngCurrentRecord As Long
Dim strTmp As String
        Set rst = pfrm.RecordsetClone
rst.MoveLast
rst.Bookmark = pfrm.Bookmark
lngNumRecords = rst.RecordCount
lngCurrentRecord = rst.AbsolutePosition + 1
strTmp = pstrPreFix & " " & lngCurrentRecord & " 页，" & " 共 " & lngNumRecords & " " & "页"
RecordNumber_Exit:
On Error Resume Next
RecordNumber = strTmp
rst.Close
Set rst = Nothing
Exit Function
RecordNumber_Err:
Select Case Err
Case 3021
strTmp = "New Record"
Resume RecordNumber_Exit
Case Else
strTmp = "#" & Error
Resume RecordNumber_Exit
End Select
End Function

ASLXT

谢谢，找了很久的东东。