Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.51/35: Рейтинг темы: голосов - 35, средняя оценка - 4.51
 Аватар для rvafexa
96 / 17 / 4
Регистрация: 13.08.2012
Сообщений: 490

Как создать штрихкод?

10.07.2023, 06:47. Показов 11307. Ответов 65
Метки нет (Все метки)

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

как создать штрихкод в аксесс, можете выложить пример са шрифтом?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.07.2023, 06:47
Ответы с готовыми решениями:

Возникла потребность напечатать штрихкод - не знаю как
Возникла потребность напечатать штрихкод - не знаю как, точнее Crystal report говорит надобны шрифты, но какие и где взять - не знаю ...

Как растянуть штрихкод
Есть обработка для печати ценников со штрихкодами. При печати получаются отступы от краев. Как растянуть штрихкод на всю ширину? Использую...

Как организовать штрихкод 128?
Как организовать данный штрихкод 128. Помогите пожалуйста

65
Эксперт MS Access
 Аватар для Eugene-LS
13227 / 5912 / 1519
Регистрация: 05.10.2016
Сообщений: 16,557
31.07.2023, 06:53
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Swa111 Посмотреть сообщение
Как только встречается не цифра штрих не перерисовывается
А - ну да ! Вот старческий маразм ...
Ведь знал же (давно) - потом забыл.
Спасибо!

BTW: Модуль "Report" строка #518:
Visual Basic
1
    ElsIf i < UBound(vData)
Ничего не смущает?

Замените пожалуйста на:
Visual Basic
1
    ElseIf i < UBound(vData) Then
Вообще код рабочий, но есть "корявки" и компиляцию не проходит - надо "поработать напильником".
0
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
31.07.2023, 07:07
Эх, опечатка, вот что бывает когда перескакиваешь с одного языка на другой (хотя это не оправдывает отсутствие then). Поправил, в том числе и не объявленные переменные.
Вложения
Тип файла: zip rtfreport.zip (290.4 Кб, 25 просмотров)
0
Эксперт MS Access
 Аватар для Eugene-LS
13227 / 5912 / 1519
Регистрация: 05.10.2016
Сообщений: 16,557
31.07.2023, 07:15
Цитата Сообщение от Swa111 Посмотреть сообщение
Поправил, в том числе и не объявленные переменные.
А вот мой вариант с исправлениями + "лишние" библиотечки отключил ...
+ теперь код проходит компиляцию.
Миниатюры
Как создать штрихкод?  
Вложения
Тип файла: zip Генерация QR кода на экранной и печатной форме v02.zip (325.7 Кб, 102 просмотров)
5
Эксперт MS Access
 Аватар для alvk
7459 / 4592 / 302
Регистрация: 12.08.2011
Сообщений: 14,380
31.07.2023, 10:25
Мои 5 копеек https://qr.yandex.ru/
Сегодня пару ссылок сгенерировал и картинки на сайт кинул
0
Эксперт MS Access
 Аватар для Eugene-LS
13227 / 5912 / 1519
Регистрация: 05.10.2016
Сообщений: 16,557
31.07.2023, 12:05
Цитата Сообщение от alvk Посмотреть сообщение
Мои 5 копеек
Действительно, так лучше и гораздо удобней!
Спасибо!
0
397 / 140 / 39
Регистрация: 16.03.2013
Сообщений: 1,559
03.08.2023, 12:56
давно пользуюсь модулем для генерации штрих кода, все просто вроде и работает нормально. нужно только чтобы шрифты штрих-кода были установлены
Вложения
Тип файла: zip Штрих.zip (37.4 Кб, 54 просмотров)
0
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4178 / 2463 / 513
Регистрация: 13.12.2016
Сообщений: 8,368
Записей в блоге: 5
03.08.2023, 15:18
Добавлю и я свои 5 копеек. Тоже делал для себя и под свои нужды. Проверял все телефоном. (да и для него задумывалось)
Особенно вайфаю народ в офисе радуется... Картинки потом копировал в ворд или куда угодно, распечатывал или посылал... Давно хотел положить в блоге, но забываю.
Вложения
Тип файла: rar Gen QR.rar (20.6 Кб, 81 просмотров)
0
787 / 66 / 4
Регистрация: 28.05.2015
Сообщений: 104
03.08.2023, 16:40
Чтобы для искателей генерации QR-code все было в одном месте, напомню обсуждение темы
с примерами в конце темы: Компоненты ActiveX для генерации QR

