Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 1
Регистрация: 16.09.2012
Сообщений: 53

Запись значения счетчика принудительно

08.05.2013, 15:32. Показов 1158. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно в запросе ввести дополнительно счетчик, нашла в инете модуль:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
 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
Затем создала запрос:
SQL
1
2
3
SELECT DISTINCT *, GetNextNumber() AS MyCounter
FROM ВыборкаНаименованияПринтера
WHERE startNumber()=TRUE;
И не работает, везде еденицы пишет(((
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.05.2013, 15:32
Ответы с готовыми решениями:

Принудительно вывести запись в запрос не попадающая по условию
Добрый день! Подскажите плиз, нужно отобразить принудительно запись в поле партнер .Партнер , по условию она не попадает. Как в условиях...

Подстановка значения на основе текущего значения счетчика цикла
for (var i = 0; i < 400; i++) { var div = document.createElement('div'); div.className = 'cell'; matrix.appendChild(div); ...

Не добавляется запись, из-за поле счётчика
Почему выдаёт ошибку помогите? 0 полем, является поле Code, в access тип данных счётчик. Не хочет его автоматически заполнять. if...

2
Эксперт MS Access
26826 / 14506 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
08.05.2013, 16:17
Цитата Сообщение от _Morrigan_ Посмотреть сообщение
И не работает, везде еденицы пишет(((
Видимо Вы исполняете запрос в MS Jet, для которого характерно, что функция без параметров или с константным параметром, исполняется только один раз - на старте запроса. Можно добавить в Вашу функцию GetNextNumber() параметр - какое-нибудь поле запроса ВыборкаНаименованияПринтера и избавитесь от единиц. Но это не самый лучший выход. Если вдруг захотите избавиться от дистинкта в запросе, то в процессе перехода по записям запроса, расчетная величина счетчика будет постоянно пересчитываться и изменяться. Что Вас явно не удовлетворит.

Если в запросе ВыборкаНаименованияПринтера есть уникальное поле, то счетчик можно сделать иначе
SQL
1
2
3
SELECT DISTINCT *, 
   (SELECT SUM(1) FROM ВыборкаНаименованияПринтера v WHERE v.УникальноеПоле<=z.УникальноеПоле) AS MyCounter
FROM ВыборкаНаименованияПринтера z
2
0 / 0 / 1
Регистрация: 16.09.2012
Сообщений: 53
08.05.2013, 16:40  [ТС]
Я поэтому и хочу ввести счетчик, чтобы он пронумеровал строки, в дальнейшем мне нужно объединить 2 выборки, обе выборки состоят из 1 столбца и 2 строк, а мне нужно получить
столбец1выборки столбец2выборки
строка1 строка1
строка2 строка2
без ключевого поля так не получается((
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.05.2013, 16:40
Помогаю со студенческими работами здесь

Создать программу, в которой словарь будет принимать в качестве ключа значения счётчика, а в качестве значения, то,
Создать программу, в которой словарь будет принимать в качестве ключа значения счётчика, а в качестве значения, то, что введет...

Вывод значения счетчика
Такая ситуация, есть цикл, который выводит из базы n-нное количество значений в столбик При каждой итерации прибавляется значение к...

Поменять значения счетчика
http://multi-up.com/273548 Нужно поменять значени счетчика, то есть что бы было так: Code Марка авто 1 Audi 2 ...

Увеличить значения счетчика в массиве
Пытаюсь в сделать в массиве операцию b аналогичной i++ Но среда выдает ошибку - Only assignment, call, increment, decrement, and...

Определение следующего значения счетчика
Доброе время суток, коллеги! Помогите советом. На форме есть поле типа счетчик, используется для автоматической нумерации накладных. Записи...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru