Создание папки в CurrentProject.Path |
Private Sub FOLD_Click() Const sDir = "E:\TEST\" Dim s$ s = Trim(ФИО) & "_" & Trim(ДАТА) If Len(s) = 0 Then ElseIf Len(Dir(sDir & s, vbDirectory)) = 0 Then MKDIR sDir & s End If End Sub
Private Sub FOLD_Click() Const sDir = CurrentProject.Path & "\TEST\" Dim s$ s = Trim(ФИО) & "_" & Trim(Дата) If Len(s) = 0 Then ElseIf Len(Dir(sDir & s, vbDirectory)) = 0 Then MKDIR sDir & s End If End Sub
http://www.sql.ru/forum/1102646/sozdanie-papki-v-currentproject-path
|
|
События контролов подчиненной таблицы/запроса на форме |
http://www.sql.ru/forum/1102613/sobytiya-kontrolov-podchinennoy-tablicy-zaprosa-na-forme
|
|
Как в запрос с параметром [Укажите фамилию] ввести две и больше фамилии? |
|
|
Работа с SQL-выражениями запросов |
...OpenRecordset("Select * From Table1"...
...OpenRecordset("Select * From Table2"...
http://www.sql.ru/forum/1102529/rabota-s-sql-vyrazheniyami-zaprosov
|
|
Поиск по 2-м разным таблицам |
http://www.sql.ru/forum/1102506/poisk-po-2-m-raznym-tablicam
|
|
как получить сумму по контрагенту |
http://www.sql.ru/forum/1102493/kak-poluchit-summu-po-kontragentu
|
|
Из Access создать каталог на SQL сервере |
http://www.sql.ru/forum/1102468/iz-access-sozdat-katalog-na-sql-servere
|
|
Неожиданный результат производительности запроса |
http://www.sql.ru/forum/1102438/neozhidannyy-rezultat-proizvoditelnosti-zaprosa
|
|
проблема с ценой товара |
|
|
Join expression not supported. (Error 3296) |
SELECT DISTINCT * FROM ((((((((tbl_ref_Countries RIGHT JOIN (tbl_ref_Producers RIGHT JOIN ((h_tbl_Material INNER JOIN vw_MaterialStatus ON h_tbl_Material.MCode = vw_MaterialStatus.MCode) LEFT JOIN tbl_ref_Suppliers ON h_tbl_Material.SupplierID = tbl_ref_Suppliers.SupplierId) ON tbl_ref_Producers.ProducerId = h_tbl_Material.ProducerId) ON tbl_ref_Countries.CountryId = tbl_ref_Producers.CountryId) LEFT JOIN vw_MaterialPalletizing_Unit_Case ON h_tbl_Material.MCode = vw_MaterialPalletizing_Unit_Case.MCode ) LEFT JOIN vw_KAListing_Short AS vwREALListing_Short ON (h_tbl_Material.MCode = vwREALListing_Short.UL_MCode AND vwREALListing_Short.KAId = 4 )) LEFT JOIN vw_KAListing_Short AS vwEKOListing_Short ON (h_tbl_Material.MCode = vwEKOListing_Short.UL_MCode AND vwEKOListing_Short.KAId = 8 )) LEFT JOIN vw_KAListing_Short AS vwKaravanListing_Short ON (h_tbl_Material.MCode = vwKaravanListing_Short.UL_MCode AND vwKaravanListing_Short.KAId = 7 )) LEFT JOIN vw_KAListing_Short AS vwMetroListing_Short ON (h_tbl_Material.MCode = vwMetroListing_Short.UL_MCode AND vwMetroListing_Short.KAId = 1 )) LEFT JOIN vw_KAListing_Short AS vwFozzyListing_Short ON (h_tbl_Material.MCode = vwFozzyListing_Short.UL_MCode AND vwFozzyListing_Short.KAId = 5 )) LEFT JOIN vw_KAListing_Short AS vwAuchanListing_Short ON (h_tbl_Material.MCode = vwAuchanListing_Short.UL_MCode AND vwAuchanListing_Short.KAId = 2 )) LEFT JOIN vw_KAListing_Short AS vwCosmoListing_Short ON (h_tbl_Material.MCode = vwCosmoListing_Short.UL_MCode AND vwCosmoListing_Short.KAId = 6 )
http://www.sql.ru/forum/1102321/join-expression-not-supported-error-3296
|
|
Как в динамическом Recordset-е правильно увидеть новую запись? |
http://www.sql.ru/forum/1102270/kak-v-dinamicheskom-recordset-e-pravilno-uvidet-novuu-zapis
|
|
Сложный запрос с подзапросами |
| + |
SELECT tblClients.client_id, t1.action_textF AS action_text_yes, t2.action_textF AS action_text_not, t3.action_textF AS action_text_notnow FROM tblOffActions AS t1, tblOffActions AS t2, tblOffActions AS t3, tblOffers INNER JOIN tblClients ON tblOffers.client_id = tblClients.client_id WHERE tblClients.sex="2" AND t1.action_id=1 AND t2.action_id=2 AND t3.action_id=3 AND tblOffers.offer_id=99 AND t1.offer_id=99 AND t2.offer_id=99 AND t3.offer_id=99 UNION SELECT tblClients.client_id, t1.action_textM AS action_text_yes, t2.action_textM AS action_text_not, t3.action_textM AS action_text_notnow FROM tblOffActions AS t1, tblOffActions AS t2, tblOffActions AS t3, tblOffers INNER JOIN tblClients ON tblOffers.client_id = tblClients.client_id WHERE tblClients.sex NOT LIKE "2" AND t1.action_id=1 AND t2.action_id=2 AND t3.action_id=3 AND tblOffers.offer_id=99 AND t1.offer_id=99 AND t2.offer_id=99 AND t3.offer_id=99 |
http://www.sql.ru/forum/1102241/slozhnyy-zapros-s-podzaprosami
|
|
Условие для интервала дат |
SELECT [25 календарь].Д FROM [25 календарь] WHERE ((([25 календарь].Д)=IIf(Day(Date())<=17,([25 календарь].Д) Between DateSerial(Year(Date()),Month(Date()),1) And DateSerial(Year(Date()),Month(Date()),15),([25 календарь].Д) Between DateSerial(Year(Date()),Month(Date()),16) And DateSerial(Year(Date()),Month(Date())+1,0))));
|
|
почему поле запроса обрезается ? |
http://www.sql.ru/forum/1102187/pochemu-pole-zaprosa-obrezaetsya
|
|
Блокировка записей по истечению времени |
http://www.sql.ru/forum/1102179/blokirovka-zapisey-po-istecheniu-vremeni
|
|
использование результата запроса в другом запросе через join |
http://www.sql.ru/forum/1102161/ispolzovanie-rezultata-zaprosa-v-drugom-zaprose-cherez-join
|
|
формат поля запроса |
|
|
текст запроса из txt |
| + |
SELECT t2.*, tblOffParams.txt1, tblOffParams.txt2, tblOffParams.txt3, tblOffParams.txt4, tblOffParams.txt5, tblOffParams.int1, tblOffParams.dt1 FROM ( SELECT tblClients.client_id, tblOffPersRefer.persReferF & ( ' ' + tblClients.client_name +' '+tblClients.client_midname ) AS Refer, tblClients.birthday, tblClients.sex, tblOffers.from, tblOffers.to FROM ( tblOffers LEFT JOIN tblClients ON tblOffers.client_CRM = tblClients.client_CRM ) LEFT JOIN tblOffPersRefer ON tblOffers.offer_id = tblOffPersRefer.offer_id WHERE tblOffers.offer_id= 101 AND tblClients.sex='2' ) AS t2 INNER JOIN tblOffParams ON t2.client_id = tblOffParams.client_id WHERE tblOffParams.offer_id=101 UNION ALL SELECT t1.*, tblOffParams.txt1, tblOffParams.txt2, tblOffParams.txt3, tblOffParams.txt4, tblOffParams.txt5, tblOffParams.int1, tblOffParams.dt1 FROM ( SELECT tblClients.client_id, tblOffPersRefer.persReferM & ( ' ' + tblClients.client_name +' '+tblClients.client_midname ) AS Refer, tblClients.birthday, tblClients.sex, tblOffers.from, tblOffers.to FROM ( tblOffers LEFT JOIN tblClients ON tblOffers.client_CRM = tblClients.client_CRM ) LEFT JOIN tblOffPersRefer ON tblOffers.offer_id = tblOffPersRefer.offer_id WHERE tblOffers.offer_id= 101 AND tblClients.sex='1' ) AS t1 INNER JOIN tblOffParams ON t1.client_id = tblOffParams.client_id WHERE tblOffParams.offer_id=101 UNION ALL SELECT t0.*, tblOffParams.txt1, tblOffParams.txt2, tblOffParams.txt3, tblOffParams.txt4, tblOffParams.txt5, tblOffParams.int1, tblOffParams.dt1 FROM ( SELECT tblClients.client_id, tblOffPersRefer.persReferNot AS Refer, tblClients.birthday, tblClients.sex, tblOffers.from, tblOffers.to FROM ( tblOffers LEFT JOIN tblClients ON tblOffers.client_CRM = tblClients.client_CRM ) LEFT JOIN tblOffPersRefer ON tblOffers.offer_id = tblOffPersRefer.offer_id WHERE tblOffers.offer_id= 101 AND tblClients.sex='0' ) AS t0 INNER JOIN tblOffParams ON t0.client_id = tblOffParams.client_id WHERE tblOffParams.offer_id=101 |
|
|
Запрос, не возвращающий данные "обнуляет" отчет |
http://www.sql.ru/forum/1102090/zapros-ne-vozvrashhaushhiy-dannye-obnulyaet-otchet
|
|
Форматирование запроса в сторонних редакторах |
http://www.sql.ru/forum/1102077/formatirovanie-zaprosa-v-storonnih-redaktorah
|
|