Добавлено через 4 минуты
Цитата Сообщение от Eugene-LS Посмотреть сообщение
А вот мой вариант с исправлениями + "лишние" библиотечки отключил ...
+ теперь код проходит компиляцию.
За модуль mdQRCodegen спасибо. Поправили WinAPI для 64bit или сами писали весь код?
0
Эксперт MS Access
 Аватар для Eugene-LS
13227 / 5912 / 1519
Регистрация: 05.10.2016
Сообщений: 16,557
03.08.2023, 17:35
Цитата Сообщение от UUMprimor Посмотреть сообщение
Поправили WinAPI для 64bit или сами писали весь код?
Только подправил до приемлемого состояния.
Там ещё остался простор для оптимизации, насколько помню.
1
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
03.08.2023, 18:00
Модуль взял готовый https://github.com/wqweto/VbQRCodegen. Доработан под офис, что бы строился за приемлемое время. В целом библиотека qr и report одинаково работают на 32 и 64 битных офисах
1
1 / 1 / 0
Регистрация: 23.11.2023
Сообщений: 23
27.03.2024, 22:17
Цитата Сообщение от Eugene-LS Посмотреть сообщение
А вот мой вариант с исправлениями + "лишние" библиотечки отключил ...
+ теперь код проходит компиляцию.
Миниатюры
Как создать штрихкод?
Доброго времени суток!
помогите пожалуйста Ваш код запустить на Access97, скопировал модули в свой проект, не проходит компиляцию, затыкается в самом начале на Enum.
Интересует только Code128.
Нужно на форме ввод кода, тут же преобразование в штрих-код (что у Вас уже реализовано) и тут-же кнопка экспорта в rtf (наименование товара находится на этой-же форме в поле "Товар"), а также очень интересует экспорт в конкретно заданный файл xls
помогите пожалуйста, в модулях куча функций, мне самому не разобраться...
0
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
28.03.2024, 00:04
VladOle, Вы хотя бы скелет своей базы пришлите и шаблон RTF. С Excel не пытался подружить так что здесь придется самим кумекать

Добавлено через 1 час 33 минуты
Прикинул тут, под 97 Access адаптировать код будет сложно
0
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
28.03.2024, 23:27
Лучший ответ Сообщение было отмечено rvafexa как решение

Решение

VladOle, вывод на форму не осилил, споткнулся что 97 access потребовал картинку в формате DIB, у меня же создаются векторные.

Модуль печати отчетов доработал для совместимости с Access 97. К себе в проект нужно забирать два модуля

- Access 97: Предоставляет окно выбора файлов, функции replace, split, join
- KRNReport: Сам модуль генерации отчета.

Поддержки генерации QR кодов под 97 Access не будет.

Как создавать шаблоны см тут
Вложения
Тип файла: zip Documents.zip (505.9 Кб, 38 просмотров)
2
1 / 1 / 0
Регистрация: 23.11.2023
Сообщений: 23
16.04.2024, 22:12
Swa111, Доброго времени суток!
Огромная благодарность, код в 97 работает!
Пытаюсь разобраться и не могу понять как из поля txtCode128Input цифры передаются в rtf? (в моем проекте это будет другое поле...) Ткните мне пожалуйста где смотреть

PS С размерами штрих-кода получилось поиграться, теперь он у меня читаемый
0
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
16.04.2024, 23:14
Вы смотрели справку по ссылке?
Откройте шаблон в MS Word. Нажмите Ctrl + F9 для отображения полей. Текстовые поля выводятся с помощью функции f. При этом идет прямое обращение к форме, ровно так же как бы Вы это делали из VBA.
Миниатюры
Как создать штрихкод?  
1
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
16.04.2024, 23:28
VladOle, Поправка: Alt+ F9 для отображения полей. Ctrl + F9 - создать новое поле. За размер штрих кода отвечает 2 и 3 параметр, на картинке это 40 и 10. Соответственно картинка будет 40х10 мм
1
1 / 1 / 0
Регистрация: 23.11.2023
Сообщений: 23
18.04.2024, 21:28
Swa111, Стыдно признаться, читал, но ничего не понял... Только теперь начало доходить...
Просто Огромнейшая Благодарность! Внедрил все в свой проект, все работает!
0
919 / 292 / 58
Регистрация: 01.06.2023
Сообщений: 816
19.04.2024, 21:37
VladOle, Если не сложно, напишите с каким столкнулись сложностями? Что нужно добавить для того что бы было понятнее?
0
1 / 1 / 0
Регистрация: 23.11.2023
Сообщений: 23
21.04.2024, 13:43
Swa111, Доброго времени суток!

