Скачать
How to add serial number in Ms access query
Автор: Present_Rider
Загружено: 2022-12-18
Просмотров: 2045
Описание:
I think very helpful demonstration for Access lover.
Code
Private lngRowNumber As Long
Private colPrimaryKeys As VBA.Collection
Public Function RowNumber(UniqueKeyVariant As Variant) As Long
Dim lngTemp As Long
On Error Resume Next
lngTemp = colPrimaryKeys(CStr(UniqueKeyVariant))
If Err.Number Then
lngRowNumber = lngRowNumber + 1
colPrimaryKeys.Add lngRowNumber, CStr(UniqueKeyVariant)
lngTemp = lngRowNumber
End If
RowNumber = lngTemp
End Function
Public Function ResetRowNumber() As Boolean
Set colPrimaryKeys = New VBA.Collection
lngRowNumber = 0
ResetRowNumber = True
End Function
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
