研发埠

标题: 在Access中如何显示窗体“第n条记录共m条记录”的函数？ [打印本页]

作者: 邓英超 时间: 2013-7-4 10:37
标题: 在Access中如何显示窗体“第n条记录共m条记录”的函数？

作者: 淡写轻描 时间: 2013-7-4 11:01
调用方法：=RecordNumber(&quot;第&quot;,me)&#39;me指当前窗体可在文框的控件来源中写：=RecordNumber(&quot;第&quot;,forms!当前窗体名) 在代码的窗体成为当前事件中写：me.文本框=RecordNumber(&quot;第&quot;, Me)结果虽相同，但在代码中的要快！但是，在代码的窗体成为当前事件中写：Me.标签.Caption = RecordNumber(&quot;第&quot;, Me)用标签，速度明显要比前两个用法还要快！Function RecordNumber(pstrPreFix As String,pfrm As Form) As StringOn Error GoTo RecordNumber_ErrDim rstDim lngNumRecords As LongDim lngCurrentRecord As LongDim strTmp As String Set rst = pfrm.RecordsetClonerst.MoveLastrst.Bookmark = pfrm.BookmarklngNumRecords = rst.RecordCountlngCurrentRecord = rst.AbsolutePosition + 1strTmp = pstrPreFix & &quot; &quot;& lngCurrentRecord & &quot; 页，&quot; & &quot;共 &quot; & lngNumRecords & &quot; &quot; & &quot;页&quot;RecordNumber_Exit:On Error Resume NextRecordNumber = strTmprst.CloseSet rst = NothingExit FunctionRecordNumber_Err:Select Case ErrCase 3021strTmp = &quot;New Record&quot;Resume RecordNumber_ExitCase ElsestrTmp = &quot;#&quot; & ErrorResume RecordNumber_ExitEnd SelectEnd Function

欢迎光临研发埠 (http://bbs.yanfabu.com/)