Добрый день. Есть запрос на вывод данных в Excel:

sq = "SELECT dbo_DATA.DATE, dbo_DATA.DATE, [Спр_кодов 80020 и ASKP].[Наименование объекта], dbo_DATA.REGID, [Спр_кодов 80020 и ASKP].[Тип объекта], [Спр_кодов 80020 и ASKP].[Уровень напряжения], [Спр_кодов 80020 и ASKP].Направление, Спр_ЧПН.Час, dbo_DATA.COUNT, dbo_DATA.H1, dbo_DATA.H2, dbo_DATA.H3, dbo_DATA.H4, dbo_DATA.H5, dbo_DATA.H6, dbo_DATA.H7, dbo_DATA.H8, dbo_DATA.H9, dbo_DATA.H10, dbo_DATA.H11, dbo_DATA.H12, dbo_DATA.H13, dbo_DATA.H14, dbo_DATA.H15, dbo_DATA.H16, dbo_DATA.H17, dbo_DATA.H18, dbo_DATA.H19, dbo_DATA.H20, dbo_DATA.H21, dbo_DATA.H22, dbo_DATA.H23, dbo_DATA.H24, dbo_DATA.H25, dbo_DATA.H26, dbo_DATA.H27, dbo_DATA.H28, dbo_DATA.H29, dbo_DATA.H30, dbo_DATA.H31, dbo_DATA.H32, dbo_DATA.H33, dbo_DATA.H34, dbo_DATA.H35, dbo_DATA.H36, dbo_DATA.H37, dbo_DATA.H38, dbo_DATA.H39, dbo_DATA.H40, dbo_DATA.H41, dbo_DATA.H42, dbo_DATA.H43, dbo_DATA.H44, dbo_DATA.H45, dbo_DATA.H46, dbo_DATA.H47, dbo_DATA.H48 "
sq = sq & "FROM (dbo_DATA LEFT JOIN Спр_ЧПН ON dbo_DATA.DATE = Спр_ЧПН.Дата) INNER JOIN [Спр_кодов 80020 и ASKP] ON dbo_DATA.REGID = [Спр_кодов 80020 и ASKP].Идентификатор "
sq = sq & "WHERE (((dbo_DATA.Date)>=#" & f_date_am(d1) & "# And (dbo_DATA.Date)<=#" & f_date_am(d2) & "#) AND (([Спр_кодов 80020 и ASKP].[Отчет, где используется])=""баланс""));"

Set zap = CurrentDb.OpenRecordset(sq)
If zap.RecordCount <> 0 Then
zap.MoveFirst
While zap.EOF <> True
For i = 1 To 56
j = 2 + zap.RecordCount
l2.Cells(j, i) = zap.Fields(i).Value
Next i
zap.MoveNext
Wend
End If
Set zap = Nothing


И все вроде хорошо, все работает. Но выводит вез сортировки по нужны полям.
Добавляю последней строкой сортировку по нужным полям:
sq = sq & "ORDER BY dbo_DATA.DATE, dbo_DATA.REGID;"

И начинаются проблемы. Поскольку recordcount не считает число записей до обращения к ним. Из- за добавления строки с сортировкой : sq = sq & "ORDER BY dbo_DATA.DATE, dbo_DATA.REGID;" , обращение ко всем записям произошло. И нарушаются параметры вывода в цикле

Set zap = CurrentDb.OpenRecordset(sq)
If zap.RecordCount <> 0 Then
zap.MoveFirst
While zap.EOF <> True
For i = 1 To 56
j = 2 + zap.RecordCount
l2.Cells(j, i) = zap.Fields(i).Value
Next i
zap.MoveNext
Wend
End If
Set zap = Nothing

Ведь каждый раз zap.RecordCount не становится на один больше ,а это теперь просто конечное число записей. Какой выход из ситуации???

Попытался переписать цикл:

Set zap = CurrentDb.OpenRecordset(sq)
If zap.RecordCount <> 0 Then
zap.MoveFirst
While zap.EOF <> True
For i = 1 To 56
For j = 3 To zap.RecordCount
l2.Cells(j, i) = zap.Fields(i).Value
Next j
Next i
zap.MoveNext
Wend
End If
Set zap = Nothing


