在查询访问2010中创建行号字段

Question

我使用下面的函数创建行号字段，除非我多次运行查询，否则它可以正常工作。例如，如果您运行查询并且有30行，则下次运行查询或仅过滤查询时，它将从31开始。

Public StoredRowNumber As Variant
Function Rownumber(TheField) As Integer

    If OldlastField = TheField Then
        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
End Function

我期望的是每次运行查询时从1开始计数的函数。

有人可以提供帮助吗？

感谢。