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

ReSQL.ru

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

Гость

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

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

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

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

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

126 сообщений из 126, показаны все 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

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

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

#40113604

Панург

Участник

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

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

Рейтинг: 0 / 0

Панург

упрости

Код: vbnet

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

так будет работать если использовать ansi-версию процедуры - GenerateBMPToClipboardA

...

Рейтинг:

0 / 0

21.11.2021, 20:53

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

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

#40113607

Wawan2005

Гость

Панург,

Ругается на всю строчку

...

Рейтинг:

0 / 0

21.11.2021, 21:14

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

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

#40113608

Wawan2005

Гость

Панург,

Ругается на оба варианта

...

Рейтинг:

0 / 0

21.11.2021, 21:17

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

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

#40113626

Wawan2005

Гость

Eugene-LS, Панург
Не знаю, что я сделал, просто тупо перенёс ещё раз, и всё заработало-))))
Пример Eugene-LS рабочий на всё 100 % для 64-х битной системы,

а мой для 32-х битной

Код: 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.

Private Const sLibPath$ = "c:\Temp\quricol32.dll"
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 Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
Private Sub cmdIncetrQRCod_Click()
    If Len(Me.txtQRCodTexт) = 0 Then
        MsgBox "Нет текста !!!", vbExclamation, "Внимание!"
        Exit Sub
    End If
                
    GenerateBMPToClipboard StrPtr(Me.П_Уважаем1), 3, 5, QualityLow
    Me.objQRCod.Action = acOLEPaste
                
End Sub

...

Рейтинг:

0 / 0

22.11.2021, 00:07

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

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

#40113638

Eugene-LS

Гость

Wawan2005

а мой для 32-х битной

Вот универсальное объявление:

Код: 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.

Option Explicit

Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum

#If VBA7 Then 'For 64-bit office
    Private Declare PtrSafe Sub GenerateBMP _
                Lib "d:\Temp\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 "d:\Temp\quricol64.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As LongPtr, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#Else 'For 32-bit office
    Private Declare Sub GenerateBMP _
                Lib "D:\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 "D:\Temp\quricol32.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As Long, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#End If

...

Рейтинг:

0 / 0

22.11.2021, 05:35

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

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

#40113642

Панург

Участник

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

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

Рейтинг: 0 / 0

Eugene-LS

Wawan2005

а мой для 32-х битной

Вот универсальное объявление:
...

нет

...

Рейтинг:

0 / 0

22.11.2021, 07:43

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

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

#40113643

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

Ругается на всю строчку

Код это что, жена на кухне? На техническом форуме следует публиковать сообщение об ошибке или хотя бы номер.

...

Рейтинг:

0 / 0

22.11.2021, 07:47

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

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

#40113644

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

Панург,

Ругается на оба варианта

Исправив вызов процедуры, ты, скорее всего, не изменил декларацию.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

        Private Declare PtrSafe Sub GenerateBMPToClipboard _
            Lib "C:\Downloads\quricol64.dll" _
            Alias "GenerateBMPToClipboardW" ( _
            ByVal Text As String, _
            ByVal Margin As Long, _
            ByVal Size As Long, _
            ByVal Level As Long)

...

Рейтинг:

0 / 0

22.11.2021, 07:58

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

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

#40113732

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005

Пример Eugene-LS рабочий на всё 100 % для 64-х битной системы,
а мой для 32-х битной

Алилуя... я в самом начале тебе об этом говорил...

vmag

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

Ну наверное же quricol 64 .dll и quricol 32 .dll не просто так обозваны по разному...

...

Рейтинг:

0 / 0

22.11.2021, 13:10

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

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

#40113860

Wawan2005

Гость

Eugene-LS,

У меня VBA - 6.5-)))

...

Рейтинг:

0 / 0

22.11.2021, 17:35

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

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

#40113862

Wawan2005

Гость

Панург,

Да я ничего не менял в декларации

...

Рейтинг:

0 / 0

22.11.2021, 17:35

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

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

#40113863

Wawan2005

Гость

vmag,

, ну может по этому и исправил (типа сам), то что читал ранее в башке отложилось вот и давай менять-)))

...

Рейтинг:

0 / 0

22.11.2021, 17:37

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

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

#40113867

Eugene-LS

Гость

Wawan2005

Eugene-LS, У меня VBA - 6.5-)))

Это я уже понял :)
Значит всё что ниже строки:

Код: vbnet

#Else 'For 32-bit office

это для вас.

...

Рейтинг:

0 / 0

22.11.2021, 17:42

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

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

#40113869

Wawan2005

Гость

Eugene-LS,

не получается
ругается на " 'For 64-bit office" вероятно из за " ' " он зелёным выделил это, а всё остальное пометил красным,

Private Declare PtrSafe Sub GenerateBMP _
Lib "d:\Temp\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 "d:\Temp\quricol64.dll" _
Alias "GenerateBMPToClipboardW" (ByVal Text As LongPtr, ByVal Margin As Long, _
ByVal Size As Long, ByVal Level As TErrorCorretion)
до "#Else"
и получается он у меня сразу заругался на ветку 64 бита, а офис 32 бита

...

Рейтинг:

0 / 0

22.11.2021, 17:45

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

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

#40113874

Wawan2005

Гость

Eugene-LS,

Убрал "PtrSafe" работает, но нет 64 офиса для проверки

...

Рейтинг:

0 / 0

22.11.2021, 17:56

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

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

#40113877

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

Панург,

Да я ничего не менял в декларации

это писец...

...

Рейтинг:

0 / 0

22.11.2021, 17:58

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

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

#40113927

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

это писец...

полный...
был бы он электриком, наверное уже бы и погиб...

...

Рейтинг:

0 / 0