Но проблема в другом условие While zap.EOF <> True никогда не выполняется. цикл получается бесконечный.
Как решить вопрос с сортировкой по первому пути? или как поставить условие While по второму пути?

https://www.sql.ru/forum/1307931/recordcount-v-cikle-opredelenie-kolichestva-zapisey-recordset

Здравствуйте. Прошу помочь.
Есть файл xls в нем 12-13 листов, на каждом из которых один столбец в несколько тысяч разных фраз/словосочетаний/предложений, и рядом с каждой фразой в соседнем втором столбце индекс/число (чем оно больше, тем фраза важнее).
Как посчитать на каком количестве листов файла встречается каждая фраза файла и ее средний индекс важности? Нужен подсчет повторяемости фраз только целиком на строгое соответствие - розовые слоны и розовые слоны с ушами это две разные фразы - повторяемость для каждой отдельно считаем.
Спасибо.

https://www.sql.ru/forum/1307929/poschitat-povtoryaemost-fraz

Добрый день.

Дано:

Таблица Actions ([id,Счетчик], [ActionDate,Дата/время], [ActionTime,Дата/время], [UserId, Текстовый], [Action, Логический]
1.
Запрос вида:

 insert into Actions (ActionDate, ActionTime, UserId, Action) values ('03.12.2018', '7:42:10', '(206,49044)', True)

прекрасно исполняется из конструктора запросов аксесс.

2.
выдает ошибку при попытке исполнения из эксель

 
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=........\stat.accdb;Persist Security Info=False;"
cn.Open
cn.Execute ("insert into Actions (ActionDate, ActionTime, UserId, Action) values ('03.12.2018', '7:42:10', '(206,49044)', True)")

ошибка: Ошибка синтаксиса в инструкции INSERT INTO.

Куда копать?

https://www.sql.ru/forum/1307919/raznaya-rabota-drayverov-odbc-help

Добрый день!
как удалить строку в рекордсете но при это не сохранять результат в базе????

https://www.sql.ru/forum/1307912/rs2-delete-kak-udalit-stroku-v-rekordsete-no-pri-eto-ne-sohranyat-rezultat-v-baze

Добрый день!

Не подскажите как реализовать следуюзщий функционал:

Нашему начальнику будут приходить письма по Outlook с пределенной темой сообщения (например "Отпрашивание") и текстом. Необходимо реализовать возможность записи в определенную таблицу Access входящих сообщений с вышеуказанной темой, чтобы в таблицу записывались данные об отправителе, дате создания и главным текстом сообщения.

https://www.sql.ru/forum/1307799/zapis-iz-outlook-v-access

Доброго времени суток!

Подскажите, можно ли объкт Recordset целиком записать в таблицу?

    Dim db As DAO.Database
    Dim db1 As DAO.Database
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    
    Set db = CurrentDb
    Set db1 = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Table1")
    Set rs1 = db.OpenRecordset("Table2")
    
    Set rs1 = rs

т.е. можно ли выбрав данные с помощью объекта Recordset из таблицы стразу сохранить их в другую таблицу без перебора или хотябы перебером но целиком по строкам. Структура обоих таблиц одинакова.

https://www.sql.ru/forum/1307775/kopirovanie-obktov-recordset

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

общая схема
1. выделен отдельный старенький ноут на котором по расписанию две задачи одна перезагрузка раз в сутки вторая -запуск приложения ежечасно в рабочие часы.
2. приложение будучи запущенным с определенным ключом запускает по очереди формы с функционалом работы с тем или иным банком. При этом происходит не взлом ресурса а эмулируется работа пользователя, в том числе выполняются скрипты и формируются динамически создаваемые страницы.
3. на форме размещен контрол webbrowser и кнопка запуска / отладки процесса вручную
4. в ходе работы программый код управляет навигацией в компоненте веббраузер втч проходит аутентификацию т.е. вводит логин и пароль, делает выбор опций, переходит по ссылкам, совершает эмуляцию нажатий на элементы разметки страницы, закачивает файлы втч пдф с защищенных страниц.

из windows-шедулера запускается vbs скрипт следующего содержания

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'MSACCESS.exe'")

Set oShell = CreateObject("WScript.Shell")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

access1Xpath = "C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.EXE"
workdirclientfile = "C:\base\buch\internetbank.adp"
StartupParams = "/CMD robot"

wscript.sleep 2000
oShell.Run """" & access1Xpath  & """ """ &  workdirclientfile & """ " & StartupParams

как отловить аргумент запуска приложения в функции автозагрузки

ISRobotmode = CStr(Command()) Like "*Robot*"

затем открываем форму и запускаем публичный метод btn_login_Click

  DoCmd.OpenForm "webclient"
  Forms("webclient").btn_login_Click

некоторые методы работы с вебраузером
вход на страницу аутертификации

Me.WebBrowser1.SetFocus
Me.WebBrowser1.navigate "https://businessinfo.r....k.ru/"
Me.WebBrowser1.Silent = True
wait_ready

при этом сайлент предотвращает появление некоторых ненужных диалогов в случае ошибок скриптов на странице

функция ожидания готовности загрузки страницы может выглядеть так

Private Sub wait_ready()
Do While Me.WebBrowser1.Busy Or Me.WebBrowser1.readyState <> READYSTATE_COMPLETE
   DoEvents
Loop
End Sub

ввести логин в определенное поле

Me.WebBrowser1.Document.getElementsByName("Login[id]")(0).Value = "xxxxxxxxxx"

найти кнопку выполнить обработку событий фокус и клик

Set btn = Me.WebBrowser1.Document.getElementsByClassName("js-ajax-load b-btn g-btn")(0)
btn.focus
btn.Click

ввод данных вебформы

Me.WebBrowser1.Document.getElementsByName("Account[dateFrom]")(0).Value = Format(onDate, "dd.mm.yyyy")

отправка данных вебформы

Me.WebBrowser1.Document.Forms.submitForm.submit

сохранение содержимого страницы в файл для парсинга

Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile("C:\tmp\outnew" & accID & ".html", True, True)
    Fileout.Write WebBrowser1.Document.documentElement.outerHTML
    Fileout.Close

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

Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

вызов

    URLDownloadToFile 0, "https://businessinfo.r.....k.ru" & url, "C:\tmp\tmpfile.pdf", 0, 0

могут пригодиться инструменты изучения структуры страницы
firefox -> веб разработка -> инструменты разработчика
функция "исследовать элемент" в выпадающем меню

https://www.sql.ru/forum/1307767/nemnozhko-pro-robotov-dlya-sbora-informacii-iz-interneta-na-webbrowser

Взято тут - https://www.devhut.net/2019/01/12/access-97-bug-unrecognized-database-format/

Обновление, KB4480960, выпущенное 8 января 2019 года, ломает Access '97, что приводит к ошибке «Нераспознанный формат базы данных».

На разных форумах появляются сообщения

Несовместимые Microsoft Access 97 и Windows 10 Январь 2019 Обновление

С 12.01.2019 Microsoft наконец-то добавила запись об этом в разделе «Известные проблемы» этой статьи «Обновление» на веб-странице от 8 января 2019 года - KB4480960 (обновление только для безопасности) .

Их обходные пути требуют изменения форматов файлов, изменения версий Access или изменения структуры базы данных! Самое простое решение - просто удалить некорректное обновление, нет ?!

Так что, если вы все еще используете или поддерживаете базы данных Access '97, которые внезапно сообщают о «нераспознанном формате базы данных», просто знайте, что вы ничего не сделали, это снова Microsoft! Что касается того, как вы решаете проблему, это зависит от вас, но для меня изменение структуры базы данных, принуждение клиентов к смене программного обеспечения ... просто не имеет смысла для меня. Удаление явно некорректного обновления - лучшее решение.

Прошу прощения за корявый перевод.





-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1307754/access-97-oshibka-neraspoznannyy-format-bazy-dannyh

Делаю запрос, в одном столбце получаю ячейки с пустыми данными. Их надо преобразовать в 0.
Пробывала Nz([Время_м];0), тогда оставляет стоки, где есть данные.

https://www.sql.ru/forum/1307751/pereobrazovat-pustuu-yachkyku-v-0

Так, для общего сведения

Функция ShellExecute запускает программу по имени или по ассоциации с файлом документа.

Объявление
для VBA 6

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
      (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
      ByVal lpParameters As String, ByVal lpDirectory as String, _
      ByVal nShowCmd As Long) As Long

Для VBA 7

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
      (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
      ByVal lpParameters As String, ByVal lpDirectory As String, _
      ByVal nShowCmd As Long) As LongPtr 

Примечание. VBA 7 при компиляции сам присваивает нужный тип переменным LongPtr - Long для 32-х битных версий офиса и LongLong для 64-х битных.

Описание.
Функция находит имя программы, связанной с заданным файлом, и либо запускает программу с загрузкой данного файла, либо выводит файл на печать. Типы файлов обычно связывается с конкретными приложениями в реестре Windows. Например, текстовые файлы с расширением .TXT обычно ассоциируются с приложением Windows Notepad (NOTEPAD.EXE). Если передать этой функции любой файл с расширением .TXT, функция либо запускает программу Notepad, указывая имя файла в качестве параметра, либо выводит файл на печать.

Параметры.
hwnd - Long/LongLong - манипулятор окна (хендл). Идентификатор родительского окна. Указывать родительское окно не обязательно, можно просто 0
lpOperation – String - операция, выполняемая с файлом. Может иметь следующие значения: «open», «print», «explore», «find», «edit».

Если lpOperation="find", функция выводит диалоговое окно для поиска файлов по условиям. Параметр lpFile должен указывать путь к папке, начиная с которой будет выполняться поиск. Остальные параметры не используются.

Если lpOperation="explore", функция выводит диалоговое окно - список папок. Параметр lpFile должен указывать путь к папке, содержимое которой нужно посмотреть. Остальные параметры не используются.

Если lpOperation="edit", функция открывает файл на редактирование, загружая приложение, ассоциированное с расширением файла. Параметр Edit должен содержать имя файла, параметр plDirectory - указывать путь к этому файлу; если параметр lpDirectory не используется, то параметр lpFile должен указывать путь и имя файла.

Если lpOperation="open", функция выполняет следующие действия: если в lpFile указан исполняемый файл (например, типа EXE), то он запускается на выполнение; загружаемой программе передаётся список параметров, указанных в lpParameters; в противном файл открывается на редактирование.

Если lpOperation="print", то выполняется печать файла на принтере (фактически загружается ассоциированное с расширением файла приложение, которое и печатает документ).

По умолчанию - "open", если указано Null (vbNullString) или значение опущено.

lpFile – String – файл или папка, которую нужно открыть
lpParameters – String – параметры открытия файла, т.ч. запуска приложения. Используется только при запуске приложений
lpDirectory – String – рабочая директория
nShowCmd – Long – параметры окна открытого файла (приложения, директории)

Параметры lpOperation, lpParametrs и lpDirectory можно опускать

Параметр nShowCmd может иметь значения от 0 до 10. Наиболее часто используемые значения:

SW_HIDE = 0 - запускаемое приложение делается невидимым
SW_SHOWMAXIMIZED = 3 - развернутое (максимальное) окно;
SW_SHOWMINIMIZED = 2 - свернутое окно (значок) в панель задач;
SW_SHOWNORMAL = 1 - нормальное окно.

Более полный список параметров можно взять из описания функции ShowWindow

Если функция возвращает значение больше 32-х, то всё в порядке, иначе смотрите коды ошибок.

0 - Недостаточно памяти или ресурсов
SE_ERR_FNF = 2 - Указанный файл не найден (ERROR_FILE_NOT_FOUND)
SE_ERR_PNF = 3 - Указанный путь не существует (ERROR_PATH_NOT_FOUND)
SE_ERR_ACCESSDENIED = 5 - Операционная система не имеет доступа к указанному файлу
SE_ERR_OOM = 8 - Недостаточно памяти или ресурсов Windows
ERROR_BAD_FORMAT = 11 - Формат .EXE неверен (не-Win32 .EXE или ошибка в .EXE файле).
SE_ERR_SHARE = 26 - Произошла ошибка совместного доступа
SE_ERR_DDETIMEOUT = 28 - Операция DDE не была закончена, потому что истекло время запроса
SE_ERR_DDEFAIL = 29 - Операция ПРЯМОГО ВВОДА ДАННЫХ потерпела неудачу
SE_ERR_DDEBUSY = 30 - Операция ПРЯМОГО ВВОДА ДАННЫХ(DDE) не может работать, потому что другие действия ПРЯМОГО ВВОДА ДАННЫХ находятся в процессе
SE_ERR_NOASSOC = 31 - Нет никакого приложения, ассоциированного с расширением файла
SE_ERR_DLLNOTFOUND = 32 - Указанный файл DLL не найден

Пример использования

Private Declare Function ShellExecute Lib "shell32" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, _
        ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Private Sub btnSend_Click()
' запуск почтовика для отправки письма
  ShellExecute 0, vbNullString, _
     "mailto:nemiro_as@vbnet.ru", vbNullString, _
     vbNullString, SW_SHOWNORMAL
End Sub

Private Sub btnSite_Click()
' открытие сайта
   ShellExecute(0,'open','www.am.rusimport.ru',,,sw_shownormal);
End Sub

Примечание.
Как и у многих других функции WinAPI, у ShellExecute существует два варианта: ShellExecuteA и ShellExecuteW. A- и W-версии отличаются типом строк: A - ASCII, W - WCHAR (юникоде). Не путайте. В Access используется тип А.

Используемые материалы
Дан Эпплман - Win32 API и Visual Basic
Сайт Cybite.ru - \http://kbyte.ru/ru/Programming/Guides.aspx?id=193&mode=show
Сайт Тостер - https://toster.ru/q/195225
и вот здесь - http://platonov-andrei.narod.ru/Delphi/FuncAPI/ShellExecute.htm


Замечания по изложению есть?

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1307749/funkciya-api-shellexecute-opisanie-i-primenenie

Нужно посмотреть или правильно создала запросы для отчета СТАТИСТИКА, если нет, то подкорректировать,по возможности.БД прикрепила к теме
Это данные для запросов по отчету:
Наименование отдела, количество мужчин, % мужчин до 30
лет, средний оклад мужчин, % мужчин с высшим образованием,
количество женщин, % женщин до 30 лет, средний оклад
женщин, % женщин с высшим образованием
Заранее огромное спасибо!!!

https://www.sql.ru/forum/1307735/pomogite-pozhaluysta-sdelat-neskolko-zaprosov-dlya-formirovaniya-otcheta-v-access

Всем привет. Очень нужна помощь. Есть таблица. Необходимо вывести студентов попарно в два столбца в зависимости от их среднего балла из таблица ведомость.
Пример, есть у нас 4 студента и известны их средние баллы:
Иванов 5
Петров 4,5
Сидоров 4
Скворцов 3,5
Таким образом они должны выводиться в таком порядке:
1 столбец 2 столбец
Иванов Петров
Петров Сидоров
Сидоров Скворцов
Т.е. студенты выводятся попарно X>Y в таком порядке
Файл с БД прикреплен.

https://www.sql.ru/forum/1307723/mysql-poparnyy-vyvod

Добрый день! при выполнении запроса ошибка несоответствия типов, в таблице "технологическая" есть числовой столбец "cod" в который я выгрузил коды заявок, теперь хочу отобрать по ним записи из таблицы "Заявки", но там поле "Код" -счетчик. Все вроде очевидно разные типы, но все же и там и там числа, запрос не работает, что можно сделать???? как то преобразовать ? или может вообще дело не в этом?


Set rs_code = CurrentDb.OpenRecordset("select cod from технологическая", dbOpenDynaset)
Set rs_заявки = CurrentDb.OpenRecordset("select №заявки from Заявки where Код in (" & rs_code & ")", dbOpenDynaset)

https://www.sql.ru/forum/1307694/oshibka-nesootvetstviya-tipov

Дано:
1)Таблица столбцы в которой называются [Дата],[Наименование потребителя],[1],[2],[3]....[24], где 1,2,3...24 часы суток.
В этой таблице стоят значения электропотребления по конкретным потребителям за любую дату в конкретный час суток.
2)Талица столбцы в которой называются [Дата],[Начальный час],[Конечный час](значения в столбцах начальный и конечный час стоят цифрами от 1 до 24 соответственно)
Можно ли сделать запрос результатом которого будет являться значения электропотребления только в те часы соответствующих суток, которые указаны в таблице 2? То есть нужно ввести те столбцы из одной таблицы, названия которых указанны в другой таблице.

