Печать номеров в отчет

@ИннаМакарова · Регистрация: 11.01.2011

Студворк — интернет-сервис помощи студентам

Добрый день!
к примеру-есть таблица с номерами

Код	Номера
1	46159
2	46166
3	46167
4	46168
5	46169
6	46170
7	46171
8	46172
9	46173
10	46174
11	46175
12	46176
13	46194
14	46206
15	46216
16	46217
17	46218
18	46219
19	46220
20	46221
21	46222
22	46223
23	46224
24	46225

в отчет должно выходить, даже не знаю как правильно это описать
вот пример:

кол-во	номер
1	46159
11	46166-46176
1	46194
1	46206
10	46216-46225

что-то не пойму как?
помогите

спасибо

@alvk · 09.11.2011, 15:47

чего-то вы не договариваете...

@ИннаМакарова · 09.11.2011, 16:04 **[ТС]**

не знаю как правильно это описать
т.е. печатаются номера в отчет, с подсчетом их в другой ячейке
т.е. если номер один и после него номер идет не подряд то и пишем 1шт номер такой
а если номера подряд то пишется первый и последний номер (из этой кучки) и кол-во шт
и т.д.

это часто применяется в бухгалтерии (наверное)

@Сергей1980 · 09.11.2011, 19:51

То есть в смысле:
К примеру есть значения поля:
1
2
3
4
8

необходимо найти пропущенные номера 5,6,7,8 ?
И чтобы список из этих пропущенных номеров где то высвечивался?
Сбоку например,в соседнем поле?

@ИннаМакарова · 10.11.2011, 07:12 **[ТС]**

нет
необходимо составить отчет только из тех номеров которые есть (в примере)
но чтобы не выводить все номера в отчет, при экономии бумаги
показать что такие то номера идут подряд, их писать первый и последний и сколько их в этой группе получилось
как показано в примере

Сообщение от ИннаМакарова

Добрый день!
к примеру-есть таблица с номерами
Номера
- 46159

- 46166
- 46167
- 46168
- 46169
- 46170
- 46171
- 46172
- 46173
- 46174
- 46175
- 46176

- 46194

- 46206

- 46216
- 46217
- 46218
- 46219
- 46220
- 46221
- 46222
- 46223
- 46224
- 46225

в отчет должно выходить, даже не знаю как правильно это описать
вот пример:
кол-во номер
1 -- 46159
11 - 46166-46176
1 -- 46194
1 -- 46206
10 - 46216-46225
что-то не пойму как?
помогите

спасибо

в магазин завезли 1000 товара одного вида, кодовые номера идут подряд
продали какие то (10 товаров),
в конце месяца отчет
какие номера остались?
все необходимо занести в один столбец
получится 990 строк,
а можно сократить - если номера идут подряд
между ними какой то номер продан.
и опять подряд
соответственно их можно вывести одной строкой, через тире
и с подсчетом кол-ва этик товаров

в общем что-то в этом роде
застряла

shanemac51 · 10.11.2011, 08:17

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub a111109_0758()
Dim rst As DAO.Recordset
 
Dim s1, s2
Dim j1 As Long, j2 As Long
s1 = "select * from tab00 order by nn"
Set rst = CurrentDb.OpenRecordset(s1)
Debug.Print Now
 
Do While rst.EOF = False
s1 = rst!nn
s2 = ""
j1 = rst!nn
j2 = 0
Do While rst.EOF = False
If rst!nn > j1 Then
Exit Do
End If
j1 = j1 + 1
j2 = j2 + 1
s2 = rst!nn
 
rst.MoveNext
Loop
''''''''''''''''''''''''
'отладочная печать
'
Debug.Print j2; s1, IIf(j2 > 1, "-" & s2, "")
''''''10.11.2011 8:08:29
'''''' 1  46159
'''''' 11  46166    -46176
'''''' 1  46194
'''''' 1  46206
'''''' 10  46216    -46225
 
''''''''''   далее -------------------------
'запись в рабочую таблицу и создать обычный отчет с нее
'''''
'или               -------------------------
'формирование НТМ отчета для просмотра c грубой печатью в броузере
'или чистовой печати в word-е
'освоить прием не сложно'
'''''''''''''''''''''''
Loop
rst.Close
Set rst = Nothing
End Sub

@ИннаМакарова · 10.11.2011, 10:10 **[ТС]**

спасибо за ответ,
но я наверное переработала, что-то не получается
а можно на примере

спасибо

глюк есть глюк

shanemac51 · 10.11.2011, 13:53

примерно так

@ИннаМакарова · 10.11.2011, 14:15 **[ТС]**

Спасибо, ОГРОМНОЕ,
как можно в репутацию поставить ВАМ побольше спасибо

shanemac51 · 10.11.2011, 14:34

Сообщение от ИннаМакарова

Спасибо, ОГРОМНОЕ,
как можно в репутацию поставить ВАМ побольше спасибо

может +1 нажать несколько раз ---никогда не думала об этом

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере 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-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	09.11.2011, 15:47
	чего-то вы не договариваете... 0

@ИннаМакарова 3 / 3 / 0 Регистрация: 11.01.2011 Сообщений: 140 Записей в блоге: 2
	09.11.2011, 16:04 [ТС]
	не знаю как правильно это описать т.е. печатаются номера в отчет, с подсчетом их в другой ячейке т.е. если номер один и после него номер идет не подряд то и пишем 1шт номер такой а если номера подряд то пишется первый и последний номер (из этой кучки) и кол-во шт и т.д. это часто применяется в бухгалтерии (наверное) 0

@Сергей1980 547 / 377 / 16 Регистрация: 17.12.2009 Сообщений: 991
	09.11.2011, 19:51
	То есть в смысле: К примеру есть значения поля: 1 2 3 4 8 необходимо найти пропущенные номера 5,6,7,8 ? И чтобы список из этих пропущенных номеров где то высвечивался? Сбоку например,в соседнем поле? 0

@ИннаМакарова 3 / 3 / 0 Регистрация: 11.01.2011 Сообщений: 140 Записей в блоге: 2
	10.11.2011, 14:15 [ТС]
	Спасибо, ОГРОМНОЕ, как можно в репутацию поставить ВАМ побольше спасибо 0