22.11.2021, 19:46

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

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

#40113938

Eugene-LS

Гость

Wawan2005

ругается на " 'For 64-bit office" вероятно из за " ' " он зелёным выделил это, а всё остальное пометил красным,
и получается он у меня сразу заругался на ветку 64 бита, а офис 32 бита

Так и должно быть!
У меня например точно наоборот и работает, вы просто код пока не читаете ...

...

Рейтинг:

0 / 0

22.11.2021, 20:06

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

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

#40113959

Wawan2005

Гость

vmag

полный...
был бы он электриком, наверное уже бы и погиб...

Я радио инженер -))

...

Рейтинг:

0 / 0

22.11.2021, 20:28

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

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

#40113967

Панург

Участник

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

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

Рейтинг: 0 / 0

Eugene-LS

...Так и должно быть!...

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

...

Рейтинг:

0 / 0

22.11.2021, 20:37

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

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

#40113986

Eugene-LS

Гость

Панург

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

Да адаптация краткая и НЕ ПОЛНАЯ (вы уже намекали выше), но суровая практика показывает что уже и этого достаточно (в большинстве случаев).

Если не лень - сделайте пожалуйста полную, я знаю - вы точно умеете.

...

Рейтинг:

0 / 0

22.11.2021, 20:59

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

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

#40113993

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

а там сочетаний мало... ноги растут отсюда:
- dll для ОС 64 ни под каким соусом не взлетит на 32 ОС
- dll для ОС 32 на ОС 64 взлетит с вероятностью 50/50...

По этому вытекает следствие - дабы не париться с выходной коробкой приложения, компилируем этот общий код на двух акцессах 32 и 64 отдельно и делаем две инсталляхи 32 и 64...
В дистрибутив для офиса 32 включаем dll 32
В дистрибутив для офиса 64 включаем dll 64
100 % всё будет работать если:
- коробка 32 ставится на ОС 32 и офис 32
- коробка 64 ставится на ОС 64 и офис 64
При установке офиса 32 на ОС 64, могут быть нюансы (зависит от того, кто делал dll)
У меня например есть пару dll 32 для вывода в PDF, но они ни в какой конфигурации не работают под ОС 64...
Слава Богу в А2010 эта проблема уже не существует (есть штатный вывод в PDF)

...

Рейтинг:

0 / 0

22.11.2021, 21:08

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

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

#40114015

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

а там сочетаний мало... ноги растут отсюда:

не нужно теорий. В данном случае есть 2 библиотеки 32 и 64
Точно библиотека 64 не будет работать на Access 201x 32.
сочетание

Код: vbnet

#If VBA7 Then 'For 64-bit office

пустит компиляцию именно по этой ветке в озвученном выше сочетании. И скопировав код ТС через некоторое время придёт с заявлением

Wawan2005

Ругается на всю строчку

ведь он не

Панург

это писец...

Wawan2005

Я радио инженер -))

...

Рейтинг:

0 / 0

22.11.2021, 21:47

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

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

#40114017

Eugene-LS

Гость

Wawan2005

Я радио инженер -))

Вот вам ещё примерчик ...
Библиотечки подхватываются из папки приложения автоматом!
+ добавлено немного адаптации ... (но не сполна)
Проверено:
- Win10x86 MSO 2010x86
- Win10x64 MSO 2021x64
Работает ...

...

Рейтинг:

0 / 0

22.11.2021, 21:55

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

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

#40114022

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

не нужно теорий.

Это практика...
Однажды я уперся в то, что у клиента стоял офис 64 (очень удаленный) и мой acde 32 там не стартовал...
Исходник под акцесс 64 открывался но не компилился из-за кучи кернелов 32 и вот когда я его переделал описанным выше образом, то смог закомпилить acde на 64 разряда...
Ну и естественно после этого acdb и под 32 и под 64 работает без проблем

...

Рейтинг:

0 / 0

22.11.2021, 22:21

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

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

#40114024

Eugene-LS

Гость

Eugene-LS

Вот вам ещё примерчик ...

Что-то с ходу не ушло ... Повторил

...
Библиотечки ложить в папку где приложение ...
Подхватывает.

...

Рейтинг:

0 / 0

22.11.2021, 22:27

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

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

#40114025

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

vmag

Это практика...

мля...

Код: vbnet

#If Win64 Then

Естественно... какой нахрен #If VBA7

Панург, я тебя понимаю...
Лучшие программисты среди паяльников...
Лучшие паяльники среди программистов...

...

Рейтинг:

0 / 0

22.11.2021, 22:31

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

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

#40114029

Wawan2005

Гость

vmag,
Не прокатит надо именно знать какой офис, у мня что на работе что дома винда 64 а офисы 32

...

Рейтинг:

0 / 0

22.11.2021, 23:19

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

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

#40114043

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

vmag,
Не прокатит надо именно знать какой офис, у мня что на работе что дома винда 64 а офисы 32

не прокатит это когда не читают
https://docs.microsoft.com/ru-ru/office/vba/language/concepts/getting-started/64-bit-visual-basic-for-applications-overview Условная константа компиляции Win64 применяется, чтобы определить, какая версия (32-разрядная или 64-разрядная) Office функционирует на компьютере.

...

Рейтинг:

0 / 0

23.11.2021, 04:29

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

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

#40114045

Панург

Участник

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

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

Рейтинг: 0 / 0

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.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
    Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
    Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr
    Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
#Else
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
#End If

#If Win64 Then
    Private Const LIBRARY_NAME$ = "quricol64.dll"
#Else
    Private Const LIBRARY_NAME$ = "quricol32.dll"
#End If
                
