Как определить, в чём работает программа: VBA6 или VBA7? |
http://www.sql.ru/forum/1293813/kak-opredelit-v-chyom-rabotaet-programma-vba6-ili-vba7
|
запрос на удаление |
|
помогите создать дважды-вложенный запрос |
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#));
SELECT Запрос1.klient_id FROM Запрос1 GROUP BY Запрос1.klient_id;
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 запрос с использованием текущей даты |
http://www.sql.ru/forum/1293762/sql-zapros-s-ispolzovaniem-tekushhey-daty
|
Как открыть форму на определённых записях? Конкретнее, за опр. период времени |
|
Ошибка "Для макрокоманды ЗапускЗапросаSQL требуется аргумент, состоящий из инструкции SQL" |
|
Как прочитать константу из разделённой БД? |
http://www.sql.ru/forum/1293685/kak-prochitat-konstantu-iz-razdelyonnoy-bd
|
Как вытащить данные из access? |
http://www.sql.ru/forum/1293626/kak-vytashhit-dannye-iz-access
|
Union all не может объеденить запросы |
+ |
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; |
+ |
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
|
Как в одной форме вывести данные из двух таблиц по ключевому полю. |
http://www.sql.ru/forum/1293307/kak-v-odnoy-forme-vyvesti-dannye-iz-dvuh-tablic-po-kluchevomu-polu
|
Разворот текста в отчете |
|
Элемент СПИСОК. Выбираю несколько значений. Как получить выбранные значения? |
|
Запретить ввод с клавиатуры в поле со списком |
http://www.sql.ru/forum/1293229/zapretit-vvod-s-klaviatury-v-pole-so-spiskom
|
Работа с БД Access без установки MS Access? |
http://www.sql.ru/forum/1293121/rabota-s-bd-access-bez-ustanovki-ms-access
|
ODBC + Фильтр и сортировка |
|
Сложный запрос с расчётами |
http://www.sql.ru/forum/1293053/slozhnyy-zapros-s-raschyotami
|
Проверить, есть ли подключение к Интернету |
http://www.sql.ru/forum/1293051/proverit-est-li-podkluchenie-k-internetu
|
Отчет! |
|
Заголовок List-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
|
Как вывести в поле значение |
http://www.sql.ru/forum/1292986/kak-vyvesti-v-pole-znachenie
|