Добрый день! Не могу решить вполне себе понятную задачу: Есть таблица в Access, в которой хранятся графики платежей по кредитный договорам (количество договоров >300, количество платежей в каждом графике от 1 до 60, всего записей в таблице около 13000). Необходимо вычислить количество дней между последующими и предыдущими платежами для каждого договора. Заранее спасибо за помощь! Пример таблицы:
№ дог Дата платежа Дней 1 15.01.15 31 1 15.02.15 28 2 20.03.15 31 1 15.03.15 31 2 20.04.15 0 последний платеж 1 15.04.15 0 последний платеж
... еще вопрос: в каком виде удобнее хранить графики в access (если их вообще там удобно хранить)?
Привет! Написал коррелированный запрос, но он почему-то не работает. Задание: Выдать перечень поставщиков продуктов для каш, которые поставляют нужные продукты за цену, не выше средней цены. В результат должны входить следующие поля: наименование и цена продуктов, название и статус поставщика. Результат сортировать по названию продуктов в рамках каждого поставщика.
SELECT Produkti.Продукт, Postavki.Цена, Postavshiki.Статус
FROM Produkti, Postavki, Postavshiki
WHERE[Produkti.Продукт IN(SELECT Produkti, Продукт FROM Produkti
WHERE Produkti.ПР IN(SELECT Sostav.ПР FROM Sostav,WHERE Sostav.БЛ IN(SELECT Bluda.БЛ ,FROM Bluda WHERE Bluda.Блюда LIKE `[!каша]*`)))]ANDEXISTS(SELECT Postavki.Цена FROM Postavki
GROUPBY Postavki.ПР
WHERE Postavki.Цена =< AVG(Postavki.Цена)
Добрый день! Есть таблица с 24 числовыми полями. Задача создать запрос в котором бы добавлялась в строке вычисляемое поле отображающее минимальное значение из имеющихся 24х полей. Есть ли какой красивый способ в SQLе это сделать. А то у меня через iif уж больно длинная формула получается. Спасибо
Необходим поиск ячеек в файле Excel по двум значениям, которые берутся с формы Access. Возможно что будут несколько совпадений. Поэтому в итоге нужно будет в отдельной форме вывести номера строк (с указанием этих найденных данных), где эти значения встречаются. В этой форме должна быть возможность выбора нужного номера строки, чтобы затем выполнить команду вставки значений в ячейки именно этой строки.
Сравнение идет по таким данным Poisk1 = ((Forms!Данные.Сумма_долга) + (Forms!Данные.Сумма_процентов)) Poisk2 = Forms!Данные.краткое_наименование
Наверно нужно организовать цикл присвоения переменным номеров строк пока находятся нужные совпадения и использовать FindNext... Начало моего кода
OptionCompare Database
OptionExplicitDim app AsObjectDim Workbooks AsObjectDim strPathExcel AsStringDim xlWbk AsObjectDim ns
Dim xlApp AsObjectPublic Rowss AsInteger, Rowss2 AsIntegerConst MyFile = "P:\дела\ДЕЛА 2015 ОПОСД.xls"Const l = "Сводная таблица_2015г"'l = "Лист1" 'можно просто цифрой номер листа указыватьSub Delo_v_Excel_Poisk_2()
Dim sRowNumber
Dim Poisk1, Poisk2
Set xlApp = CreateObject("Excel.Application.14") 'создаем объект Excel, чтобы можно было работать с его методами и свойствами
strPathExcel = MyFile
Set xlWbk = xlApp.Workbooks.Open(strPathExcel)
Poisk1 = Forms!Данные![Краткое наименование]
Poisk2 = ((Forms!Данные.Сумма_долга) + (Forms!Данные.Сумма_процентов))
sRowNumber=xlWbk.Worksheets(l).Cells.Find(What:=Poisk1, LookAt:=xlWhole).Row
задача следующая из таблицы которая приложена нужен отчет, состав отчета в первом столбце фамилия, во втором количество дней по критерию от 0 до 5, в третьем количество дней по критерию от 5 до 15, в четвертом от 15 до 30 дней! Спасибо! дублирую вопрос. вот первый вопрос http://www.sql.ru/forum/1143095/zapros-na-vyborku-po-neskolkim-kriteriyam
как можно вставить строку в лист Excel с форматов строки которая находиться выше вставляемой? мой код не копирует формат
Rowss2 = InputBox ("Введите номер строки", "Ввод числа" ) ' номер строки 'под которую надо вставить новую строку и формат (оформление - цвет, линии...)'которой надо скопировать в новую строку
xlWbk.Worksheets(l).Rows(Rowss2).Insert
Ребяты, подскажите такой момент... Создаю новую базу данных (Microsoft Access 97). Делаю в нее импорт из старой базы данных. Импортируется все, кроме прав пользователей. Естественно, все работает только под главным админом (владельцем базы, таблиц, форм и пр.). Если каждый раз заново назначать права пользователей (групп), то это очень муторный процесс. Есть ли какая-то возможность брать из старой базы данных эти самые права пользователей?
Хай! Есть запрос, он формируется для заданного диапазона больше или равно 0 и меньше или равно пяти. Вопрос в следующем: надо чтобы запрос выводил три столбца в первом фамилия, во втором сортировка >=0 And <=5, в третьем >=5 And <=15, в четвертом >=15 And <=30. как это можно осуществить. через отчет тоже не получается он формирует только по одному из критериев. может что не так делаю. хэлп!!!! прикрепил фото запроса с результат выдачи!
Как обработать ошибку, если нету доступа к директории?
Dim strFileName AsString
...
If Len(Nz(Me.фото,"")) > 0 Then
strFileName= CurrentProject.Path & "\" & Me.фото.Value 'можно Value не употреблять, свойство поумолчаниюIf Len(Dir$(strFileName)) = 0 then strFileName=""EndIfMe.РамкаФото.Picture = strFileName
...
Ошибка в этой строке возникает If Len(Dir$(strFileName)) = 0
Понедельник, 16 Февраля 2015 г. 19:03
+ в цитатник
Добрый день, Уважаемые. Обращаюсь с просьбой помочь в моих изысканиях. Такая ситуация: В БД возникла необходимость внедрить таблицу отпусков, для чего была создана таблица с календарем. Для наглядного отражения ситуации в управлении все это показывается через перекрестный запрос. И все вроде бы работает, но есть загвоздка с итоговым значением. Т.е. хочеться увидеть сумму человек в отпуске на определенную дату, но access выдает ошибку: "Невозможно использование статистической функции в предложении where (count(поле)=2). (поясню, 2 = значение, когда сотрудник в отпуске, когда 0 = выходной, 1 = рабочий день).
В обычном запросе все считает, но не устраивает представление информации для пользователя. Возможно ли это считать в перекрестном запросе, пожалуйста, подскажите?
Ниже сам запрос: TRANSFORM Sum(з_календарь.Рабвыхотп) AS [Sum-Рабвыхотп] SELECT з_календарь.Дата, з_календарь.ДеньНедели, Count(з_календарь.Рабвыхотп) AS [Итоговое значение Рабвыхотп] FROM з_календарь WHERE (((Count(з_календарь.Рабвыхотп))=2)) GROUP BY з_календарь.Дата, з_календарь.ДеньНедели PIVOT з_календарь.Сотрудники.АналитикДАКР;
Понедельник, 16 Февраля 2015 г. 15:35
+ в цитатник
Ребят, помогите пожалуйста! У меня есть таблица Структура предприятия с полями: Код должности, должность и код отдела. И есть таблица Персонал с полями: ФИО, Должность, Отдел. В поле Должность делаю мастер подстановок из таблицы Структура предприятия, но там отсутствует поле Должность, доступны только остальные два поля. Как быть?
Понедельник, 16 Февраля 2015 г. 01:08
+ в цитатник
При открытии формы координаты задаются относительно рабочей области. А у всплывающих окон относительно окна приложения Access. И если Access в полноэкранном режиме. то пропадает толщина границы окна. Фактически надо узнать разницу размеров между рабочей областью и окном приложения Access. Как это сделать программно ?
Воскресенье, 15 Февраля 2015 г. 18:55
+ в цитатник
Доброго времени суток. Появилась проблемка, рассчитываю на ваше помощь.
Задача такая - юзер копирует из буфера кусок данных. Вставляет в форму (в виде датагрида). Мне нужно выполнить провеку на валидность данных. Хочется мне, чтобы проверка на валидность выполнялась сразу после вставки. При вводе руками на событие OnEnter для каждой записи вычисляются возможные варианты и подставляются в сурс комбобокса - таким образом при внесении данных ручками валидность проверяется автоматом (просто нельзя вставить то, чего нет). Ну все это дело идет лесом при вставке из буфера. Я решил эту проблему, на событие AfterUpdate, которая вызывается при вставке каждой записи, проверяю валидность каждой записи. !НО, такой вариант жестко тормозит... Проверку на самом деле очень легко сделать нехитрым запросом - вопрос на какое событие ее повесить? Потому что на событии OnCurrent - записи храняться в рекордсете формы, но не в таблице(!). А помещаются в таблицу только после предупреждающей записи (Хотите ли вы вставить?), но после нее никаких событий не происходит (или я не нашел?).
Воскресенье, 15 Февраля 2015 г. 16:35
+ в цитатник
Выводить на экран для печати нужную картинку зависящую от поля "Дно", остальное - скрывать. Делал через условие: Если Дно=210 тогда Д210 показать ... Д211 скрыть ... Д212 скрыть ... Д213 скрыть Если Дно=211 тогда Д210 скрыть ... Д211 показать ... Д212 скрыть ... Д213 скрыть
...
Если Дно=213 тогда Д210 скрыть ... Д211 скрыть ... Д212 скрыть ... Д213 показать
Воскресенье, 15 Февраля 2015 г. 13:44
+ в цитатник
Добрый день!
Хотел бы услышать мнение какой ответ правилен для следующего вопроса:
Какое условие должно выполнятся для создания отношения 1 к 1 м/у таблицами
1.Первичный и вторичный ключ должны иметь уникальные индексы 2.Свойство ИНДЕКС для первичного ключа должно равняться ДА 3.Индекс общих полей должен быть уникален. 4. Все перечисленное выше
Воскресенье, 15 Февраля 2015 г. 07:50
+ в цитатник
Доброго времени суток всем!
Возникла нужда подправить старинную базу. При открытии на экран выводится только главная форма, и никаких панелей (таблиц, форм, запросов и т.п.) не видно. Мне нужно подправить один из запросов, но я не могу до него добраться. Как тут быть?