VBA, MS Access MS Access в примерах

Нумерация записей в запросе по аргументу ID

Public Function Numeration(recID As Variant) As Long
'Нумерация записей в запросе по повторяющемуся аргументу
'(Номер записи среди нескольких с одинаковым аргументом + Аргумент меняется)
'--------------------------------------------------------------------------
Static n As Long
Static id As Long
'--------------------------------------------------------------------------
On Error GoTo Numeration_Err
    If id <> recID Then
        id = CLng(recID)
        n = 1
    Else
        n = n + 1
    End If
    
    Numeration = n

Numeration_Bye:
    Exit Function

Numeration_Err:
    Err.Clear
    Numeration = 0
    Resume Numeration_Bye
End Function



Получим:

Picture

Назад ToTop
L.E. 07.07.2023
Рейтинг@Mail.ru