Private Sub cmdIncetrQRCod_Click()
#If VBA7 Then
Dim hLibrary As LongPtr, ProcAddress As LongPtr
Dim retValue As LongPtr
#Else
Dim hLibrary As Long, ProcAddress As Long
Dim retValue As Long
#End If

    If Len(Nz(Me.txtQRCodTexт, vbNullString)) = 0 Then Exit Sub

hLibrary = LoadLibrary(CurrentProject.Path & "\" & LIBRARY_NAME)

ProcAddress = GetProcAddress(hLibrary, "GenerateBMPToClipboardW")
    If ProcAddress = 0 Then
        MsgBox "Oooppss!"
    Else
        retValue = CallWindowProc(ProcAddress, StrPtr(Me.txtQRCodTexт), ByVal 3&, ByVal 5&, ByVal 0&)
        Me.objQRCod.Action = acOLEPaste
    End If
FreeLibrary hLibrary
End Sub

...

Рейтинг:

0 / 0

23.11.2021, 05:39

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

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

#40114049

Eugene-LS

Гость

Панург

как вариант...

Лихо!
Красиво!

Поначалу, и я пошел по пути "LoadLibrary" ...
Случайно наткнулся на "буржуинский" пример с "SetEnvironmentVariable" ... потестил ...
И принял "на вооружение" :)

...

Рейтинг:

0 / 0

23.11.2021, 07:35

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

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

#40114052

Eugene-LS

Гость

Eugene-LS

Библиотечки ложить класть в папку где приложение ..

... :)
Что может лежать - то ЛОЖИТЬ (положить)
Что может складываться - то КЛАСТЬ (покласть)
... файл может "лежать" в папке приложения ...

...

Рейтинг:

0 / 0

23.11.2021, 07:56

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

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

#40114053

Панург

Участник

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

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

Рейтинг: 0 / 0

Eugene-LS

Панург

как вариант...

Лихо!
Красиво!

можно упростить (не пользуюсь я всем этим, да и VBA практически не пользуюсь)

Код: 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.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
    Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
#Else
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
#End If

#If Win64 Then
    Private Const LIBRARY_NAME$ = "quricol64.dll"
    
    Private Declare PtrSafe Sub GenerateBMPToClipboard _
        Lib "quricol64.dll" _
        Alias "GenerateBMPToClipboardW" ( _
        ByVal Text As String, _
        ByVal Margin As Long, _
        ByVal Size As Long, _
        ByVal Level As Long)
#Else
    Private Const LIBRARY_NAME$ = "quricol32.dll"
    
    Private Declare Sub GenerateBMPToClipboard _
        Lib "quricol32.dll" _
        Alias "GenerateBMPToClipboardW" ( _
        ByVal Text As String, _
        ByVal Margin As Long, _
        ByVal Size As Long, _
        ByVal Level As Long)
#End If
          
Private Sub cmdIncetrQRCod_Click()
#If VBA7 Then
Dim hLibrary As LongPtr
#Else
Dim hLibrary As Long
#End If

    If Len(Nz(Me.txtQRCodTexт, vbNullString)) = 0 Then Me.objQRCod.Value = Null: Exit Sub

hLibrary = LoadLibrary(CurrentProject.Path & "\" & LIBRARY_NAME)
    If hLibrary = 0 Then
        MsgBox "Oooppss!"
    Else
        GenerateBMPToClipboard StrConv(Me.txtQRCodTexт, vbUnicode), 3, 5, 0&
        Me.objQRCod.Action = acOLEPaste
    End If
FreeLibrary hLibrary
End Sub

...

Рейтинг:

0 / 0

23.11.2021, 08:09

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

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

#40114054

Панург

Участник

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

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

Рейтинг: 0 / 0

Eugene-LS

Библиотечки ложить класть в папку где приложение ..

и тем не менее...

...

Рейтинг:

0 / 0

23.11.2021, 08:09

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

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

#40114068

Eugene-LS

Гость

Панург

и тем не менее...

НА Столе:
- Воробей - Сидит
- Стакан - Стоит
- Ложка - Лежит (не "покладена")

В ящике:
- Воробей - Лежит (дохлый)
- Стакан - Лежит
- Ложка - Лежит (не "покладена")

Я в ящик КЛАДУ воробья, стакан и ложку, пусть там ЛЕЖАТ ...
...
И не пудрите мне мозг пожалуйста! :)

...

Рейтинг:

0 / 0

23.11.2021, 09:28

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

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

#40114081

Панург

Участник

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

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

Рейтинг: 0 / 0

Eugene-LS, Ложить – просторечие. В русском литературном языке есть только глагол класть.
Верно: класть, но положить.

Eugene-LS

Я в ящик КЛАДУ

я указал тоже самое

...

Рейтинг:

0 / 0

23.11.2021, 10:04

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

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

#40114086

Eugene-LS

Гость

Панург

Eugene-LS, Ложить – просторечие.

Или устоявшееся норма ...

Говорят и пишут:
"уЛОЖИТЬ ребёнка спать" но не "уКласть ..."

Не доводите придуманные немцами и датчанами (в 18-м веке) правила "русского" языка до абсурда ....

...

Рейтинг:

0 / 0

23.11.2021, 10:20

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

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

#40114110

Панург

Участник

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

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

Рейтинг: 0 / 0

Eugene-LS

Говорят и пишут:
"уЛОЖИТЬ ребёнка спать" но не "уКласть ..."

т.е. не видишь разницы между "уложить" и "ложить"?
мда...
на этом, думаю, тема исчерпана.

...

Рейтинг:

0 / 0

23.11.2021, 11:59

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

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

#40114167

Eugene-LS

Гость

Панург

на этом, думаю, тема исчерпана.

Очень на это надеюсь! ... :)
...
Великий и могучий Русский язык./Joke.TV]https://www.youtube.com/watch?v=UYG92CxlhVg