https://www.sql.ru/forum/1307680/zapros-na-vyvod-tolko-teh-stolbcov-iz-tablicy-nazvanie-kotoryh-ukazanno-v-drugoy-tablice

привет всем..


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

но главная загвоздка в том что после покупки иногда нужно делать купаж. (перемешать Каньяки разныx возрастов) допустим 100 литров коньяка у которого возраст 10 лет перемешать 100 литров коньяка у которого возраст 20 лет , и получается что возраст у 200 литров станет 15 лет (10*10=1000, 100*20=2000, теперь нужна сумму (2000+1000) / (100+200)=15 таким образом получим сколька лет канику. детальна как считывается показано на рисунке.

в программе я занос 5 операции.

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


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

смотрите файлы Пожалуйста...

https://www.sql.ru/forum/1307676/nuzhno-sdelat-funkciu-ili-zapros

Добрый вечер!

Подскажите, пожалуйста,

есть таблица Архив производство по ней сделана форма.
В этой форме в последнем Столбце водятся отработанное время за день.
Над формой в поле Время за месяц не получается суммировать общая количество время оно доходит до 23:59 и сбрасывается.

Помогите, пожалуйста, как это сделать чтобы показывалось общее время за месяц.

И также посмотрите, пожалуйста, поля Заработок за час всё ли верно.

https://www.sql.ru/forum/1307673/summirovanie-vremeni-za-mesyac

здравствуйте уважаемые ...



пожалуйста можно ли сделать такое, чтобы нажатием кнопки из формы Table1 (используя vba) после изменения данных ИЛИ УДАЛЕНИЕ СТРОКИ сделать пересчет столбца (Результат) и столбца (сумма_накоплением).

МНЕ нужна "сумма накоплением" в зависимости от поля "имя_ID", а не общая "сумма_накоплением"


если не затруднит выложите пример, используя этот файл

https://www.sql.ru/forum/1307672/vbaa

Приветствую всех! Может кто сталкивался с проблемой преобразования данных из поля со списком (с разрешением нескольких значений) в составной текстовой строке? Есть поле со списком "Причины_отказа" (можно выбрать несколько), поле "Результат", надо в поле "Сообщение" составить текст [Результат] & " по причинам: " & [Причины_отказа]. Причины_отказа не вставляются.

https://www.sql.ru/forum/1307668/pole-so-spiskom-s-razresheniem-neskolkih-znacheniy-kak-ego-ispolzovat-v-tekstovoy-stroke

здравствуйте уважаемые ...



пожалуйста можно ли сделать такое, чтобы нажатием кнопки из формы Table1 (используя vba) после изменения данных ИЛИ УДАЛЕНИЕ СТРОКИ сделать пересчет столбца (Результат) и столбца (сумма_накоплением).


если не затруднит выложите пример, используя этот файл

https://www.sql.ru/forum/1307661/raschet-ispolzuya-vba

Здравствуйте, уважаемые форумчане!
Подскажите, пожалуйста, способ (а еще лучше образец кода VBA) для скачивания файла excel в определенную папку, с сайта по гиперссылке (образец):

https://www.cian.ru/export/xls/offers/?currency=2&deal_type=sale&district[0]=34&engine_version=2&maxprice=8500000&offer_type=flat&room2=1

Очень хочется сделать это без открытия браузера, т.к. таких ссылок уже более 30 и если каждый раз, они будут открываться в браузере, то это крайне неудобно.

p.s. Дело происходит в БД Access. Файлы нужны для дальнешего импорта в БД и их автоматической обработки. Эта часть уже реализована.

https://www.sql.ru/forum/1307649/kak-skachat-fayl-po-ssylke-bez-brauzera