Generate Sequenced Numbers For A Report

[aldo]

I have a report that prints blank serialized forms and I basically need a query to generate a field where if I request 4 sheets to be printed the list generated would look like this:

IDNo
1
2
3
4


-aldo

 

[pdx_man]

Do this in your report. Have an unbound control that you update with an incremented counter. Increment that counter in the DetailFormat event:

Option Compare Database
Option Explicit
Dim i As Long

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 If FormatCount = 1 Then i = i + 1
 Me.MyClaimNo = i
End Sub