-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4

Invalid link!








Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://www.sql.ru/forum/actualtopics.aspx?bid=4.
Данный дневник сформирован из открытого RSS-источника по адресу http://www.sql.ru/forum/actualrss.aspx?id=4, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Как определить, в чём работает программа: VBA6 или VBA7?

Понедельник, 21 Мая 2018 г. 09:21 + в цитатник
Начиная с Access 2010 появился VBA7. При чём Access должен их обоих поддерживать (вроде бы и VBA5 из Access 97).
У меня возник вопрос. Как определить, какой из версий VBA используется при исполнении программы.
При декларации API можно чётко задать версию. Используется слово PtrSafe - значит VBA7, нет - VBA6. А если нет API?


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

http://www.sql.ru/forum/1293813/kak-opredelit-v-chyom-rabotaet-programma-vba6-ili-vba7


запрос на удаление

Понедельник, 21 Мая 2018 г. 01:19 + в цитатник
Добрый день.
Есть справочник клиентов sklient (klient_id, ФИО, контакты).
Есть Запрос1, который формирует список ненужных клиентов.
Надо создать запрос на удаление, который будет из справочника клиентов удалять тех, кто попал в Запрос1.
Пишу код:
DELETE sklient.*
FROM sklient
WHERE (((sklient.klient_id)=[Запрос1]![klient_id]));
Но при выполнении требует ввести код клиента вручную (см. рис.),

а мне надо чтобы код клиента брался из Запрос1.
В чём ошибка?

http://www.sql.ru/forum/1293798/zapros-na-udalenie


помогите создать дважды-вложенный запрос

Воскресенье, 20 Мая 2018 г. 22:31 + в цитатник
Добрый день.
Есть 3 запроса:

Запрос1 – возвращает работы, которые были оказаны клиентам после 21 мая 2017г.
SELECT sdata.data_id, sdata.data, sklient.klient_id, smeeting.napravlenie_id, swork.rabota_id
FROM (sklient INNER JOIN (sdata INNER JOIN smeeting ON sdata.data_id = smeeting.data_id) ON sklient.klient_id = smeeting.klient_id) INNER JOIN swork ON smeeting.meeting_id = swork.meeting_id
WHERE (((sdata.data)>#05/21/2017#));

Запрос2 – возвращает код клиента из Запрос1
SELECT Запрос1.klient_id
FROM Запрос1
GROUP BY Запрос1.klient_id;


Запрос3 – возвращает из справочника «клиенты» всех клиентов невошедших в Запрос2
SELECT sklient.klient_id
FROM sklient LEFT JOIN Запрос2 ON sklient.klient_id = Запрос2.klient_id
WHERE (((Запрос2.klient_id) Is Null));


Как объединить эти три запроса в один?

http://www.sql.ru/forum/1293790/pomogite-sozdat-dvazhdy-vlozhennyy-zapros


sql запрос с использованием текущей даты

Воскресенье, 20 Мая 2018 г. 11:23 + в цитатник
SELECT * FROM Рейс WHERE (((Рейс.[Дата рейса]) Between CURDATE()-30 And CURDATE()));
хочется увидеть запрос на записи за последний месяц
curdate() не катит, как покатить?

http://www.sql.ru/forum/1293762/sql-zapros-s-ispolzovaniem-tekushhey-daty


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

Воскресенье, 20 Мая 2018 г. 10:24 + в цитатник
Есть форма "список забронированных книг" - там содержатся все бронирования всех читателей и есть поле "дата бронирования", по ней и нужно будет работать с датой
Есть форма "администратор" - там есть 2 поля (начало даты, конец даты) и кнопка (показать)
Задав даты в этих двух полях, по нажатию этой кнопки должна открыться форма "список забронированных книг" за этот период (по полю дата бронирования)
Подскажите пожалуйста, как подобное осуществить?

http://www.sql.ru/forum/1293760/kak-otkryt-formu-na-opredelyonnyh-zapisyah-konkretnee-za-opr-period-vremeni


Ошибка "Для макрокоманды ЗапускЗапросаSQL требуется аргумент, состоящий из инструкции SQL"

Воскресенье, 20 Мая 2018 г. 09:06 + в цитатник
Создал форму "Администратор" (по тз требуется на его вкладке сделать 2 отчёта)
и вот как раз с первым отчётом возникла небольшая проблема
создал 2 поля типа краткий формат даты
назвал их
"датаначало" и "датаконец"
и добавил кнопку, на нажатие которой висит такой код:

Public startdate As String
Public enddate As String

Private Sub Кнопка0_Click()
startdate = Me.датаначало
enddate = Me.датаконец

sqlperiod = "SELECT * FROM Бронирование WHERE (((Бронирование.[Дата бронирования]) Between #" & startdate & "# And #" & enddate & " 23:59:59#))"
DoCmd.RunSQL sqlperiod
End Sub

что не так делаю?
Если выводить с конкретными значениями этот запрос, то есть вставить даты Between #5/13/2018# And #5/19/2018 23:59:59# ,к примеру, то всё получается

http://www.sql.ru/forum/1293757/oshibka-dlya-makrokomandy-zapuskzaprosasql-trebuetsya-argument-sostoyashhiy-iz-instrukcii-sql


Как прочитать константу из разделённой БД?

Пятница, 18 Мая 2018 г. 23:52 + в цитатник
Всем привет!
Я разделил базу данных на две части: одна с кодом, другая с данными (как это обычно делается)
В программе с данными создана константа
Public Const ReadMe as byte = 1
Я бы хотел прочитать значение этой константы из базы данных с кодом. Как можно до неё добраться?

http://www.sql.ru/forum/1293685/kak-prochitat-konstantu-iz-razdelyonnoy-bd


Как вытащить данные из access?

Пятница, 18 Мая 2018 г. 13:09 + в цитатник
Добрый день.
Есть некая программа для работы с промышленными весами, в которой данные товаров хранятся в базе access.
Возникла необходимость выгрузить данные в xls для импорта в другую программу. Так вот, при выгрузке текст обрезается на 255 символах.

http://www.sql.ru/forum/1293626/kak-vytashhit-dannye-iz-access


Union all не может объеденить запросы

Пятница, 18 Мая 2018 г. 12:22 + в цитатник
Доброго времени суток, ребят
Очень нужна ваша помощь. Имеется вроде бы простая проблема, но она поставила меня в ступор.

Есть четыре запроса, которые по отдельности успешно каждый отрабатывают, поля у них все с одинаковыми именами и в одинаковом порядке расположены, но union all при их объединении выдает ошибку: "Ссылка на поле 'dbo_TempTovar6.Number' может относиться к полям нескольких таблиц, перечисленных в предложении FROM инструкции SQL".

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

+
SELECT dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID, "МО" AS Показатель, IIf([ShopCount]>0,[ShopCount],0) AS Данные
FROM (dbo_Товары INNER JOIN dbo_TempTovar6 ON dbo_Товары.Код = dbo_TempTovar6.TovarKod) LEFT JOIN Act_MO_Before ON (dbo_TempTovar6.DateMe = Act_MO_Before.DateMe) AND (dbo_TempTovar6.TovarKod = Act_MO_Before.TovarKod) AND (dbo_TempTovar6.Number = Act_MO_Before.Номер)
GROUP BY dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID, "МО", IIf([ShopCount]>0,[ShopCount],0)
ORDER BY dbo_TempTovar6.Number, dbo_TempTovar6.ID


UNION ALL

SELECT dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID, "P" AS Показатель, IIf(Sum([Summ])>0,Round(Sum([Summ])/Sum([Sale]),2),0) AS Данные
FROM dbo_Источники_магазинов_РЦ INNER JOIN (dbo_Товары INNER JOIN ((dbo_TempTovar6 INNER JOIN dbo_SalesALL ON (dbo_TempTovar6.DateMe = dbo_SalesALL.Date) AND (dbo_TempTovar6.TovarKod = dbo_SalesALL.TovarKod)) INNER JOIN FilterRC ON dbo_TempTovar6.Place = FilterRC.Place) ON dbo_Товары.Код = dbo_SalesALL.TovarKod) ON (dbo_Источники_магазинов_РЦ.Магазин = dbo_SalesALL.ShopKod) AND (dbo_Источники_магазинов_РЦ.Источник_поставки_РЦ = FilterRC.РЦ)
GROUP BY dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID
ORDER BY dbo_TempTovar6.Number, dbo_TempTovar6.ID


UNION ALL 

SELECT dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID, "SU" AS Показатель, Sum(dbo_SalesALL.Sale) AS Данные
FROM dbo_Источники_магазинов_РЦ INNER JOIN (dbo_Товары INNER JOIN ((dbo_TempTovar6 INNER JOIN dbo_SalesALL ON (dbo_TempTovar6.TovarKod = dbo_SalesALL.TovarKod) AND (dbo_TempTovar6.DateMe = dbo_SalesALL.Date)) INNER JOIN FilterRC ON dbo_TempTovar6.Place = FilterRC.Place) ON dbo_Товары.Код = dbo_SalesALL.TovarKod) ON (dbo_Источники_магазинов_РЦ.Магазин = dbo_SalesALL.ShopKod) AND (dbo_Источники_магазинов_РЦ.Источник_поставки_РЦ = FilterRC.РЦ)
GROUP BY dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID
HAVING (((Sum(dbo_SalesALL.Sale))>=0))
ORDER BY dbo_TempTovar6.Number, dbo_TempTovar6.ID


UNION ALL SELECT dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID, "C" AS Показатель, Nz(Count([dbo_SalesALL].[ShopKod]),0) AS Данные
FROM dbo_Источники_магазинов_РЦ INNER JOIN (dbo_Товары INNER JOIN ((dbo_TempTovar6 INNER JOIN dbo_SalesALL ON (dbo_TempTovar6.TovarKod = dbo_SalesALL.TovarKod) AND (dbo_TempTovar6.DateMe = dbo_SalesALL.Date)) INNER JOIN FilterRC ON dbo_TempTovar6.Place = FilterRC.Place) ON dbo_Товары.Код = dbo_SalesALL.TovarKod) ON (dbo_Источники_магазинов_РЦ.Источник_поставки_РЦ = FilterRC.РЦ) AND (dbo_Источники_магазинов_РЦ.Магазин = dbo_SalesALL.ShopKod)
GROUP BY dbo_TempTovar6.Number, dbo_Товары.Наименование, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, dbo_TempTovar6.ID
ORDER BY dbo_TempTovar6.Number, dbo_TempTovar6.ID;



Ниже промежуточный запрос, на который ссылается тот самый запрос, из-за которого предположительно не работает Union
+
SELECT dbo_TempTovar6.Number AS Номер, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe, Count(dbo_BI_Small_Rest.Shop_Number) AS ShopCount
FROM ((dbo_TempTovar6 INNER JOIN dbo_BI_Small_Rest ON (dbo_TempTovar6.DateMe = dbo_BI_Small_Rest.Day_Date) AND (dbo_TempTovar6.TovarKod = dbo_BI_Small_Rest.Product_Id)) INNER JOIN FilterRC ON dbo_TempTovar6.Place = FilterRC.Place) INNER JOIN dbo_Источники_магазинов_РЦ ON (FilterRC.РЦ = dbo_Источники_магазинов_РЦ.Источник_поставки_РЦ) AND (dbo_BI_Small_Rest.Shop_Number = dbo_Источники_магазинов_РЦ.Магазин)
WHERE (((dbo_BI_Small_Rest.Resp_Unit) Not Like "*Допродажа*"))
GROUP BY dbo_TempTovar6.Number, dbo_TempTovar6.TovarKod, dbo_TempTovar6.DateMe
ORDER BY dbo_TempTovar6.Number;


Заранее большое спасибо за помощь

http://www.sql.ru/forum/1293614/union-all-ne-mozhet-obedenit-zaprosy


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

Среда, 16 Мая 2018 г. 14:01 + в цитатник
Всем здравствуйте! Помогите пожалуйста.
Есть две таблицы "Мотор на северном" и "ТС" (каталог транспортных средств), как сделать так чтобы Данные об автомобиле сами подставлялись в форму по связующему полю "Гос номер".

http://www.sql.ru/forum/1293307/kak-v-odnoy-forme-vyvesti-dannye-iz-dvuh-tablic-po-kluchevomu-polu


Разворот текста в отчете

Среда, 16 Мая 2018 г. 11:48 + в цитатник
Добрый день!
Подскажите, пожалуйста, каким образом развернуть текст в отчете на 180 градусов, 270 градусов.
Может есть какой то элемент класса OLE?

http://www.sql.ru/forum/1293279/razvorot-teksta-v-otchete


Элемент СПИСОК. Выбираю несколько значений. Как получить выбранные значения?

Вторник, 15 Мая 2018 г. 22:10 + в цитатник
Добрый вечер!
На форме имею элемент СПИСОК со связанным значением.

Этот элемент заполнен данными.
Выбираю несколько значений.
Как определить - какие значения выбраны?

(с одинарным выбором - все понятно: Список102.ListIndex)

Подскажите!
Спасибо!

http://www.sql.ru/forum/1293238/element-spisok-vybirau-neskolko-znacheniy-kak-poluchit-vybrannye-znacheniya


Запретить ввод с клавиатуры в поле со списком

Вторник, 15 Мая 2018 г. 20:12 + в цитатник
Здравствуйте все.

Можно ли как-нибудь запретить ввод с клавиатуры в поле со списком.

В это поле допустимы только значения из списка. Но в случае со случайным неправильным вводом с клавиатуры начинаются "замечания" Аксесса, которые хотелось бы вышепредложенным способом устранить? (Возможно ворос наивный)

http://www.sql.ru/forum/1293229/zapretit-vvod-s-klaviatury-v-pole-so-spiskom


Работа с БД Access без установки MS Access?

Понедельник, 14 Мая 2018 г. 21:05 + в цитатник
Нужна БД для работы на VPS. Access для этого был бы самое оно. Но, вообще-то, нужна свободно распространяемая БД.
Можно-ли работать с БД Access не устанавливая сам MS Access?

"Есть многое на свете, друг Горацио, что и не сразу в голову придет."
М. Твен "Приключения Геккельбери Финна"

http://www.sql.ru/forum/1293121/rabota-s-bd-access-bez-ustanovki-ms-access


ODBC + Фильтр и сортировка

Понедельник, 14 Мая 2018 г. 18:50 + в цитатник
Добрый день!
Есть таблица в БД Access. ЕЕ заменили на прилинкованную через ODBC. теперь при поиске информации в таблице, сортировке или фильтрации очень долго работает.

Как можно улучшить?

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

http://www.sql.ru/forum/1293115/odbc-filtr-i-sortirovka


Сложный запрос с расчётами

Понедельник, 14 Мая 2018 г. 13:14 + в цитатник
Добрый день, уважаемые форумчане!
Прошу помощи в решении задачи, над которой бьюсь уже очень долго.

Для начала объясню структуру базы:

Есть две таблицы:
1) Таблица "Преподаватели". В ней содержится разная информация о преподавателях, включая Фамилию и Должность (это те поля, которые нужны в данный момент)
2) Таблица "Коэффициенты". В этой таблице находится список всех дисциплин, преподаваемых в институте в поле Наименование, к каждому наименованию проставлены в соответствие Фамилии преподавателей из первой таблицы в поля Преподаватель (Лекции) и Преподаватель (Практики), а также коэффициенты нагрузки из учебного плана.

