=RowNum([Form]) - equivalent in a report?

[Opal]

I am running Access 2003 and found the following function:

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
'Purpose: Numbering the rows on a form.
'Usage: Text box with ControlSource of: =RowNum([Form])

With frm.RecordsetClone
.Bookmark = frm.Bookmark
RowNum = .AbsolutePosition + 1
End With

Exit_RowNum:
Exit Function

Err_RowNum:
If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row.
Debug.Print "RowNum() error " & Err.Number & " - " &
Err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function

Which works really well on my forms. Is it possible to adapt
something similar
to use on a report?

 

[vanderghast]

Easier.

Add a Text box.

Make its control source property =1

Make its Running Sum property Over All


That's all.


Vanderghast, Access MVP

 

[Opal]

Thank you.... I'm always trying to make it harder on myself ;-)

 

[familycheachim]

in Report You can use Running Sum Property, But in Form You cannot use running Sum, So You need to use Code Above-mention