...

Рейтинг:

0 / 0

23.11.2021, 14:05

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

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

#40114176

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Eugene-LS,

Народ...
- когда вставляете ссылку, то её нужно вставлять после url=... а не пихать в url текст...
- текст нужно вставлять между скобками ] тут текст
- так нужно делать для всего, кроме ютуба ибо для ютуба так иногда может не сработать
Для ютуба:
- Набрать текст, нажать Enter
- Вставить ссылку из буфера как есть и нажать Enter
- Отправить сообщение
Потренироваться всегда можно в ветке Test и не только по этому поводу...

...

Рейтинг:

0 / 0

23.11.2021, 14:49

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

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

#40114177

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Великий и могучий Русский язык./Joke.TV

YouTube Video

...

Рейтинг:

0 / 0

23.11.2021, 14:51

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

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

#40114189

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

Для ютуба:

есть специальный тэг

...

Рейтинг:

0 / 0

23.11.2021, 15:09

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

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

#40114210

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург,

Лет 5 назад кто-то из модераторов сообщил, что sql адаптировали под ютуб типа голая ссылка + enter, так мне больше ничего и не нужно...
Стек уже переполнен, всунешь в башку новую хрень, с другой стороны выпадет кака я то функция...
наверно уже и выпала с твоей подачи, пока не знаю какая...
:)

...

Рейтинг:

0 / 0

23.11.2021, 16:07

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

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

#40114227

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

...Стек уже переполнен, всунешь в башку новую хрень, с другой стороны выпадет кака я то функция...

это очередь - FIFO
Пробочку?

...

Рейтинг:

0 / 0

23.11.2021, 16:54

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

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

#40114233

Wawan2005

Гость

Обращение в продолжении темы облагораживания квитанции
Есть код:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Кн_ПечатьPDF_Click()
Dim stDocName As String, path
On Error GoTo Err_
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 'Не знаю, что делает эта команда
    stCriteria = [Код] & "_" & [ФИО]
    DoCmd.OpenForm "Ф_QR_Платёжка", acViewPreview, , stCriteria 'Вывод в отчет закомментарен
    path = CurrentProject.path & "КвитанцииPDF\" & stCriteria & ".pdf"   'Путь к папке размещения
    ExportFormToPDF path & stCriteria & ".pdf"           'Выполнить экспорт в пдф
    DoCmd.OutputTo acOutputForm, acFormatPDF, path  ' acFormatPDF   "Ф_QR_Платёжка"
Exit_:
    Exit Sub
Err_:
    MsgBox Err.Description
    Resume Exit_
End Sub

Вроде взял рабочий вариант, а опять одни проблемы (походу просто с аргументами)
Ругается на "ExportFormToPDF"
И ещё один момент, если папка КвитанцииPDF не существует, при первом создании файла она создастся???
Подредактируйте пожалуйста, я уже закипаю-((

...

Рейтинг:

0 / 0

23.11.2021, 17:04

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

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

#40114237

Wawan2005

Гость

И второй момент.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Public Function OfficeBitness()
    Dim Excel
    Set Excel = CreateObject("Excel.Application")
    Excel.Visible = False
    If InStr(Excel.OperatingSystem, "64") > 0 Then
        OfficeBitness = 64
    Else
        OfficeBitness = 32
    End If
    Excel.Quit
    Set Excel = Nothing
End Function

Проверяет какая битность Екселя, всё работает, проверил, а такая же хрень для Акцесса есть?

...

Рейтинг:

0 / 0

23.11.2021, 17:09

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

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

#40114240

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

...Проверяет какая битность Екселя...

Зачем?

...

Рейтинг:

0 / 0

23.11.2021, 17:12

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

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

#40114242

Wawan2005

Гость

[quote Eugene-LS#22399680]

Панург

на этом, думаю, тема исчерпана.

Очень на это надеюсь! ... :)
...

...

Рейтинг:

0 / 0

23.11.2021, 17:14

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

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

#40114243

Wawan2005

Гость

Панург,

так я и прошу адаптировать под Акцесс, а то Ваш код ППц объёмный

...

Рейтинг:

0 / 0

23.11.2021, 17:15

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

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

#40114245

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

Панург,

так я и прошу адаптировать под Акцесс, а то Ваш код ППц объёмный

ты не пробовал всё же почитать? хотя бы по ссылке.

...

Рейтинг:

0 / 0

23.11.2021, 17:18

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

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

#40114257

uum

Гость

Wawan2005

...Подредактируйте пожалуйста, я уже закипаю-((

;) предохранительный клапан найдете в той теме, где Вы начинали - https://www.cyberforum.ru/post15871276.html

...

Рейтинг:

0 / 0

23.11.2021, 17:29

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

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

#40114260

Wawan2005

Гость

uum,

У меня офис 2007, выше боюсь наши (бюджетные) компы не потянут.

...

Рейтинг:

0 / 0

23.11.2021, 17:33

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

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

#40114345

Панург

Участник

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

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

Рейтинг: 0 / 0

uum, можно и так

...

Рейтинг:

0 / 0

23.11.2021, 20:11

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

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

#40114346

Панург

Участник

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

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

Рейтинг: 0 / 0

одним, к сожалению, не влезло

...

Рейтинг:

0 / 0

23.11.2021, 20:12

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

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

#40114349

Панург

Участник

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

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

Рейтинг: 0 / 0

Панург

uum, можно и так

за основу взята БД по ссылке выше 22399813
можно открыть несколько форм квитанций (для каждой записи) - у каждой свой код. Не делал ограничения на количество квитанций (они естественно одинаковые) для одной записи.

Не тестировалось на разных версиях. Делалось на Access 2010 32

...

Рейтинг:

0 / 0

23.11.2021, 20:15

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

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

#40114353

Панург

Участник

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

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

Рейтинг: 0 / 0

+ таскать ничего не нужно, всё внутри, библиотека какая нужна та и выгрузится.
Не используется ни буфер, ни внешние растры.

...

Рейтинг:

0 / 0

23.11.2021, 20:18

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

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

#40114379

Wawan2005

Гость

Панург,

База QRкодКвит_2.1 вообще не открывается 2007, пишет - "нераспознанный формат базы данных", хотя та по ссылке хотя бы открывалась, не работала правда, ругалась на несовместимость, но распознавалась-)))
А можно её сохранить как для 2007 ????

