MyTetra Share
Делитесь знаниями!
Нумерация записей в запросе по аргументу ID
19.07.2018
06:41
Раздел: VBA - Access - msa.polarcom.ru - 03 Запросы

Нумерация записей в запросе по аргументу 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

 
MyTetra Share v.0.52
Яндекс индекс цитирования