Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, адаптировать код из VBA Excel в VBA Access / 25 сообщений из 126, страница 1 из 6
  1  все
19.11.2021, 14:36
    #40113129
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Здравствуйте.
Нашёл библиотеку генерации 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, 15:20
    #40113146
Eugene-LS
Eugene-LS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
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, 20:19
    #40113236
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
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:20
    #40113237
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005,

потом


Да, да именно 2 раза выскакивает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2021, 20:20
    #40113239
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005,

а вот настройки поля вставки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2021, 21:31
    #40113254
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005, Работа со штрих-кодом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 00:48
    #40113281
Eugene-LS
Eugene-LS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005
что то не задалось

Извините, забыл упомянуть (надеялся, что сами догадаетесь)
Код: vbnet
1.
2.
'Вставка в Bound Object Frame
    Forms("Test").OLEBound140.Action = acOLEPaste


Такие "выкрутасы" со вставкой из буфера обмена получаются только с Bound Object Frame формы.
А уж с каким полем оно связано - это ваше дело.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 01:02
    #40113283
Eugene-LS
Eugene-LS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005
... вот настройки поля вставки

Спасибо!
... больше вопросов к вам нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 12:34
    #40113316
vmag
vmag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005
что то не задалось


код и сами dll (судя по LongPtr и названиям dll) исключительно для 64 разряда,
LongPtr 32 разряда не понимает, там просто Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 13:16
    #40113321
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Eugene-LS,

Что такое".OLEBound140."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 13:23
    #40113322
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
vmag,

Код и библиотеки для 32-х битки, так как если сделать
сохранение в файл (что было изначально):
Код: vbnet
1.
     GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow


или
Код: vbnet
1.
     GenerateBMP StrPtr(GetPath(CurrentDb.Name) & "Example.bmp"), StrPtr(П_Уважаем1), 3, 5, QualityLow


Всё работает идеально.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 13:36
    #40113323
Лапух
Лапух
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Eugene-LS
...забыл упомянуть (надеялся, что сами догадаетесь)...

Таких друзей, что постоянно забывають упомянуть, так и Врагов не надо.
(Ответка)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 21:49
    #40113436
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Лапух,

Ну наверное он надеется, что у него друзья умные как он, а не лапухи, вот постоянно и забывает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2021, 22:42
    #40113447
Лапух
Лапух
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005
а не лапухи,

Надеюсь это - Наезд лично на меня?
Давно уже по старости лет ни кого не троллил.
А тут вот он, сам пришел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 11:24
    #40113494
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Лапух
Wawan2005
а не лапухи,

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

Я тут и был.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 11:25
    #40113495
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Лапух,

Лучше бы по существу что нибудь написал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 15:15
    #40113533
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
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, 16:17
    #40113543
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005, смотрел по ссылке? С тем активикс вообще кода ненужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 17:20
    #40113558
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Панург,

Да смотрел, ещё по весне, у мня так и не заработало, то-есть маленький текст знаков 100-150 легко, а мне полностью реквизиты и данные собственника надо, тут то и засада, не вытягивает, а эту сделал её и ВТБ т Сбер нормально читают.
Или мож я чё с ними не разобрался, я 3 *.осх установил, два полная ботва, а вот с одним (StrokeScribe Control) долго долбился, он вроде работает, но картинку показывает только один раз, то-есть если запустить полностью базу, а потом форму то картинка будет, а если форму закрыть, а потом открыть то уже нет и соответственно вырубаешь весь аксесс запускаешь заново и опять видно.
Короче, как то так.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 17:23
    #40113559
Eugene-LS
Eugene-LS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005
Мож кто подскажет, что не так.

Посмотрите пример (сменив путь к библиотеке на свой)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 17:51
    #40113569
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Eugene-LS,

Ругается на "PtrSafe" (просто убрал).
И если "LongPtr" не заменить на "Long" выдаёт ошибку которую раньше выкладывал картинку.
Если это всё исправить то твоя база заработала, попробовал адаптировать се опять жЁпа какая то -(((
Ругался на "Action", сделал как у тебя кнопкой, перестал ругаться но и картинки нет.
Буду дальше пробовать, искать так сказать отличия с твоей -))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 19:20
    #40113590
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Всё проверил,всё как у тебя, но по прежнему ругался на "Action",может это из за того что у меня офис 32-х битный
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 19:21
    #40113591
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
А, стоп, твоя то работает и на "Action" не ругается-(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 20:23
    #40113599
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Wawan2005
Код: vbnet
1.
GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow

упрости
Код: vbnet
1.
GenerateBMPToClipboard "Hello world!", 3, 5, 0&
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2021, 20:49
    #40113602
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, адаптировать код из VBA Excel в VBA Access
Панург
упрости
слегка поторопился...
так всё же
Код: vbnet
1.
GenerateBMPToClipboard StrConv("Hello world!", vbUnicode), 3, 5, 0&
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, адаптировать код из VBA Excel в VBA Access / 25 сообщений из 126, страница 1 из 6
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 248ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1609540]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 123ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 18ms
total:  248ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]