...

Рейтинг:

0 / 0

23.11.2021, 22:04

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

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

#40114385

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

Пример офигительный, всем примерам - пример!
На А2010(32) + W10(64) полет нормальный
На А2010(64) + W10(64) всё работает, ошибок нет, но QR кода нет, пустота, по двойному клику тоже
и там и там выковыривается нужная библиотека...

...

Рейтинг:

0 / 0

23.11.2021, 23:32

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

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

#40114398

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

тут упрощенная версия , которая работает от 2002-2003 и выше, с пофиг какой разрядностью...
прописываем пути 4 раза или допиливаем сами как у Панурга...

...

Рейтинг:

0 / 0

24.11.2021, 01:12

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

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

#40114405

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

На А2010(64) + W10(64) всё работает, ошибок нет, но QR кода нет, пустота

это самое главное и было. Но у меня нет А2010(64), потому увы...

...

Рейтинг:

0 / 0

24.11.2021, 04:24

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

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

#40114522

Wawan2005

Гость

Панург,

Со штрихом разобрался,помогите, пожалуйста, с ПДФ

Вот как у меня сейчас

Код: 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.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.

Option Compare Database
Option Explicit
Public ZB1 As String, ZB9 As String, ZU1 As String, ZU9 As String, ZBU1 As String, ZBU9 As String, ZI1 As String, ZI9 As String, _
       ZUI1 As String, ZUI9 As String, B1 As String, qwer1, qwer2, B2 As String, Summ_pr As String, _
       stCriteria As String
Private Const sLibPath$ = "c:\Windows\quricol32.dll"
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum

#If VBA7 Then
    Private Declare PtrSafe Sub GenerateBMP _
                Lib "c:\Windows\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:\Windows\quricol64.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As LongPtr, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#Else 'For 32-bit office
    Private Declare Sub GenerateBMP _
                Lib "c:\Windows\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:\Windows\quricol32.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As Long, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#End If
Private Sub cmdIncetrQRCod_Click()
    GenerateBMPToClipboard StrPtr(Me.П_Уважаем1), 3, 5, QualityLow
    Me.objQRCod.Action = acOLEPaste
End Sub
Private Sub Кн_ПечатьPDF_Click()
Dim stDocName As String, path
On Error GoTo Err_
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 'Не знаю, что делает эта команда
    stCriteria = [Код] & "_" & [ФИО]
    DoCmd.OpenForm "Ф_QR_Платёжка", acViewPreview, , stCriteria 'Вывод в отчет закомментарен
    path = CurrentProject.path & "КвитанцииPDF\" & stCriteria & ".pdf"   'Путь к папке размещения
    ExportFormToPDF path & stCriteria & ".pdf"           'Выполнить экспорт в пдф
    DoCmd.OutputTo acOutputForm, acFormatPDF, path  ' acFormatPDF   "Ф_QR_Платёжка"
Exit_:
    Exit Sub
Err_:
    MsgBox Err.Description
    Resume Exit_
End Sub

Ветка 64 бит выделяется красным, хотя всё работает, но я не об этом проблема с созданием файла пдф, помогите исправить, где я накосячил.

...

Рейтинг:

0 / 0

24.11.2021, 14:20

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

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

#40114988

Wawan2005

Гость

Вот конечный результат для единичной распечатки квитанциии

Код: 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.
40.
41.
42.
43.
44.
45.
46.
47.
48.

Option Compare Database
Option Explicit
Public ZB1 As String, ZB9 As String, ZU1 As String, ZU9 As String, ZBU1 As String, ZBU9 As String, ZI1 As String, ZI9 As String, _
       ZUI1 As String, ZUI9 As String, B1 As String, qwer1, qwer2, B2 As String, Summ_pr As String, _
       stCriteria As String
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
#If VBA7 Then
    Private Declare PtrSafe Sub GenerateBMP _
                Lib "c:\Windows\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:\Windows\quricol64.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As LongPtr, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#Else 'For 32-bit office
    Private Declare Sub GenerateBMP _
                Lib "c:\Windows\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:\Windows\quricol32.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As Long, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#End If
Private Sub cmdIncetrQRCod_Click()
    GenerateBMPToClipboard StrPtr(Me.П_Уважаем1), 3, 5, QualityStandard
    Me.objQRCod.Action = acOLEPaste
End Sub
Private Sub Кн_ПечатьPDF_Click()
Dim stDocName As String, path
On Error GoTo Err_
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 'Не знаю, что делает эта команда
    DoCmd.OutputTo acOutputForm, "Ф_QR_Платёжка", acFormatPDF, _
    CurrentProject.path & "\КвитанцииPDF\" & [Код] & "_" & [ФИО] & ".pdf", False
Exit_:
    Exit Sub
Err_:
    MsgBox Err.Description
    Resume Exit_
End Sub

...

Рейтинг:

0 / 0

25.11.2021, 19:10

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

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

#40115001

Панург

Участник

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

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

Рейтинг: 0 / 0

Wawan2005

Вот конечный результат для единичной распечатки квитанциии

...

Рейтинг:

0 / 0

25.11.2021, 19:44

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

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

#40115021

Wawan2005

Гость

Панург,

пока да, для массовой печати надо думать, и просить, гуру, о помощи -)

...

Рейтинг:

0 / 0

25.11.2021, 21:23

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

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

#40115053

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005,

Код: vbnet

#If VBA7 Then

вообще-то определяет версию VBA...
VBA7 появилось начиная с версии акцесса 2010

Код: vbnet

#If Win64 Then

Определяет адаптацию VBA к 64 битным системам...
Примеры можно посмотреть тут
Так что не особо доверяй комментариям в чужом коде...

...

Рейтинг:

0 / 0

25.11.2021, 23:54

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

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

#40115101

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

Примеры можно посмотреть тут

очень так себе ссылка - херни там понаворочено. Всё это нужно смотреть прямо на сайте-источнике . Кстати, ссылку я уже давал раньше 22399491 .

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

#If Win64 Then
    #If VBA7 Then    ' Windows x64, Office 2010
        Declare PtrSafe Function ...
 'недостижимый код
    #Else    ' Windows x64,Office 2003-2007
        Declare Function...
    #End If
#Else
...

...

Рейтинг:

0 / 0

26.11.2021, 05:42

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

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

#40115148

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург,

Почему недостижимый код?
Туда будет залетать, например, офис 2007 64 бита:
Win64 - Да (вход в первый If)
VBA7 - Нет (вход в Else второго If)
Я ту ссылку специально привел, чтоб показать откуда растут ноги трабла из этого топика и его причину...
- Игнорирование Win64 и опускание до VBA7 допустимо только для встроенных 32-разрядных API функций...
- В данном топике речь о вызове внешних 64-разрядных dll, а не API, по этому без использования Win64 никак нельзя обойтись...
Игнорирование Win64 и опускание до только VBA7 в данном случае приведет к:
1. 64 разрядная dll будет вызываться в любом офисе старше 2007, даже в 32 разрядном, хотя и не будет в нем работать.
2. 32 разрядная библиотека будет вызываться в любом офисе младше 2010, даже в 64 разрядном и тоже всё туманно...

...

Рейтинг:

0 / 0

26.11.2021, 10:26

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

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

#40115165

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

Туда будет залетать, например, офис 2007 64 бита:

глобальные изменения произошли с 2010. Таким образом хватит

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

#IF VBA7 then
    'тут декларация одинаковая для 32-64 начиная с 2010
    #If WIN64 then
        'тут декларация специфичная для 64 начиная с 2010
    #Else
        'тут декларация специфичная для 32 начиная с 2010
    #End If
#Else
    'тут декларация одинаковая для всех с 2000 до 2007 включительно
#End If

читайте документацию и ничего не нужно придумывать

...

Рейтинг:

0 / 0

26.11.2021, 11:29

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

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

#40115166

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

вызове внешних 64-разрядных dll, а не API

а какая разница?

...

Рейтинг:

0 / 0

26.11.2021, 11:31

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

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

#40115168

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

Я ту ссылку специально привел,

а по той ссылке очень "удивится" Access 2007 когда обнаружит тип LongLong
хотя он туда конечно никогда не попадёт

vmag

Туда будет залетать, например, офис 2007 64 бита:
Win64 - Да (вход в первый If)

https://docs.microsoft.com/ru-ru/office/vba/language/concepts/getting-started/64-bit-visual-basic-for-applications-overview Написание кода, который работает как в Office 2010 (32-разрядный или 64-разрядный пакет), так и в предыдущих версиях Office
Чтобы написать код, работающий как в новой, так и в старой версиях Office, можно использовать комбинацию новых условных констант компилятора VBA7 и Win64 ...
Новых, Карл! Access 2007 об этих константах ничего не знает

...

Рейтинг:

0 / 0

26.11.2021, 11:35

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

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

#40115175

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

читайте документацию и ничего не нужно придумывать

хорошо, не будем ничего придумывать...
1. Есть офис 2007 32 бита и есть офис 2007 64 бита и есть внешние dll 32 бита и 64 бита, которые нужно дергать из этих офисов соответственно...
2. Судя по вашему коду мы подаем сразу в любом случае с этими dll в Else первого IF ибо 2007 это не VBA7 и чо?
еще раз лепим #If WIN64 then ?

...

Рейтинг:

0 / 0

26.11.2021, 11:48

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

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

#40115176

Панург

Участник

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

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

Рейтинг: 0 / 0

кстати, я даже не помню есть ли Access 2007 х64. Если и есть, то это такая же редкость, как WinXP x64

...

Рейтинг:

0 / 0

26.11.2021, 11:51

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

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

#40115177

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

еще раз лепим #If WIN64 then ?

нет, читай внимательней 22401148

...

Рейтинг:

0 / 0

26.11.2021, 11:53

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

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

#40115181

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

vmag

вызове внешних 64-разрядных dll, а не API

а какая разница?

разница в том, что адаптации API под 64 достаточно перед Function поставить PtrSafe, и если есть в конце As Long, то заменить его тупо на As LongPtr и всё взлетит ибо это одна и та же dll...
а внешние dll 32 и 64 это разные файлы и чаще всего по разному обзываются...

...

Рейтинг:

0 / 0

26.11.2021, 11:57

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

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

#40115185

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург,

Ладно, спор затянулся, мы уже и так почти всех запутали...
- У меня лично с этим вопросом проблем нет, кроме - одной приходится таскать два дистрибутива (под 32 и 64)
- У тебя похоже тоже проблем нет (как и офиса 64)

...

Рейтинг:

0 / 0

26.11.2021, 12:02

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

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

#40115187

Панург

Участник

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

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

Рейтинг: 0 / 0

