Нужно разобраться как печатать отчет с повторениями / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Нужно разобраться как печатать отчет с повторениями

5 сообщений из 5, страница 1 из 1

Нужно разобраться как печатать отчет с повторениями

#39150277

alexx09

Гость

Проблема такая, мне нужно распечатать ценники на каждый товар.
Пример: данные в таблице

Компьютер ı3 - 0.5Tb - цена 100р. - 5 шт.
Компьютер ı5 - 1Tb - цена 200р. - 5 шт.

мне нужно чтоб он распечатал 10 этикеток с ценой и характеристиками на все компютеры
а у меня получается только 2 этикетки(( (тоесть печатается каждая строка только 1 раз)

как мне сделать чтобы печаталось количество повторений каждой строки? а это количество указано в таблице что я указал в примере выше
Заранее спасибо

Товаров очень много так что писать для каждого товара по несколько строк это очень проблематично

Есть какойнибудь выход? желательно не сложный

...

Рейтинг:

0 / 0

19.01.2016, 08:47

| Ответить | Цитировать | Написать

Нужно разобраться как печатать отчет с повторениями

#39150300

MrShin

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

Можно, например, заменить запрос на нечто подобное:

Код: sql

SELECT * FROM Labels AS L LEFT JOIN (SELECT counter FROM numbers)  AS n ON L.quantity >= n.counter

Здесь numbers - таблица с колонокой counter с последовательными числами от 1 и до максимально возможного количества экземпляров. В принципе можно с небольшими изменениями использовать любую таблицу, гарантировано содержащую строк больше, чем максимальное количество экземпляров, но я предпочитаю специальную таблицу, в которрую добавляю записи автоматом по необходимости перед генерацией строк. Также наличие колонки с последовательными числами упрощает и ускоряет основной запрос.

...

Рейтинг:

0 / 0

19.01.2016, 09:40

| Ответить | Цитировать | Написать

Нужно разобраться как печатать отчет с повторениями

#39150495

alexx09

Гость

у меня таблица, вывожу через отчеты, в запросах и в ВБА я не мастер(((
Хотел найти более простой способ решения этой проблемы
Вобще все таблицы с данными у меня в Экселе, думал что через аксес у меня получится печатать ценники, а нет((

...

Рейтинг:

0 / 0

19.01.2016, 12:48

| Ответить | Цитировать | Написать

Нужно разобраться как печатать отчет с повторениями

#39150543

MrShin

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

Так в чем проблема посмотреть на базу, найти максимальное количество и руками сделать таблицу с номерами с запасом? VBA тут не нужен
А в самом отчете заменить RecordSource с таблицы на мой запрос, где заментить Labels на актуальную таблицу. Редактировать запрос, правда, придется руками в текстовом виде, т.к. сравнения, отличного от "=" в джоинах визуальный конструктор не понимает. Как вариант можно заменить временно ">=" на "=", отредактировать в визуальном конструкторе, а потом перейти в SQL и поменять оператор.

Ну а если нужен код для генерации, можно взять такой вот, заменив опять же Labels и Quantity на актуальные:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Public Function GenerateNumbers()
Dim lngMaxQty As Long
Dim lngMaxNumber As Long
Dim rst As Recordset
Dim i As Integer

lngMaxQty = Nz(DMax("Quantity", "Labels", 0)
lngMaxNumber = Nz(DMax("Counter", "Numbers"), 0)

If lngMaxQtyMsrmnt <= lngMaxNumber Then
    Exit Function
End If

Set rst = CurrentDb.OpenRecordset("Numbers")

For i = 1 To lngMaxQty - lngMaxNumber
    rst.AddNew
    rst.Update
Next

rst.Close
Set rst = Nothing
End Function

...

Рейтинг:

0 / 0

19.01.2016, 13:16

| Ответить | Цитировать | Написать

Нужно разобраться как печатать отчет с повторениями

#39150647

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

alexx09, смотри, есть два варианта
1. С запросом Digits, например - Формирование отчета
2. Программно в отчёте создавать повторы - NextRecord

Ищи, тут есть всё

...

Рейтинг:

0 / 0

19.01.2016, 14:25

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Нужно разобраться как печатать отчет с повторениями

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=45&tid=1614049]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	62ms
get topic data:	11ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	332ms

total:	490ms