Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: [1] 2 3 4 5   вперед  Ctrl      все
 Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

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

+
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"

Сообщение было отредактировано: 19 ноя 21, 14:42
19 ноя 21, 14:36    [22397968]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Eugene-LS
Member

Откуда: РФ
Сообщений: 63
Wawan2005
помогите адаптировать.

У меня отработало:
Private Sub test01()
    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Forms("Test").OLEBound140.Action = acOLEPaste
End Sub
19 ноя 21, 15:20    [22397996]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Eugene-LS,

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

+
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


К сообщению приложен файл. Размер - 56Kb


Сообщение было отредактировано: 19 ноя 21, 20:24
19 ноя 21, 20:19    [22398151]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Wawan2005,

потом


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

К сообщению приложен файл. Размер - 50Kb


Сообщение было отредактировано: 19 ноя 21, 20:22
19 ноя 21, 20:20    [22398153]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Wawan2005,

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

К сообщению приложен файл. Размер - 115Kb
19 ноя 21, 20:20    [22398155]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Wawan2005, Работа со штрих-кодом
19 ноя 21, 21:31    [22398179]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Eugene-LS
Member

Откуда: РФ
Сообщений: 63
Wawan2005
что то не задалось

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

Такие "выкрутасы" со вставкой из буфера обмена получаются только с Bound Object Frame формы.
А уж с каким полем оно связано - это ваше дело.
20 ноя 21, 00:48    [22398223]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Eugene-LS
Member

Откуда: РФ
Сообщений: 63
Wawan2005
... вот настройки поля вставки

Спасибо!
... больше вопросов к вам нет.
20 ноя 21, 01:02    [22398225]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
Wawan2005
что то не задалось


код и сами dll (судя по LongPtr и названиям dll) исключительно для 64 разряда,
LongPtr 32 разряда не понимает, там просто Long
20 ноя 21, 12:34    [22398283]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Eugene-LS,

Что такое".OLEBound140."
20 ноя 21, 13:16    [22398294]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
vmag,

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

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

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

Сообщение было отредактировано: 20 ноя 21, 13:23
20 ноя 21, 13:23    [22398296]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Лапух
Member

Откуда: Стойбище № 7
Сообщений: 1195
Eugene-LS
...забыл упомянуть (надеялся, что сами догадаетесь)...

Таких друзей, что постоянно забывають упомянуть, так и Врагов не надо.
(Ответка)
20 ноя 21, 13:36    [22398297]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Лапух,

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

Сообщение было отредактировано: 20 ноя 21, 21:50
20 ноя 21, 21:49    [22398472]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Лапух
Member

Откуда: Стойбище № 7
Сообщений: 1195
Wawan2005
а не лапухи,

Надеюсь это - Наезд лично на меня?
Давно уже по старости лет ни кого не троллил.
А тут вот он, сам пришел.
20 ноя 21, 22:42    [22398490]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Лапух
Wawan2005
а не лапухи,

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

Я тут и был.
21 ноя 21, 11:24    [22398565]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Лапух,

Лучше бы по существу что нибудь написал.
21 ноя 21, 11:25    [22398566]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
C теми ошибками разобрался, новая проблема.

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

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


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

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


Мож кто подскажет, что не так.
21 ноя 21, 15:15    [22398663]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Wawan2005, смотрел по ссылке? С тем активикс вообще кода ненужно.
21 ноя 21, 16:17    [22398677]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Панург,

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

Сообщение было отредактировано: 21 ноя 21, 17:29
21 ноя 21, 17:20    [22398701]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Eugene-LS
Member

Откуда: РФ
Сообщений: 63
Wawan2005
Мож кто подскажет, что не так.

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

К сообщению приложен файл (Generate QR-code v01.zip - 33Kb) cкачать
21 ноя 21, 17:23    [22398702]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Eugene-LS,

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

Сообщение было отредактировано: 21 ноя 21, 17:58
21 ноя 21, 17:51    [22398718]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Всё проверил,всё как у тебя, но по прежнему ругался на "Action",может это из за того что у меня офис 32-х битный
21 ноя 21, 19:20    [22398757]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
А, стоп, твоя то работает и на "Action" не ругается-(
21 ноя 21, 19:21    [22398758]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Wawan2005
GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
упрости
GenerateBMPToClipboard "Hello world!", 3, 5, 0&
21 ноя 21, 20:23    [22398778]     Ответить | Цитировать Сообщить модератору
 Re: Помогите, адаптировать код из VBA Excel в VBA Access  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Панург
упрости
слегка поторопился...
так всё же
GenerateBMPToClipboard StrConv("Hello world!", vbUnicode), 3, 5, 0&


Сообщение было отредактировано: 21 ноя 21, 20:50
21 ноя 21, 20:49    [22398783]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: [1] 2 3 4 5   вперед  Ctrl      все
Все форумы / Microsoft Access Ответить