Панург

а по той ссылке очень "удивится" Access 2007 когда обнаружит тип LongLong
хотя он туда конечно никогда не попадёт

vmag

Туда будет залетать, например, офис 2007 64 бита:
Win64 - Да (вход в первый If)

Тут, кстати, я погорячился. Оказывается таки проскочит. И 32 тоже
https://docs.microsoft.com/ru-ru/office/vba/language/concepts/getting-started/compiler-constants

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

#If Win64 Then 
' Win64=true, Win32=true, Win16= false 
#ElseIf Win32 Then 
' Win32=true, Win16=false 
#Else 
' Win16=true 
#End If

таким образом все 32битные влетят в новую (PtrSafe) декларацию с новыми типами

...

Рейтинг:

0 / 0

26.11.2021, 12:04

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

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

#40115189

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

тебя похоже тоже проблем нет (как офиса 64)

нет, я этим вообще не занимаюсь

...

Рейтинг:

0 / 0

26.11.2021, 12:06

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

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

#40115283

Wawan2005

Гость

Панург,

Вот у Вас проблема-))))
А мой код, случайно, под массовую печать в ПДФ переделать не хотите?! -)))))))

...

Рейтинг:

0 / 0

26.11.2021, 15:32

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

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

#40115288

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005

А мой код, случайно, под массовую печать в ПДФ переделать не хотите?! -)))))))

А сам?
Какого ты форму в пдф выводишь?
Выводи отчет, сколько будет там листов, столько и будет листов в пдф файле, потом печатай хоть все, хоть через один...

...

Рейтинг:

0 / 0

26.11.2021, 15:44

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

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

#40115297

Wawan2005

Гость

vmag,

Мне их печатать не надо будет, мне надо будет их разослать по вайберу/вацапу или мылу, по этому и надо чтобы были отдельным файлом.

...

Рейтинг:

0 / 0

26.11.2021, 16:08

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

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

#40115324

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005

надо чтобы были отдельным файлом.

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

...

Рейтинг:

0 / 0

26.11.2021, 16:59

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

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

#40115360

Wawan2005

Гость

vmag,

Я, не умею программировать, я просто собираю "франкинштэйна", кто-то один кусочек даст, кто то другой а я всё это собираю в кучу и вдыхаю жизнь-)

...

Рейтинг:

0 / 0

26.11.2021, 20:49

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

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

#40115362

Wawan2005

Гость

Вот нашёл кусок, но 2-й день не могу под себя адаптировать

Код: 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.

Sub UpdateEmployees() 
Dim dbsNorthwind As DAO.Database 
Dim rstEmployees As DAO.Recordset 
Dim strSQL As String 
Dim intI As Integer 
On Error GoTo ErrorHandler 
    Set dbsNorthwind = CurrentDb 
   ' Open a recordset on all records from the Employees table that have 
   ' a Null value in the ReportsTo field. 
   strSQL = "SELECT * FROM Employees WHERE ReportsTo IS NULL" 
   Set rstEmployees = dbsNorthwind.OpenRecordset(strSQL, dbOpenDynaset) 
   ' If the recordset is empty, exit. 
   If rstEmployees.EOF Then Exit Sub 
   intI = 1 
   With rstEmployees 
      Do Until .EOF 
         .Edit 
         ![ReportsTo] = 5 
         ![Title] = "Temporary" 
         ![Notes] = rstEmployees![Notes] & "Temp #" & intI 
         .Update 
         .MoveNext 
         intI = intI + 1 
      Loop 
   End With 
   RstEmployees.Close 
   dbsNorthwind.Close 
    Set rstEmployees = Nothing 
   Set dbsNorthwind = Nothing 
    Exit Sub 
 ErrorHandler: 
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description 
End Sub

...

Рейтинг:

0 / 0

26.11.2021, 21:26

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

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

#40115369

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005

Я, не умею программировать, я просто собираю "франкинштэйна", кто-то один кусочек даст, кто то другой а я всё это собираю в кучу и вдыхаю жизнь-)

я тебе, как радиотехнику, расскажу как я в детстве собирал из радио деталей простенький приёмник, деталей так на 20-30...
в журнале "Радио" и схема была и чертеж платы с размерами, дорожками и дырками и список всех деталей и как и на что мотать катушки
(тип сердечника, марка провода, диаметр катушки и сколько витков и как их мотать - в навал или виток к витку)...
- С гетинаксом я не стал заморачиваться, проткнул дырки в новогодней открытке вязальной спицей (получилась материнская плата) и воткнул туда детали...
- Некоторых резисторов я не нашел, по этому воткнул в дырки близкие по параметрам, например вместо 10 ком - 15 или 5,
примерно тоже самое я сделал и с конденсаторами, так как я понятия не имел где брать ферритовые сердечники,
то катушки намотал на обрезки от гвоздей, причем проводами, которые у меня были в тумбочке...
В общем, по количеству деталей всё было тютелька в тютельку и с обратной стороны их ножки были
спаяны всякими соплями строго согласно прилагаемой схемы, но к сожалению я так и не смог вдохнуть в него жизнь,
причем даже повышенным в 2-3 раза от положенного напряжением...

Вот что бы ты мне сказал (посоветовал) если бы я к тебе пришел как к радиотехнику с таким "франкинштэйном" ?

Не, ну я не исключаю тот факт, что ты бы все это выбросил и сделал приемник с нуля и как положено,
но лично мне в это верится с трудом...

...

Рейтинг:

0 / 0

26.11.2021, 22:51

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

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

#40115374

Wawan2005

Гость

vmag,

