Помогите, адаптировать код из VBA Excel в VBA Access / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

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

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

25 сообщений из 126, страница 1 из 6

все

Помогите, адаптировать код из VBA Excel в VBA Access

#40113129

Wawan2005

Гость

Здравствуйте.
Нашёл библиотеку генерации Qr-Codа проблема в том что вба код для екселя, помогите адаптировать.

Код: vbnet

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.

Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare PtrSafe Sub GenerateBMP _
                Lib "C:\Downloads\quricol64.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As LongPtr, _
                ByVal Text As LongPtr, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Declare PtrSafe Sub GenerateBMPToClipboard _
                Lib "C:\Downloads\quricol64.dll" _
                Alias "GenerateBMPToClipboardW" ( _
                ByVal Text As LongPtr, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
                
Private Sub Form_Load()
    
    
    
End Sub

Sub InsertImage()
   
   GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
   ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")
   
End Sub

Вставлять надо в форму "Ф_Квитанция" в поле "П_QRCod" и в ячейку таблицы "Дебиторка" столбец "QRCod"

...

Рейтинг:

0 / 0

19.11.2021, 14:36

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113146

Eugene-LS

Гость

Wawan2005

помогите адаптировать.

У меня отработало:

Код: vbnet

1.
2.
3.
4.

Private Sub test01()
    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Forms("Test").OLEBound140.Action = acOLEPaste
End Sub

...

Рейтинг:

0 / 0

19.11.2021, 15:20

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113236

Wawan2005

Гость

Eugene-LS,

Здравствуйте.
Попробовал Ваш совет, что то не задалось

Код: vbnet

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.

Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum

Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Declare Sub GenerateBMPToClipboard _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPToClipboardW" ( _
                ByVal Text As LongPtr, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)

Private Sub Form_Load()
    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Forms("Ф_QR_Платёка").PS_imgPicture.Action = acOLEPaste

...

Рейтинг:

0 / 0

19.11.2021, 20:19

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113237

Wawan2005

Гость

Wawan2005,

потом

Да, да именно 2 раза выскакивает

...

Рейтинг:

0 / 0

19.11.2021, 20:20

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113239

Wawan2005

Гость

Wawan2005,

а вот настройки поля вставки

...

Рейтинг:

0 / 0

19.11.2021, 20:20

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113254

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005, Работа со штрих-кодом

...

Рейтинг:

0 / 0

19.11.2021, 21:31

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113281

Eugene-LS

Гость

Wawan2005

что то не задалось

Извините, забыл упомянуть (надеялся, что сами догадаетесь)

Код: vbnet

1.
2.

'Вставка в Bound Object Frame
    Forms("Test").OLEBound140.Action = acOLEPaste

Такие "выкрутасы" со вставкой из буфера обмена получаются только с Bound Object Frame формы.
А уж с каким полем оно связано - это ваше дело.

...

Рейтинг:

0 / 0

20.11.2021, 00:48

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113283

Eugene-LS

Гость

Wawan2005

... вот настройки поля вставки

Спасибо!
... больше вопросов к вам нет.

...

Рейтинг:

0 / 0

20.11.2021, 01:02

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113316

vmag

Участник

Откуда: MP

Сообщения: 4 280

Рейтинг: 0 / 0

Wawan2005

что то не задалось

код и сами dll (судя по LongPtr и названиям dll) исключительно для 64 разряда,
LongPtr 32 разряда не понимает, там просто Long

...

Рейтинг:

0 / 0

20.11.2021, 12:34

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113321

Wawan2005

Гость

Eugene-LS,

Что такое".OLEBound140."

...

Рейтинг:

0 / 0

20.11.2021, 13:16

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113322

Wawan2005

Гость

vmag,

Код и библиотеки для 32-х битки, так как если сделать
сохранение в файл (что было изначально):

Код: vbnet

     GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow

или

Код: vbnet

     GenerateBMP StrPtr(GetPath(CurrentDb.Name) & "Example.bmp"), StrPtr(П_Уважаем1), 3, 5, QualityLow

Всё работает идеально.

...

Рейтинг:

0 / 0

20.11.2021, 13:23

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113323

Лапух

Участник

Откуда: Стойбище № 7

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

Рейтинг: 0 / 0

Eugene-LS

...забыл упомянуть (надеялся, что сами догадаетесь)...

Таких друзей, что постоянно забывають упомянуть, так и Врагов не надо.
(Ответка)

...

