Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.05.2013, 16:08   #1
_Morrigan_
Новичок
Джуниор
 
Регистрация: 08.05.2013
Сообщений: 1
По умолчанию Запросы на добавление

Привет. Нужно в запросе ввести дополнительно счетчик, нашла в инете модуль:
Public curNumber As Long

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

Public Function GetNextNumber() As Long
curNumber = curNumber + 1
GetNextNumber = curNumber
End Function
Создала новый модуль, вставила туда этот текст и сохранила как MyCounter
Затем создала запрос:
SELECT DISTINCT *, GetNextNumber() AS MyCounter
FROM ВыборкаНаименованияПринтера
WHERE startNumber()=True;
И не работает, везде еденицы пишет(((

А может можно объединить 2 запроса на выборку, оба содержат одинаковое кол-во записей, но без соединения этих таблиц? Т.е. есть 2 запроса в которых по 1 столбцу и 3 строки, из них нужно получить 2 столбца и те же 3 строки...
_Morrigan_ вне форума Ответить с цитированием
Старый 09.05.2013, 08:21   #2
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

Модуль:

Public curNumber As Long

Public Function GetNextNumber(i As Long) As Long
curNumber = curNumber + 1
GetNextNumber = curNumber
End Function

Запрос:

SELECT DISTINCT *, GetNextNumber([ВыборкаНаименованияПринтера].[Имя_любого_числового_поля]) AS MyCounter
FROM ВыборкаНаименованияПринтера

Если же это в отчете необходимо выполнить нумерацию, то в свойстве "Данные" соответствующего поля (овно "Свойства", закладка "Данные") написать: "=1" (без кавычек), а для свойства «Сумма с накоплением» задать, например, "Для группы".
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 09.05.2013, 20:03   #3
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте _Morrigan_.
"..в запросе ввести дополнительно счетчик.." - возможно Вы имели ввиду поле нумерации,
в этом случае применение дополнительной функции не обязательно,
поле нумерации может отображаться средствами SQL, например так:
Код:
SELECT (SELECT Count(*) FROM Table1 T WHERE T.Поле1<=T1.Поле1) AS Номер, T1.*
FROM Table1 AS T1
ORDER BY T1.Поле1
Евгений.

Последний раз редактировалось Teslenko_EA; 10.05.2013 в 00:11.
Teslenko_EA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавление данных в таблицу через запросы!! Марат05 C++ Builder 6 09.05.2012 12:52
Запросы Jrcfyf БД в Delphi 0 20.04.2012 10:37
Запросы в БД Valecus Microsoft Office Access 6 11.11.2010 21:55
Запросы ара Помощь студентам 20 13.05.2010 11:54