Kod:
Public StoredRowNumber As Variant
Public OldlastField As Variant
Function RowNumber(TheField) As Integer
If OldlastField = TheField Then
'nada
Else
ResetRowNum
End If
StoredRowNumber = StoredRowNumber + 1
RowNumber = StoredRowNumber
OldlastField = TheField
End Function
Function GetRowNum(TheField) As Integer
GetRowNum = StoredRowNumber
End Function
Function ResetRowNum()
StoredRowNumber = 0
'OldFieldItem = Null
End Function
"undefined function RowNumber in expression"