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


O

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?
 
Ad

Advertisements

V

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
 
Ad

Advertisements

F

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

=RowNum([form]) problem 2
Numbering records 6
Error 3020 0
RowNum using Numbers 2 Roman code 6
Item numbers? 2
Modules dont work any more? 5
table form exit macro add a table row 10
carry over 1

Top