В этой таблице есть поля, которые рассчитываются автоматически в соответствии с должностью преподавателя, такие как Доля Лектора и Доля Практика. Например, Должность преподавателя "Доцент", из таблицы выбирается коэффициент для определённой дисциплины из поля Доля лек (Доцент) и Доля прак (Доцент) и записывается в поля Доля Лектора и Доля Практика соответственно (в отчёт).

Я создал отчёт, в котором собираются необходимые данные для вывода в форму. Ключевые поля отчёта: Наименование (т.е. наименование дисциплины из таблицы Коэффициенты), Фамилия (преподавателя из таблицы Преподаватели), Преподаватель (Лекции) (поле из таблицы Коэффициенты, проставляется вручную из выпадающего списка), Преподаватель (Практики 1) (и т.д. до Преподаватель (Практики 10), заполнятся аналогично предыдущему полю), Доля Лектора, Доля Практика.

Таким образом, нужно вывести в форму ФИО преподавателя и прочие сведения из первой таблицы (это я сделал) + список всех дисциплин, которые он ведёт в качестве лектора или практика (это НЕ сделал) + Доля ставки (рассчитывается как сумма долей лектора и практика по всем дисциплинам, соответствующим этому преподавателю, с учётом его роли в этой дисциплине, т.е. лектор или практик. Одно число должно получиться. Это тоже НЕ сделал)

