ReSQL.ru
     
powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, адаптировать код из VBA Excel в VBA Access
25 сообщений из 126, страница 5 из 6
  5  все
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115187
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Панург
а по той ссылке очень "удивится" 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
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
vmag
тебя похоже тоже проблем нет (как офиса 64)
нет, я этим вообще не занимаюсь
...
Рейтинг: 0 / 0
26.11.2021, 12:06
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115283
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Панург,

Вот у Вас проблема-))))
А мой код, случайно, под массовую печать в ПДФ переделать не хотите?! -)))))))
...
Рейтинг: 0 / 0
26.11.2021, 15:32
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115288
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Wawan2005
А мой код, случайно, под массовую печать в ПДФ переделать не хотите?! -)))))))

А сам?
Какого ты форму в пдф выводишь?
Выводи отчет, сколько будет там листов, столько и будет листов в пдф файле, потом печатай хоть все, хоть через один...
...
Рейтинг: 0 / 0
26.11.2021, 15:44
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115297
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
vmag,

Мне их печатать не надо будет, мне надо будет их разослать по вайберу/вацапу или мылу, по этому и надо чтобы были отдельным файлом.
...
Рейтинг: 0 / 0
26.11.2021, 16:08
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115324
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Wawan2005
надо чтобы были отдельным файлом.


тогда без разницы, перебирай рабочий набор и каждую запись его выводи в пдф по тихому отдельным файлом
...
Рейтинг: 0 / 0
26.11.2021, 16:59
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115360
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
vmag,

Я, не умею программировать, я просто собираю "франкинштэйна", кто-то один кусочек даст, кто то другой а я всё это собираю в кучу и вдыхаю жизнь-)
...
Рейтинг: 0 / 0
26.11.2021, 20:49
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115362
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Wawan2005
Я, не умею программировать, я просто собираю "франкинштэйна", кто-то один кусочек даст, кто то другой а я всё это собираю в кучу и вдыхаю жизнь-)


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

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

Не, ну я не исключаю тот факт, что ты бы все это выбросил и сделал приемник с нуля и как положено,
но лично мне в это верится с трудом...
...
Рейтинг: 0 / 0
26.11.2021, 22:51
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115374
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
vmag,

Мне не нужно переделывать весь приёмник, мне надо помочь с намоткой катушек, чтобы попасть на нужную частоту, так как он сейчас работает, но ловит не все станции, а с новой катушкой "попрёёёёт" -)
У меня пустая база весит больше 250 МВ, её не переделать, она начата была в 1998 году, имела одну форму и одну таблицу, а сейчас .....
...
Рейтинг: 0 / 0
26.11.2021, 23:35
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115375
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Wawan2005
У меня пустая база весит больше 250 МВ

а сжимать не пробовал?
думаю ты будешь шокирован её размером после сжатия...
ну правда если ты по формам распихал свою картинную галерею, то тогда да... может и гиг занять
...
Рейтинг: 0 / 0
26.11.2021, 23:56
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115390
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
vmag,


До сжатия она весила 2ГБ)
Когда она начала сбоить, и не давать вносить данные, тогда и задумался как облегчить её, устроил фитнес процедуры, сейчас заполненная весит около 450 МБ.
Так и началась эпопея её обновлений
...
Рейтинг: 0 / 0
27.11.2021, 00:59
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115394
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Wawan2005,

Ну, с таким то опытом работы (с 1998 года), я думаю ты справишься и сам, потихонечку, с шуточками и прибауточками...
...
Рейтинг: 0 / 0
27.11.2021, 01:16
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115432
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
vmag
Ну, с таким то опытом работы (с 1998 года)

Не, я ей занялся, году в 2005-2006, а глобально переделывать начал в 2017, но так как , ты правильно заметил, я не программист, а паяльник, то если здесь не помогут, буду искать кто поможет.
...
Рейтинг: 0 / 0
27.11.2021, 08:36
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115461
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Wawan2005

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

А зачем что-то адаптировать? Искать не буду,но точно знаю-видел на этом форуме; все что Вы пытаетесь "приладить" есть готовое для ACCESS
...
Рейтинг: 0 / 0
27.11.2021, 11:27
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115795
uum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
uum
Гость
Wawan2005
Я, не умею программировать, я просто собираю "франкинштэйна"...
Может сгодится приладить вместо головы: https://www.cyberforum.ru/post15886390.html
...
Рейтинг: 0 / 0
29.11.2021, 12:00
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40115995
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
uum,
"""
У меня офис 2007, можешь пересохранить, эти файлы "как для офф2007"
...
Рейтинг: 0 / 0
29.11.2021, 21:25
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40116002
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Wawan2005,

Вот в формате 2002-2003 , только сразу сохрани в acdb, не ковыряйся в нем...
В понятный формат для 2007 из 2010 не всегда можно, в 2002-2003 из 2010 можно иногда и в этот раз условно прокатило, правда одна форма из оригинала пропала, но повезло - в новой концепции она не используется...
...
Рейтинг: 0 / 0
29.11.2021, 21:57
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40116028
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
uum
Гость
Wawan2005, сохранил в Access 2010 32bit в формате по умолчанию Access 2007 с учетом замечаний Панурга.
В предыдущем файле при замене формы КВ на одноименный отчет забыл изменить ссылку на данные, из которых формируется отчет. Поэтому QR-код получился в том файле с пустыми данными.
...
Рейтинг: 0 / 0
30.11.2021, 12:20
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40116090
uum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
uum
Гость
Да, безусловное место сохранения файла .pdf изменил. Если надоест кликать мышей одно и то же, вернешь обратно.
...
Рейтинг: 0 / 0
30.11.2021, 12:23
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40116093
uum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
uum
Гость
Офиса 2007 и более ранних у меня ни дома ни на работе нет. Проверить не могу.
В Access 2016 код после согласования объявления переменных не работал по этой причине:
Call GetObject(hBitmap, LenB(ds), ds).
...
Рейтинг: 0 / 0
30.11.2021, 12:28
| Ответить | Цитировать | Написать  
Помогите, адаптировать код из VBA Excel в VBA Access
    #40116094
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Панург
Следует поправить типы, сомневаюсь что 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
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
vmag
а он и не будет понимать, vba7 началось с офиса 2010...

я знаю, читаю иногда документацию... пример решения и был приведён ниже... после просмотра примера 22402775
...
Рейтинг: 0 / 0
30.11.2021, 12:37
| Ответить | Цитировать | Написать  
25 сообщений из 126, страница 5 из 6
  5  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, адаптировать код из VBA Excel в VBA Access
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=40115390&tid=1609540]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 247ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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