Рейтинг:

0 / 0

20.11.2021, 13:36

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113436

Wawan2005

Гость

Лапух,

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

...

Рейтинг:

0 / 0

20.11.2021, 21:49

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113447

Лапух

Участник

Откуда: Стойбище № 7

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

Рейтинг: 0 / 0

Wawan2005

а не лапухи,

Надеюсь это - Наезд лично на меня?
Давно уже по старости лет ни кого не троллил.
А тут вот он, сам пришел.

...

Рейтинг:

0 / 0

20.11.2021, 22:42

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113494

Wawan2005

Гость

Лапух

Wawan2005

а не лапухи,

А тут вот он, сам пришел.

Я тут и был.

...

Рейтинг:

0 / 0

21.11.2021, 11:24

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113495

Wawan2005

Гость

Лапух,

Лучше бы по существу что нибудь написал.

...

Рейтинг:

0 / 0

21.11.2021, 11:25

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113533

Wawan2005

Гость

C теми ошибками разобрался, новая проблема.

ругается на последнюю строчку:

Код: vbnet

1.
2.

    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Forms("Ф_QR_Платёка").PS_imgPicture.Action = acOLEPaste

и так попробовал

Код: vbnet

1.
2.

    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Me.Form.PS_imgPicture.Action = acOLEPaste

Мож кто подскажет, что не так.

...

Рейтинг:

0 / 0

21.11.2021, 15:15

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113543

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005, смотрел по ссылке? С тем активикс вообще кода ненужно.

...

Рейтинг:

0 / 0

21.11.2021, 16:17

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113558

Wawan2005

Гость

Панург,

Да смотрел, ещё по весне, у мня так и не заработало, то-есть маленький текст знаков 100-150 легко, а мне полностью реквизиты и данные собственника надо, тут то и засада, не вытягивает, а эту сделал её и ВТБ т Сбер нормально читают.
Или мож я чё с ними не разобрался, я 3 *.осх установил, два полная ботва, а вот с одним (StrokeScribe Control) долго долбился, он вроде работает, но картинку показывает только один раз, то-есть если запустить полностью базу, а потом форму то картинка будет, а если форму закрыть, а потом открыть то уже нет и соответственно вырубаешь весь аксесс запускаешь заново и опять видно.
Короче, как то так.

...

Рейтинг:

0 / 0

21.11.2021, 17:20

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113559

Eugene-LS

Гость

Wawan2005

Мож кто подскажет, что не так.

Посмотрите пример (сменив путь к библиотеке на свой)

...

Рейтинг:

0 / 0

21.11.2021, 17:23

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113569

Wawan2005

Гость

Eugene-LS,

Ругается на "PtrSafe" (просто убрал).
И если "LongPtr" не заменить на "Long" выдаёт ошибку которую раньше выкладывал картинку.
Если это всё исправить то твоя база заработала, попробовал адаптировать се опять жЁпа какая то -(((
Ругался на "Action", сделал как у тебя кнопкой, перестал ругаться но и картинки нет.
Буду дальше пробовать, искать так сказать отличия с твоей -))

...

Рейтинг:

0 / 0

21.11.2021, 17:51

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113590

Wawan2005

Гость

Всё проверил,всё как у тебя, но по прежнему ругался на "Action",может это из за того что у меня офис 32-х битный

...

Рейтинг:

0 / 0

21.11.2021, 19:20

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113591

Wawan2005

Гость

А, стоп, твоя то работает и на "Action" не ругается-(

...

Рейтинг:

0 / 0

21.11.2021, 19:21

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113599

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

Код: vbnet

GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow

упрости

Код: vbnet

GenerateBMPToClipboard "Hello world!", 3, 5, 0&

...

Рейтинг:

0 / 0

21.11.2021, 20:23

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

Помогите, адаптировать код из VBA Excel в VBA Access

#40113602

Панург

Участник

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

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

Рейтинг: 0 / 0

Панург

упрости

слегка поторопился...
так всё же

Код: vbnet

GenerateBMPToClipboard StrConv("Hello world!", vbUnicode), 3, 5, 0&

...

Рейтинг:

0 / 0

21.11.2021, 20:49

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

25 сообщений из 126, страница 1 из 6

все

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=45&msg=40113569&tid=1609540]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	151ms
get topic data:	11ms
get forum data:	3ms
get page messages:	63ms
get tp. blocked users:	1ms
others:	14ms

total:	273ms