Прошу вас помочь с выводом в форму списка дисциплин для каждого преподавателя и с расчётом и выводом туда же его доли ставки.

Прикладываю файл базы. Обратите, пожалуйста, внимание на запрос "Коэффициенты Запрос" и форму "Коэффициенты Запрос". Всю работу я делал там, остальное лишнее. Также в SQL формате запроса "Коэффициенты Запрос" вы можете увидеть, каким образом происходит выбор нужного коэффициента для расчёта, в зависимости от должности (поле Должность (кратко)) преподавателя.

Структура данных в базе довольно кривовата, но лучше выдумать не мог...

P.S. файл с базой не крепится из-за размера, оставляю прямую ссылку на архив из вк: vk . com /doc139685297_465753699

http://www.sql.ru/forum/1293053/slozhnyy-zapros-s-raschyotami


Проверить, есть ли подключение к Интернету

Понедельник, 14 Мая 2018 г. 13:00 + в цитатник
Привет, друзья
Подкиньте, если не жалко, простенькую функцию для проверки наличия Интернета

Например:
Public function есть_Интернет() as Boolean

end function


Я сам не знаю, что написать
Заранее благодарен

http://www.sql.ru/forum/1293051/proverit-est-li-podkluchenie-k-internetu


Отчет!

Понедельник, 14 Мая 2018 г. 09:25 + в цитатник
Доброго времени суток!
Уважаемые мастера, подскажите, как реализовать запрос, а именно:
есть запрос "спецификация" - с перечнем изделий, также запрос "спецификация_поставка" - с перечнем поставленных изделий.
ТРЕБУЕТСЯ добавить в спецификацию поля по поставленным изделиям.
Заранее спасибо!!!

