S
Steve Warren
On a report I am able to have item numbers for transactions, however I can
not figure out how to create item numbers on a subform?
not figure out how to create item numbers on a subform?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
V
Van T. Dinh
S
Steve Warren
Works in 97 but error problems in 2003 can you help?
D
Douglas J. Steele
Works fine for me using Access 2003.
What error are you getting?
What error are you getting?
S
Steve Warren
Error 3021 Because of a null field. It works fine until I scroll down a
list and get to a null field. It also looks like itheir is coding for it,
when i hit debug it stops at .Bookmark = frm.Bookmark
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
list and get to a null field. It also looks like itheir is coding for it,
when i hit debug it stops at .Bookmark = frm.Bookmark
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