Row_Number() в операторе выбора Access

Это запрос, который вы хотите:

SELECT ROW_NUMBER() OVER (ORDER BY bp.bookID, bp.pageOrder, pp.placeID) AS uniqueNumber,
       pp.pageID, pp.placeID
FROM booksAndPages AS bp INNER JOIN
     pagesAndPlaces AS pp
     ON bp.pageID = pp.pageID;

Вы можете получить тот же результат, используя коррелированный подзапрос. Сложнее и дороже, но возможно:

SELECT (select count(*)
        from booksAndPages AS bp2 INNER JOIN
             pagesAndPlaces AS pp2
             ON bp2.pageID = pp2.pageID
        where bp2.bookID < bp.bookID or
              (bp2.bookID = bp.bookID and bp2.pageOrder < bp.pageOrder) or
              (bp2.bookID = bp.bookID and bp2.pageOrder = bp.pageOrder and
               bp2.placeId <= pp.PlaceId
              )
       ) as uniqueNumber,
       pp.pageID, pp.placeID
FROM booksAndPages AS bp INNER JOIN
     pagesAndPlaces AS pp
     ON bp.pageID = pp.pageID;

Это предполагает, что комбинация bookId, pageOrder, placeId` уникальна.

Я знаю, что это старый вопрос, но это был лучший поиск, и я не видел других решений в Интернете, поэтому надеюсь, что это поможет другим.

Мое решение работает для любого набора данных независимо от того, имеет он уникальный идентификатор или нет.

Добавьте следующий код VBA в модуль:

Public row as Variant

Function RowNum(dummy) As Integer
    row = row + 1
    RowNum = row
End Function

Function GetRowNum(dummy) As Integer
    GetRowNum = row
End Function

Function ResetRowNum()
    row = 0
End Function

А теперь пример запроса:

SELECT Table1.Field1, Table1.Field2, RowNum([Field1]) AS RowId, 
    "Row: "&GetRowNum([Field1]) AS RowText
FROM Table1

Вы можете добавить любой «ORDER BY» или даже «GROUP BY», если хотите. Вы можете использовать любое поле, которое будет в выходных данных запроса, в качестве входных данных для RowNum и GetRowNum. Важно отметить, что используйте RowNum только в первый раз, когда вам нужен номер строки, и используйте GetRowNum каждый раз после этого. Это делается для того, чтобы одна строка не увеличивала значение счетчика более одного раза.

Последнее, что вам нужно сделать, это создать макрос, который запускает ResetRowNum, и запускать его после каждого запроса, который вы используете с этим методом, или, если вы выполняете серию запросов через макрос или VBA, обязательно запускайте ResetRowNum после каждого запроса. который использует эти функции.

Также избегайте просмотра таблицы, так как кажется, что при прокрутке формулы постоянно пересчитываются, что приводит к постоянному увеличению чисел.

Запрос для сортировки и/или группировки

SELECT Table1.Field1, 
       Table1.SomeDate, 
       Table1.Field2,
       RowNumber([Field1]) AS RowId,
       "Row: " & GetRowNum([Field1]) AS RowText
FROM Table1
ORDER BY Table1.Field1, Table1.SomeDate;

Field1  Field2  RowId   RowText
James   2   1   Row: 1
James   35  2   Row: 2
James   6   3   Row: 3
James   86  4   Row: 4
James   67  5   Row: 5
James   35  6   Row: 6
Maria   4   1   Row: 1
Maria   54  2   Row: 2
Samuel  46  1   Row: 1
Samuel  32  2   Row: 2
Samuel  7   3   Row: 3
Thomas  43  1   Row: 1
Thomas  65  2   Row: 2
Thomas  5   3   Row: 3

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