http://www.sql.ru/forum/1293018/otchet


Заголовок List-Unsubscribe в заголовке письма

Понедельник, 14 Мая 2018 г. 08:20 + в цитатник
Доброго времени суток!
Для "белой" рассылки одним из требований Yandex и Google является наличие заголовка List-Unsubscribe.
Вопрос в том, как заголовок List-Unsubscribe вставить в письмо?
Изучение этого вопроса привело меня к следующему ...
Заголовок в письмо можно вставить используя urn: schemas: mailheader:(пара заголовок значение)
CFields("urn:schemas:mailheader:List-Unsubscribe") = Mu_Unsubscribe

    'ñîçäàåì îáúåêò Message ýòî íàøå ïèñüìî
    Set msg = CreateObject("CDO.Message")
    'ñîçäàåì îáúåêò Configuration ýòî íàñòðîéêè ñîåäèíåíèÿ
    Set Config = CreateObject("CDO.Configuration")
    Set CFields = Config.Fields
    Set msg.Configuration = Config
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru" 'àäðåñ SMTP ñåðâåðà
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'ïîðò
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'SSL òèï øèôðîâàííîãî ïîäêëþ÷åíèÿ
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = StrSendUsername 'Login
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = StrSendPassword 'ïàðîëü
    CFields("urn:schemas:mailheader:content-language") = "windows-1251" ' êîäèðîâêà ïèñüìà ÷òîáû ïèñàòü ïî ðóññêè
    CFields("urn:schemas:mailheader:List-Unsubscribe") = Mu_Unsubscribe 'ссылка на отписку
      CFields.Update

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

http://www.sql.ru/forum/1293013/zagolovok-list-unsubscribe-v-zagolovke-pisma


Как вывести в поле значение

Воскресенье, 13 Мая 2018 г. 17:24 + в цитатник
Есть 3 таблицы:
1) Автор, где содержатся
код автора
ФИО автора

2) Авторство (если у книги более 1 автора)
код автора
код книги

3) Книга
код книги
название книги
и др.

Создаю форму Каталог (из Книги) и тут не хватает одного поля "Автор"
Как его можно добавить? Какой связью прописать? Помогите пожалуйста

http://www.sql.ru/forum/1292986/kak-vyvesti-v-pole-znachenie



Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 308 307 [306] 305 304 ..
.. 1 Календарь