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

Discussion in 'Access VBA Modules' started by Opal, Mar 1, 2010.

  1. Opal

    Opal Guest

    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?
     
    Opal, Mar 1, 2010
    #1
    1. Advertisements

  2. Opal

    vanderghast Guest

    Easier.

    Add a Text box.

    Make its control source property =1

    Make its Running Sum property Over All


    That's all.


    Vanderghast, Access MVP
     
    vanderghast, Mar 1, 2010
    #2
    1. Advertisements

  3. Opal

    Opal Guest

    Thank you.... I'm always trying to make it harder on myself ;-)
     
    Opal, Mar 1, 2010
    #3
  4. Opal

    Guest

    in Report You can use Running Sum Property, But in Form You cannot use running Sum, So You need to use Code Above-mention
     
    , Dec 19, 2013
    #4
    1. Advertisements

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 (here). After that, you can post your question and our members will help you out.