Главная » Статьи » VBA

Добавить счетчик в запрос MS Access
При необходимости пронумеровать записи из некоторой таблицы, используя запрос или просто в любом запросе. Можно создать таблицу с полем типа "счетчик" и записать результат запроса в нее, а можно воспользоваться более простым решением. Вот одно из решений этой задачи:
Код модуля:
Public curNumber As Long

Public Function startNumber() As Boolean
 curNumber = 0
 startNumber = True
End Function 

Public Function GetNextNumber(anyField) As Long
 curNumber = curNumber + 1
 GetNextNumber = curNumber
End Function 
Использование в запросе:
 
SELECT DISTINCT *, GetNextNumber([AnyField]) AS MyCounter 
FROM TableNAme 
WHERE startNumber()=True; 
 
Категория: VBA | Добавил: sqlshop (17.12.2012)
Просмотров: 5502 | Комментарии: 1 | Теги: запросс, Identity, счетчик | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]