Мой уровень оставляет желать лучшего, я не учился програмированию, не читал никаких книг, просто пытаюсь улучшить то, что было написано 25 лет назад и с тех пор практически утратило свою актуальность.

Т.е. я беру что-то рабочее, и пытаюсь внедрить это у себя по аналогии. Штрих-код это очень сложно для меня, я не понимаю зачем так много функций в модулях и что они делают…

В инструкции написано «Запустите процедуру InstallRepSystem, что бы создать таблицу для хранения шаблонов. Запустите процедуру InstallReportTemplate, что бы добавить шаблон в хранилище» для меня это темный лес и сейчас, где искать эту процедуру, как ее запустить?

А вот сочетаний клавиш Alt+ F9 в инструкции вообще нет, я «очень удивился» когда в шаблоне что-то «вылезло» при такой комбинации…

Вот все то что мне нужно было узнать:
1. Нажатие клавиш Alt+ F9 в шаблоне (чтобы увидеть откуда оно берется и потом заменить на свои данные)
2. Функция Public Function Code128 в модуле KRNReport содержит такую строчку:
Visual Basic
1
byteStorage = StrConv(zebra2wmf(code128_zebra(aArg(0), 3), 2, 40, BCWidth)
,
я долго игрался с этой строчкой пока сканер штрих-кода не начал распознавать то что напечатано, и у меня получилось это с такими параметрами:
Visual Basic
1
byteStorage = StrConv(zebra2wmf(code128_zebra(aArg(0), 3), 8, 800, BCWidth), vbFromUnicode)
3. Просто из Вашего проекта я импортировал в свой проект модули KRNReport и Access97, также импортировал таблицу t_rep и в таблице исправил путь к шаблону.

Вот собственно и все…

Может мне в дальнейшем и понадобится возможность превращения столбика цифр в столбик штрих-кодов или возможность печати штрих-кода в xls (на данном этапе я это решил так: печатается форма в xls, а потом повторно печатается на этой форме штрих-код в rtf) но без наглядного примера я не смогу это реализовать.

Надеюсь Вам это поможет
1
1 / 1 / 0
Регистрация: 23.11.2023
Сообщений: 23
23.08.2024, 22:53
Swa111, Доброго времени суток!
Можно Вас попросить посмотреть вложение, и помочь с решением задачи. Если в bd1 на форме Demo нажать на кнопку Кнопка3 нужно получить результат описанный в шаблоне Doc2.rtf
Такое вообще возможно сделать с помощью Вашего Генератора отчетов в формате RTF?
Я пытался разобраться с инструкцией, но ничего не получается...
Это должно работать в Access 97
Спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.08.2024, 22:53
Помогаю со студенческими работами здесь

Ут11. Как отловить штрихкод?
Всем привет. Опять я. Не теряю надежды, что кто-нибудь всетаки знает. Подскажите пожалуйста такую вещь... Ввел штрихкод для чеков...

штрихкод
при распечатке ценников не виден штрихкод, а на этикетках видно.

Штрихкод
Здравствуйте, подскажите, пожалуйста, есть готовый компонент для Delphi, который бы генерировал штрих код?

1C, Word и Штрихкод
Во внешней печатной форме располагается Вордовский макет, в который необходимо вставить штрих код. В Вордовском документе штрих код...

СКД и Штрихкод
Доброго времени суток, переделываю отчет прайс лист из УТ 11.2.3.120, нужно добавить туда штрихкод, добавил соединение все ок, но при...


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

Или воспользуйтесь поиском по форуму:
40
Ответ Создать тему
Новые блоги и статьи
[golang] Двоичная куча, min-heap
alhaos 20.05.2026
Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .
[golang] Breadth-First Search
alhaos 19.05.2026
BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .
[golang] Алгоритм «Хак Госпера»
alhaos 17.05.2026
Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .
Рисование бинарного древа до 6-го колена на js, svg.
russiannick 17.05.2026
<svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module
DevAlt 16.05.2026
Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов.
russiannick 14.05.2026
Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов
alhaos 12.05.2026
По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru