Добрый день!
Передать данные из запроса (vba) в подотчет, по аналогии формы и подформы
Me.PodForma.Form.RecordSource = "SELECT tblRecom.Recom...
должно наврное быть что такое
Me.PodReport.Report.RecordSource = "SELECT tblRecom.Recom...
но увы не раьотает((((
подскажите как передать данные

http://www.sql.ru/forum/1275508/peredat-dannye-iz-zaprosa-vba-v-podotchet

Добрый день!
Можно ли в Отчете выводить информацию в текстовое поле?Если да то как?
Me.txtPole.Value = rst!Pole
Ругается(((

http://www.sql.ru/forum/1275470/otchet-mozhno-li-v-otchete-vyvodit-informaciu-v-tekstovoe-pole

Имеется таблица с подсчётом.
Пытаюсь сделать формулу "Итог = 1+2-3 + Итог Предыдущей даты."
Что то вроде этого

(SELECT 1 + 2 - 3 + (Select Итог FROM tbl where Дата = DateAdd('d', - 1, Дата) From tbl

Но выдаёт нули. Может потому что DateAdd берет 14.08.2017 которого нет в таблице?
Что можно сделать?

http://www.sql.ru/forum/1275456/vychislenie-s-datoy

Добрый день!
Подскажите как через vba передать данные в отчет)
Заранее спасибо.

http://www.sql.ru/forum/1275412/kak-peredat-dannye-v-otchet

Добрый день. Недавно только начала осваивать Аксесс, прошу подсказать не опытной :)

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

http://www.sql.ru/forum/1275384/problemy-s-redaktorom

Имеется табель продаж. При выборе в поле Выбор месяца года, например, Октябрь, имеются поля Остаток 1 и Остаток 2. Возможно ли сделать так, чтобы при выборе следующего месяца Ноябрь поле Остаток1 принимало значения поля Остаток 2 с прошлого месяца, и так далее. Пытаюсь переделать из табеля отработки рабочего времени, может это технически и не правильно, но сильно облегчит работу над отчетами.

http://www.sql.ru/forum/1275383/vopros-po-tabelu-prodazh

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

Есть исходные данные

Город ТТ Отгрузки сумма без НДС Предыдущий месяц Отгрузки сумма без НДС Текущий месяц Город1 ТТ1 1000 1200 Город1 ТТ1 1000 900 Город1 ТТ1 1000 null Город1 ТТ1 null 1200 Город1 ТТ1 -120 1200 ... ... ... ...

Ножно посчитать количество ТТ по каждому городу при положительных отгрузках с итоговой строкой. Для этого написал такой SQL.

(SELECT
	Т1.`Город`,
	COUNT(
		IIF(`Отгрузки сумма без НДС Предыдущий месяц`>0,`Отгрузки сумма без НДС Предыдущий месяц`,Null)
		) AS `Количество ТТ Предыдущий месяц`,
	COUNT(
		IIF(`Отгрузки сумма без НДС Текущий месяц`>0,`Отгрузки сумма без НДС Текущий месяц`,Null)
		) AS `Количество ТТ Текущий месяц`,
	`Количество ТТ Текущий месяц`-`Количество ТТ Предыдущий месяц` AS `Дельта`
FROM
	`Иcходные данные$` Т1
GROUP BY
	Т1.`Город`)

UNION

(SELECT
	'Итого' AS Т1.`Город`,
	COUNT(
		IIF(`Отгрузки сумма без НДС Предыдущий месяц`>0,`Отгрузки сумма без НДС Предыдущий месяц`,Null)
		) AS `Количество ТТ Предыдущий месяц`,
	COUNT(
		IIF(`Отгрузки сумма без НДС Текущий месяц`>0,`Отгрузки сумма без НДС Текущий месяц`,Null)
		) AS `Количество ТТ Текущий месяц`,
	`Количество ТТ Текущий месяц`-`Количество ТТ Предыдущий месяц` AS `Дельта`
FROM
	`Иcходные данные$` Т1)

Все работает. Но, итоговая строка находится посередине.

Город Количество ТТ Предыдущий месяц Количество ТТ Текущий месяц Город1 3 4 Город2 5 6 Город3 7 8 Итого 30 33 _Город4 4 3 _Город5 5 7 ... ... ...

1. Как сделать так, чтобы итоговая строка была в конце?
2. Возможно ли было запрос как то напиcать по проще и оптимальнее?

http://www.sql.ru/forum/1275315/pro-zapros

Sub xxxZZ()
Dim strX As String
strX = "D:\632730000130234.pdf"
MsgBox InStrRev(strX, ".") & " --- " & InStr(strX, ".")
End Sub

выдает одно и то же значение - 19! Я думал что InStrRev должен выдавать значение 4 в данном случае.
Подскажите, как мне посчитать вхождение строки начиная с крайне правого конца строки?
Спасибо заранее!

http://www.sql.ru/forum/1275292/instr-i-instrrev-vydaet-odno-i-to-zhe-znachenie

Добрый день!
Несколько дней назад при импорте xls файлов стала выскакивать ошибка (>5 лет все работало)
При ручном импорте (Файл->....):
Не удается получить доступ к данным файла ("путь"). Убедитесь, что файл существует и имеет правильный формат.

При использовании transferdatabase что export, что import приводит к ошибке:
Непредвиденная ошибка драйвера внешней базы данных (1)

xls файлы открываются.
Windows 7 sp1 64X, Office Excel 2010, Access 2003

Заранее спасибо.

http://www.sql.ru/forum/1275240/ne-importiruutsya-xls-fayly

Пишу олимпиаду по ИКТ. С первым 3 заданиями справилась отлично, а вот последнее для меня загадка, т.к. в такой программе ни разу не работала.
Задание там звучит так:
"База данных «Подготовительные курсы» (находится в папке «Участнику»), задана тремя таблицами («Группы», «Список слушателей» и «Личные данные»).
Вам необходимо:
1. Задать ключевые поля в каждой из таблиц;
2. Создать связи между таблицами;
3. Разработать общую форму для ввода информации в базу данных;
4. Обратиться к БД со следующими запросами:
1) Составьте список слушателей группы 101, у которых оценки по курсу «Access» - «4» или «5». Отсортируйте фамилии по алфавиту.
2) Выясните, у какого преподавателя учится слушатель Петров? Какие оценки он имеет по изучаемым предметам?
3) У кого из преподавателей обучаются слушатели, имеющие по всем курсам «5»? Вывести список слушателей, с указанием номера школы и фамилии преподавателя.
4) Выведите список слушателей, имеющих «3». Отсортируйте фамилии по возрастанию. Кто из преподавателей работает с этими учащимися?
5) Вывести список слушателей с номерами групп, которые по среднему баллу (по трем изучаемым предметам) большему 4,5 поступают в колледж без экзаменов. Отсортировать фамилии по возрастанию."
Что такое БД я нашла-база данных, ключевые поля искала, как задать, но вроде они и так заданы.В остальном совершенно ничего не поняла, даже на сайте Microsoft нет точного ответа на каждый из пунктов. Объясните, пожалуйста, что мне здесь делать и каким образом :(! Файл для работы у меня есть, но его размер для загрузки превышен-сделала скриншот

http://www.sql.ru/forum/1275195/chto-nuzhno-znat-novichku-dlya-raboty-s-access

Добрый день всем. И снова на повестке дня Табель учёта рабочего времени. Подскажите пожалуйста как реализовать, что бы при печати отчета "ТабельЧасы", выходные дни выделялись другим фоном. Пробовал через условное форматирование, но так ничего и не вышло. Очень нужно.

http://www.sql.ru/forum/1275117/vydelenie-kolonok-v-otchete-po-usloviu

Добрый день!
Есть таблица, в которую вводятся временные показатели в 10 полей. Каждое поле - это какая-то активность на производственной линии. Например в поле "Работа линии" вводятся 2 записи "00:00" и "02:40", затем в поле "Зачистка линии" вводятся показатели "02:40" и "03:10" и т.д. Таким образом составляется Карта работы линии по смене.
Для визуализации транспонирую таблицу со значениями по смене с разбивкой по фиксированным столбцам. Составляю 10 перекрёстных запросов (в таблице 10 полей с введёнными данными), затем с помошью "Union" свожу их вместе и пускаю в качестве рекордсета на форму. На форме (в формате "Datasheet"), с помощью Условного форматирования, подсвечиваю ячейки, в которых имеются данные. Разбивка интервала для фиксированных столбцов идёт по 10 мин.

Запрос 1 (QryVisualRobLin_Par1_Zmina1):
TRANSFORM Max(TblKartkyVvedZnach.Par1Txt) AS MaxOfPar1Txt
SELECT TblKartkyKatalogZmist.Parametr_1_NazvaTxt
FROM TblKartkyKatalogZmist LEFT JOIN TblKartkyVvedZnach ON TblKartkyKatalogZmist.ID_KartkyKatalogZmist = TblKartkyVvedZnach.FK_KartkyVvedZnach
WHERE (((TblKartkyVvedZnach.FK_KartkyVvedZnach)=1) AND ((TblKartkyVvedZnach.FK_DataWork)=[Forms]![FrmZagalna]![Frm_Glavna].[Form]![ID_DataWork]) AND ((TblKartkyVvedZnach.FK_Kartka)=[Forms]![FrmZagalna]![FrmKartkyKatalogZmistGolovna].[Form]![PerelikLng]))
GROUP BY TblKartkyKatalogZmist.Parametr_1_NazvaTxt
PIVOT TblKartkyVvedZnach.Par1Txt In ('00:00','00:10','00:20','00:30','00:40','00:50','01:00','01:10','01:20','01:30','01:40','01:50','02:00','02:10','02:20','02:30','02:40','02:50','03:00','03:10','03:20','03:30','03:40','03:50','04:00','04:10','04:20','04:30','04:40','04:50','05:00','05:10','05:20','05:30','05:40','05:50','06:00','06:10','06:20','06:30','06:40','06:50','07:00','07:10','07:20','07:30','07:40','07:50','08:00');

Запрос 2 (QryVisualRobLin_Par2_Zmina1):
TRANSFORM Max(TblKartkyVvedZnach.Par2Txt) AS MaxOfPar2Txt
SELECT TblKartkyKatalogZmist.Parametr_2_NazvaTxt
FROM TblKartkyKatalogZmist LEFT JOIN TblKartkyVvedZnach ON TblKartkyKatalogZmist.ID_KartkyKatalogZmist = TblKartkyVvedZnach.FK_KartkyVvedZnach
WHERE (((TblKartkyVvedZnach.FK_KartkyVvedZnach)=1) AND ((TblKartkyVvedZnach.FK_DataWork)=[Forms]![FrmZagalna]![Frm_Glavna].[Form]![ID_DataWork]) AND ((TblKartkyVvedZnach.FK_Kartka)=[Forms]![FrmZagalna]![FrmKartkyKatalogZmistGolovna].[Form]![PerelikLng]))
GROUP BY TblKartkyKatalogZmist.Parametr_2_NazvaTxt
PIVOT TblKartkyVvedZnach.Par2Txt In ('00:00','00:10','00:20','00:30','00:40','00:50','01:00','01:10','01:20','01:30','01:40','01:50','02:00','02:10','02:20','02:30','02:40','02:50','03:00','03:10','03:20','03:30','03:40','03:50','04:00','04:10','04:20','04:30','04:40','04:50','05:00','05:10','05:20','05:30','05:40','05:50','06:00','06:10','06:20','06:30','06:40','06:50','07:00','07:10','07:20','07:30','07:40','07:50','08:00');

... и так 10 запросов.
Затем UNION
select * from QryVisualRobLin_Par1_Zmina1
UNION ALL
select * from QryVisualRobLin_Par2_Zmina1
UNION ALL
select * from QryVisualRobLin_Par3_Zmina1
UNION ALL
select * from QryVisualRobLin_Par4_Zmina1
UNION ALL
select * from QryVisualRobLin_Par5_Zmina1
UNION ALL
select * from QryVisualRobLin_Par6_Zmina1
UNION ALL
select * from QryVisualRobLin_Par7_Zmina1
UNION ALL
select * from QryVisualRobLin_Par8_Zmina1
UNION ALL
select * from QryVisualRobLin_Par9_Zmina1
UNION ALL select * from QryVisualRobLin_Par10_Zmina1;

Уважаемые форумчане,
1) Как можно скрыть те столбцы, где нет ниодного значения?
2) Можно ли введённые значения расположить по фиксированным столбцам в случае, если точно не соответствует столбцу? Например "01:25" надо расположить в столбце "01:30", т.к. разбивка идёт с интервалом в 10 минут

Заранее благодарен!!!

http://www.sql.ru/forum/1275059/sql-perekryostnye-zaprosy-s-vyvodom-po-fiks-stolbcam-i-zatem-ih-union

Есть большая, старая, громадная софтина.
Написана не мной, но мне нужно ее поддерживать.
В ней выполняются периодические задания и они нерегулярно валятся с сообщением:
"microsoft odbc microsoft access driver too many client tasks".
Есть подозрение, что где-то открывается база через ODBC и не закрывается.
Но проблема в том, что таких мест очень много.

Хотелось бы получить список открытых ODBC соединений,
тогда найти место ошибки было бы гораздо проще.

Как получить такой список?

http://www.sql.ru/forum/1275053/kak-poluchit-spisok-otkrytyh-odbc-soedineniy

Нужно распечатывать отчет содержащий баркод UPC-A с помощью шрифта ttf.
Пример готового кода для преобразования числа в штрихкод EAN13 нашёл, может у кого нибудь аналогичный код для UPC-A?

http://www.sql.ru/forum/1275029/kak-chislo-preobrazovat-v-shtrihkod-upc-a

Может есть у кого в загашниках статья, туториал, выжимка по построению сложных запросов внутри Access

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

Потыкал в мастер - только для простых выборок.

В гугле не забанен. Может есть что-то аля проблема - решение.

http://www.sql.ru/forum/1275023/posovetuyte-horoshiy-material-po-zaprosam-v-access-2010

Здравствуйте. Есть таблица/запрос содержащая следующую информацию:

Группа ФИО Оценка 54 Еремеев Эдуард Викторович 3 54 Пупкин Иван Петрович 2 54 Иванов Сергей Викторович 5 55 Никифоров Алексей Викторович 3 55 Петров Леонид Иванович 4 56 Алешин Виктор Олегович 4 56 Суслов Хомяк Эдуардович 4 56 Николаева Ольга Александровна 5 56 Уваров Виталий Ильич 3 и т.д.

Необходимо вывести ФИО n количества людей из каждой группы с наибольшими оценками.
СУБД MS Access 2010. К сожалению сам не догадался как это сделать с помощью запросов, а с VBA вообще не знаком.

http://www.sql.ru/forum/1275009/neobychnyy-sql-zapros-na-vyborku

а разве нельзя достучаться с субформе к итогам по колонке в другой субформе?

http://www.sql.ru/forum/1275001/kak-obratitsya-iz-subformy-k-itogu-po-kolonke-v-drugoy-subforme

Добрый день, коллеги!

Прошу помочь определиться с вариантами.
Необходимо на форму вывести два столбика из запроса.
Потом мышкой выбрать необходимые строки и уже их дальше обрабатывать.

Вопрос в чем?
Если поставить в форму список, то все без проблем грузится туда:

Me.Список50.RowSourceType = "Table/Query"
Me.Список50.RowSource = "ДО Запрос1"

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

Эта проблема решена в ListBox из ActiveX, где есть свойство MultiSelect. Но как заставить туда перенести данные из запроса я не могу понять, потому как у него ни RowSource, ни AddItem нету в свойствах.

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

http://www.sql.ru/forum/1274993/spisok-vs-listbox

Здравствуйте. Требуется помощь. Имеется ВедомостьПродаж в которую ежедневно вносится проданный товар. Необходимо сделать так, чтобы, например, в октябре месяце в ведомости продаж показывались товары только октября месяца, а ноябрь месяц начинался полностью с чистого бланка. И была возможность увидеть ведомость продаж за предыдущие месяцы. Заранее спасибо.

http://www.sql.ru/forum/1274990/vedomost-prodazh

Добрый день, гуру VBA!
Подскажите пожалуйста, как в VBA (Access) можно открыть файл через заданную программу.
Например, есть файл 12345.jpg - надо открыть его принудительно в Paint или через "IrfanView 64" (а на ПК стоит ассоциация для открытия файлов jpg через "Просмотр изображений Windows")
Спасибо заранее за помощь!

http://www.sql.ru/forum/1274975/otkryt-fayl-cherez-zadannuu-programmu