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

При выполнении запроса на обновление возникает ошибка 3035.

Когда запрос выполняется для каждого поля индивидуально все идет хорошо.

Когда я пытаюсь выполнить это циклом в VBA возникает ошибка.

Код такой:

Public MyDb As Database 
Set MyDb = CurrentDb
For i = 1 to 100 
  MyDb.Execute SQLstr
Next i

Может быть нужно как-то очищать MdDb после каждого выполнения?
Подскажите, что делать?
Спасибо!

https://www.sql.ru/forum/1311974/oshibka-3035

Привет всем!
Подскажите пожалуйста, наверняка кто нибудь на форуме пишет и в vba и java)

Есть ли в отладочной консоли vba возможность снимать значения прямо внутри нее? По типу конструкции Scanner.next() в Java? По идее что то такое должно быть , потому что в самом первом бейсике помните была обычная Input, которую мы писали прямо в коде и там же ,в этом же экране вбивали заветные переменные)

https://www.sql.ru/forum/1311970/konsol-vba-analog-funkcii-scanner-iz-java

Добрый день, задачка сделать форму с "карточками", штук 10-30, сколько на экране поместится, непринципиально, например сетка 7х5 карт. Сетка статична.
Источник таблица с тремя значениями.
При открытии формы на каждую карту в случайном порядке выводится какой-то один случайный параметр.
Мышкой ткнули в карту - сбоку в отдельной форме получили остальные 2 параметра.
При этом "вскрытая" карта заменяется другой, так же случайно, если карты еще не закончились. Если закончились, остается пустой.
И так пока все карты не будут вскрыты не вскроют.
Какими средствами Аксесса такую штуку будет правильнее делать?
Вроде бы решение в лоб сделать на каждую карту свой контрол и отдельно их заполнять-менять, но может есть какой-то более правильный способ?
Спасибо.

https://www.sql.ru/forum/1311957/forma-dlya-kartochek

Здравствуйте,
Есть таблица (Договоры) и связанные с ней еще две (Акты) и (Оплата). В 'отчете', основанном на 'запросе' не могу "подружить" два 'подчиненных отчета', на основе этих двух таблиц (Акты и Оплата). Мне нужно в 'отчете' показать Итоговое поле из каждого 'подч. отчета'.
Подскажите, пожалуйста решение.

Вот запрос в режиме sql (картинки что-то не прикладываются):

SELECT Заказчик.кодЗаказчика, Объект.кодОбъекта, Договор.Дата AS Договор_Дата, Договор.[Договор №], Акты.[Сумма, тг], Sum(Оплата.Сумма) AS [Sum-Сумма], Договор.кодДоговора, Объект.Наименование, Заказчик.Заказчик, Договор.[Предмет договора], Договор.[Сумма по договору]
FROM (Заказчик INNER JOIN Объект ON Заказчик.кодЗаказчика = Объект.кодЗаказчика) INNER JOIN ((Договор INNER JOIN Акты ON Договор.кодДоговора = Акты.кодДоговора) INNER JOIN Оплата ON Договор.кодДоговора = Оплата.кодДоговора) ON Объект.кодОбъекта = Договор.кодОбъекта
GROUP BY Заказчик.кодЗаказчика, Объект.кодОбъекта, Договор.Дата, Договор.[Договор №], Акты.[Сумма, тг], Договор.кодДоговора, Объект.Наименование, Заказчик.Заказчик, Договор.[Предмет договора], Договор.[Сумма по договору]
HAVING (((Объект.кодОбъекта)=[Forms]![Заказчик]![Объект подчиненная форма].[Form]![кодОбъекта]));

https://www.sql.ru/forum/1311940/kak-v-otchete-otobrazit-itogovye-polya-iz-dvuh-podchinennyh-otchetov

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

Подскажите как зпр01 записать в запросе зпр02 ?

зпр01

SELECT тбл02.Код, тбл02.D
FROM тбл02
WHERE (((тбл02.Код)=11));

зпр02

UPDATE тбл01 SET тбл01.F = DLookUp("[D]","зпр01","[Код]=" & тбл01!Код);

Это нужно, чтоб потом записать запрос в коде VBA.

Спасибо!

https://www.sql.ru/forum/1311908/zapros-na-obnovlenie-2-v-1

Здравствуйте!

Помогите, пожалуйста, с фрагментом кода.
Надо вывести в определенное место файла WORD объект Recordset, содержащий несколько записей.
Если подробнее - то в WORD есть кадровый приказ на нескольких сотрудников. Мне надо, чтобы его табличная часть заполнялась из аксессовского объекта Recordset.

https://www.sql.ru/forum/1311855/vyvod-tablicy-v-word

Добрый день!

Подскажите как написать запрос на выборку из двух таблиц

Дано:
Таблицы с данными: тбл01 и тбл02
Таблица с кодами т08F12_Объект

Нужно получить таблицу следующего вида, где в столбцах тбл01 и тбл02 количество записей соответствующим кодам таблицы т08F12_Объект

Название объекта тбл01 тбл02 Здание 12 2 Склад 8 4 Прочие 4 8

Спасибо!

https://www.sql.ru/forum/1311798/zapros-na-vyborku-iz-dvuh-tablic

Есть у меня запрос с Union....
Работает....

SELECT matsuP.codm, Sum([mqq]*getqb([MAIN1]![code])) AS Кмат, MAINM.MARKA, MAINM.COMMENT
FROM MAIN1 INNER JOIN (((tprcs INNER JOIN techproc ON tprcs.code = techproc.cm1) INNER JOIN spztmp ON tprcs.code = spztmp.cdtp) INNER JOIN (MAINM INNER JOIN matsuP ON MAINM.CODE = matsuP.codm) ON techproc.code = matsuP.codetp) ON MAIN1.code = spztmp.codm1
WHERE (((MAIN1.sernn)=16))
GROUP BY matsuP.codm, MAINM.MARKA, MAINM.COMMENT;
UNION SELECT matsuPcp.codm, Sum([mqq]*getqb([MAIN1]![code])) AS Кмат, MAINM.MARKA, MAINM.COMMENT
FROM (MAIN1 INNER JOIN ((tprcs INNER JOIN techproc ON tprcs.code = techproc.cm1) INNER JOIN spztmp ON tprcs.code = spztmp.cdtp) ON MAIN1.code = spztmp.codm1) INNER JOIN (specpr INNER JOIN (MAINM INNER JOIN matsuPcp ON MAINM.CODE = matsuPcp.codm) ON specpr.code = matsuPcp.codetp) ON techproc.code = specpr.specprN
WHERE (((MAIN1.sernn)=16))
GROUP BY matsuPcp.codm, MAINM.MARKA, MAINM.COMMENT;

Но мне хотелось бы что бы одинаковые позиции были просуммированы....
Возможно ли это как-нибудь?

https://www.sql.ru/forum/1311797/summa-v-union

Здравствуйте!
---------------

У меня на форме две кнопки - Открыть и Сохранить.
И рисунок.
При нажатии Открыть, через диалог рисунок вписывается в рамку.
Рисунки больших размеров.
Я их хочу уменьшить их размер 200 на 200.
Надо сохранить уменьшенные рисунки в соседнюю папку.
---
Как это сделать при нажатии кнопки Сохранить?
Что типа скрина самого элемента Рисунок1?

Архив mdb

https://www.sql.ru/forum/1311740/kak-risunok-sohranit-200-na-200-pikseley

Всем привет. В аттаче CSV файл с двумя первыми строчками заголовков. Первая строка, что-то типа имени таблицы, вторая - имена полей. Данные нужно импортировать в таблицы. В приаттаченном варианте первая и третья таблицы не пустые.
Пока из идей - это разбивка такого файла на несколько. В данном случае на три. Имена файлам присвоить из первой строки, удалив её в итоговых файлах. Сделать спецификации и импортировать на основе них, т.к. это будет быстро. В таком файле может быть более 200 тыс. строк. Правда не знаю сколько времени будет уходить на разбивку файла на несколько.
Может есть другие мысли по обработке такого файла?

Файл откройте в текстовом редакторе, а потом экселем с разделителями - запятая. Тогда станет более понятно. Таблиц в таком файле может быть 10-15 и более.

https://www.sql.ru/forum/1311738/interesnyy-fayl-csv-kak-obrabotat-i-importirovat

Здравствуйте, Друзья.

Первый раз работаю с Pivot, не могу разобраться как правильно группировать.
Хочу создать график работ и там будет работник и его выход на сегодня, сегодня +1, сегодня +2 и тд
Выглядит он изначально так (файл приложил)

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

Вот код, который пытаюсь заюзать но пишет "Ошибка в инструкции FROM"

SELECT ФИО, Сегодня+1,Сегодня+2
FROM таблица
GROUP BY ФИО
PIVOT (Часы работы for дни выхода in (Сегодня +1,Сегодня +2))

Выглядит он как то так

SELECT UserFullNameCalc, FORMAT(Now(),'dd.mm.yyyy'),FORMAT(Now()+1,'dd.mm.yyyy')
FROM qdfWorkDay
GROUP BY UserFullNameCalc
PIVOT (WorkHourCalc for DayNowCalc in (FORMAT(Now(),'dd.mm.yyyy'),FORMAT(Now()+1,'dd.mm.yyyy')))

https://www.sql.ru/forum/1311735/kak-rabotaet-pivot-v-ms-access

ребята, здесь

Set c = .Find("Уведомление", LookIn:=xlValues)

выскакивает ошибка

(438) Object doesn't support this property or method

сам код

Dim XL As Object 'Excel.Application
Dim WB As Object 'Excel.Workbook
Dim SH As Object 'Excel.Worksheet
Dim c As Object
Dim cRng As Object
  Set XL = CreateObject("Excel.Application")
  Set WB = XL.Workbooks.Open(ImaFile)
    
  Set SH = WB.Worksheets(1)
  'Set SH = WB.activeSheet
  
  With SH
  
    lLastRow = .Cells.SpecialCells(xlLastCell).Row
    lLastCol = .Cells.SpecialCells(xlLastCell).Column
  
  '----------- если документ не Уведомление - выходим
    Set c = .Find("Уведомление", LookIn:=xlValues) 'ОШИБКА
    
    If c Is Nothing Then
      Debug.Print "Документ не уведомление"
      GoTo lbl_exit
    End If

https://www.sql.ru/forum/1311704/access-excel

Вечер добрый! Хочу решить проблему по условному форматированию строк в табличной форме.
Да, есть стандартный инструмент для этого, но.... мне нужно больше вариантов.
Т.е. выглядит так - один из столбцов записи содержит наименование цвета фона ячейки - и этим цветом надо закрасить всю запись.
Как это можно решить в MS ACCESS 2003?

И еще попутный вопрос - можно в аксесе как к примеру в Delphi работать с данными таблиц т.е. изначально источник записей закрыт, при отработки процедуры открытия формы в источник записей вносятся условия и оно открывается. Или открывается только после нажатия кнопки на форме. спасибо !

https://www.sql.ru/forum/1311638/mnozhestvennoe-uslovnoe-formatirovanie-v-ms-access

Здравствуйте. Поскажите, есть ли настройка над Аксессом для поиска и замены строки во всей программе. т.е. Надо заменить искомую строку во всех объектах: таблицы, формы, модули, запросы, отчёты, так же все запросы вложеные в контролы, запросы источников данных в формах и отчётах ит.д.

https://www.sql.ru/forum/1311622/poisk-i-zamena-teksta-v-proekte-ms-access

Добрый день!
Помогите составить запрос.

Дана таблица такого вида:

Дата Данные 01.01.2019 1 01.01.2019 0 02.01.2019 1

Надо посчитать среднее количество записей за день с учетом условия Данные>0

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

Спасибо!

https://www.sql.ru/forum/1311598/slozhnyy-sql-zapros

Добрый день.

Столкнулся с тем, что на разных компьютерах может по-разному называться драйвер ODBC. В моем случае - драйвер ORACLE. На одних это "Oracle in OraClient11g1", а на других "Oracle in OraClient11g1_32bit" (при том что вынды везде 64-разрядные). Соответственно в строке подключения нужно указывать разные названия. Можно ли как-нибудь из Access (2016) получить список драйверов, чтобы выбрать правильное наименование?
Заранее благодарен.

https://www.sql.ru/forum/1311559/mozhno-li-uznat-naimenovanie-drayvera-odbc

Уважаемый форум,

Простая задача, но что-то идет не так...
Две таблицы, данные в одной меняются, измененные записи отмечаются флагом. Задача: удалить из второй таблицы все записи, которые соответствуют измененным записям в первой. Использую такую конструкцию, но при этом из второй таблицы удаляются почему-то и другие записи, которые не изменены в первой таблице:

DELETE FROM dbo_ACC_EVALUATION 
WHERE(dbo_ACC_EVALUATION.ID in 
(SELECT dbo_ACC_EVALUATION.ID 
FROM dbo_ACC_EVALUATION 
INNER JOIN ACC_EVALUATION ON (dbo_ACC_EVALUATION.EV_CASE_NUMBER = ACC_EVALUATION.EV_CASE_NUMBER AND dbo_ACC_EVALUATION.EV_MOPI = ACC_EVALUATION.EV_MOPI) 
WHERE(ACC_EVALUATION.RECORD_VERSION=-1)))

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

https://www.sql.ru/forum/1311556/udalit-zapisi-cherez-inner-join-s-where

Салют, друзья!

Вопрос.
Имеется таблица с перечнем
1. Оборудование 1
2. Оборудование 2
3. Оборудование 3
4. Оборудование 4
5. Оборудование 5
6. Оборудование 6
7. Оборудование 7
8. Оборудование 8
9. Оборудование 9
10. Оборудование 10
11. Оборудование 11
12. Оборудование 12

Имеется рекордсет:
Set rst = db.OpenRecordset("select * from qGant where Бригада='" & rBrig!Бригада & "' ORDER BY Бригады.Номер ASC")

На выходе получается следующее:
1. Оборудование 1
10. Оборудование 10
11. Оборудование 11
12. Оборудование 12
2. Оборудование 2
3. Оборудование 3
4. Оборудование 4
5. Оборудование 5
6. Оборудование 6
7. Оборудование 7
8. Оборудование 8
9. Оборудование 9

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

https://www.sql.ru/forum/1311505/sortirovka-po-vozrastaniu

Здравствуйте.
У меня есть разделенная база. База с данными находится на "сервере" в расшаренной папке (под паролем- требование завода). Есть ли команды, которые использует логин/пароль не при подключении к базе данных, а дают возможность обратиться к расшаренной папке используя логин /пароль? Или это только в настройках системы (там этот пароль бывает слетает) ?

https://www.sql.ru/forum/1311412/programmnoe-obrashhenie-k-bd-po-seti-cherez-login-parol-na-papke

Добрый день,

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

Не понимаю, как в форму ЗаявкиОтдела подтягивать данные о товаре (которые есть в табличной части ФормаЗаявки)?
Подскажите, кто знает, пожалуйста.

https://www.sql.ru/forum/1311387/kak-vytyanut-dannye-iz-tretey-tablicy