Мне не нужно переделывать весь приёмник, мне надо помочь с намоткой катушек, чтобы попасть на нужную частоту, так как он сейчас работает, но ловит не все станции, а с новой катушкой "попрёёёёт" -)
У меня пустая база весит больше 250 МВ, её не переделать, она начата была в 1998 году, имела одну форму и одну таблицу, а сейчас .....

...

Рейтинг:

0 / 0

26.11.2021, 23:35

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

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

#40115375

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005

У меня пустая база весит больше 250 МВ

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

...

Рейтинг:

0 / 0

26.11.2021, 23:56

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

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

#40115390

Wawan2005

Гость

vmag,

До сжатия она весила 2ГБ)
Когда она начала сбоить, и не давать вносить данные, тогда и задумался как облегчить её, устроил фитнес процедуры, сейчас заполненная весит около 450 МБ.
Так и началась эпопея её обновлений

...

Рейтинг:

0 / 0

27.11.2021, 00:59

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

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

#40115394

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005,

Ну, с таким то опытом работы (с 1998 года), я думаю ты справишься и сам, потихонечку, с шуточками и прибауточками...

...

Рейтинг:

0 / 0

27.11.2021, 01:16

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

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

#40115432

Wawan2005

Гость

vmag

Ну, с таким то опытом работы (с 1998 года)

Не, я ей занялся, году в 2005-2006, а глобально переделывать начал в 2017, но так как , ты правильно заметил, я не программист, а паяльник, то если здесь не помогут, буду искать кто поможет.

...

Рейтинг:

0 / 0

27.11.2021, 08:36

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

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

#40115461

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

Wawan2005

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

А зачем что-то адаптировать? Искать не буду,но точно знаю-видел на этом форуме; все что Вы пытаетесь "приладить" есть готовое для ACCESS

...

Рейтинг:

0 / 0

27.11.2021, 11:27

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

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

#40115795

uum

Гость

Панург

Согласен. Большое спасибо.
Реально понравилось. Подправил код для Access(64).
Проверил на Win7(32,64)+А2010(32), Win16(64)+А2010(64). Теперь работает.
https://www.cyberforum.ru/post15886094.html

...

Рейтинг:

0 / 0

29.11.2021, 09:45

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

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

#40115837

uum

Гость

Wawan2005

Я, не умею программировать, я просто собираю "франкинштэйна"...

Может сгодится приладить вместо головы: https://www.cyberforum.ru/post15886390.html

...

Рейтинг:

0 / 0

29.11.2021, 12:00

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

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

#40115995

Wawan2005

Гость

uum,
"""
У меня офис 2007, можешь пересохранить, эти файлы "как для офф2007"

...

Рейтинг:

0 / 0

29.11.2021, 21:25

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

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

#40116002

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Wawan2005,

Вот в формате 2002-2003 , только сразу сохрани в acdb, не ковыряйся в нем...
В понятный формат для 2007 из 2010 не всегда можно, в 2002-2003 из 2010 можно иногда и в этот раз условно прокатило, правда одна форма из оригинала пропала, но повезло - в новой концепции она не используется...

...

Рейтинг:

0 / 0

29.11.2021, 21:57

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

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

#40116028

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

Вот в формате 2002-2003

Следует поправить типы, сомневаюсь что Access по 2007 поймёт LongPtr .

например так

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    #If VBA7 Then
        bmBits As LongPtr
    #Else
        bmBits As Long
    #End If
End Type

не стоит использовать в данном случае acExportQualityScreen в OutputTo - качество очень пострадает. ИМХО

...

Рейтинг:

0 / 0

30.11.2021, 04:57

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

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

#40116087

uum

Гость

Wawan2005, сохранил в Access 2010 32bit в формате по умолчанию Access 2007 с учетом замечаний Панурга.
В предыдущем файле при замене формы КВ на одноименный отчет забыл изменить ссылку на данные, из которых формируется отчет. Поэтому QR-код получился в том файле с пустыми данными.

...

Рейтинг:

0 / 0

30.11.2021, 12:20

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

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

#40116090

uum

Гость

Да, безусловное место сохранения файла .pdf изменил. Если надоест кликать мышей одно и то же, вернешь обратно.

...

Рейтинг:

0 / 0

30.11.2021, 12:23

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

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

#40116093

uum

Гость

Офиса 2007 и более ранних у меня ни дома ни на работе нет. Проверить не могу.
В Access 2016 код после согласования объявления переменных не работал по этой причине:
Call GetObject(hBitmap, LenB(ds), ds).

...

Рейтинг:

0 / 0

30.11.2021, 12:28

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

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

#40116094

vmag

Участник

Откуда: MP

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

Рейтинг: 0 / 0

Панург

Следует поправить типы, сомневаюсь что Access по 2007 поймёт LongPtr .

а он и не будет понимать, vba7 началось с офиса 2010...

Код: vbnet

1.
2.
3.
4.
5.
6.

#If VBA7 Then
        ' сюда акцесс 2007 никогда не попадет, только 2010 и выше
        bmBits As LongPtr
#Else
        bmBits As Long
#End If

...

Рейтинг:

0 / 0

30.11.2021, 12:28

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

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

#40116099

Панург

Участник

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

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

Рейтинг: 0 / 0

vmag

а он и не будет понимать, vba7 началось с офиса 2010...

я знаю, читаю иногда документацию... пример решения и был приведён ниже... после просмотра примера 22402775

...

Рейтинг:

0 / 0

30.11.2021, 12:37

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

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

#40116846

Wawan2005

Гость

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

...

Рейтинг:

0 / 0

02.12.2021, 21:07

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

126 сообщений из 126, показаны все 6 страниц

все

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?all=1&fid=45&tid=1609540]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	178ms
get topic data:	10ms
get forum data:	2ms
get page messages:	113ms
get tp. blocked users:	1ms
others:	12ms

total:	342ms