Получить всех родителей для записи? |
http://www.sql.ru/forum/1156693/poluchit-vseh-roditeley-dlya-zapisi
|
Не получается просуммировать значения полей в запросе |
http://www.sql.ru/forum/1156662/ne-poluchaetsya-prosummirovat-znacheniya-poley-v-zaprose
|
Табличная форма. Заливка одной строки по условия программно. |
http://www.sql.ru/forum/1156661/tablichnaya-forma-zalivka-odnoy-stroki-po-usloviya-programmno
|
Запрос выполняется в ручном режиме, но не выполняется программно. В чём дело? |
INSERT INTO tbl_AdressDop ( КодОКПО, Адрес4б, Адрес4a )
SELECT tblAdressR.КодОКПО, tblAdressR.Индекс, ([Улица]+" ") & [ДомКвартира] AS Адрес4a
FROM tblAdressR;
CurrentDb.Execute "qSpr_03_Dop_Adress4_del" CurrentDb.Execute "qSpr_03_Dop_Adress4_add"
|
Добавить значение в таблицу из формы |
http://www.sql.ru/forum/1156637/dobavit-znachenie-v-tablicu-iz-formy
|
List box и значения |
Private Sub payment_terms_AfterUpdate() If Not IsNull(payment_terms) Then PayTerm_id.Value = payment_terms.Recordset!Id Else: PayTerm_id.Value = "" End If End Sub
|
Загрузка данных из Excel |
Set OpenOffice = CreateObject("com.sun.star.ServiceManager") Set OOO_Desktop = OpenOffice.createInstance("com.sun.star.frame.Desktop")
Pp = 1 For Pp = Pp To 200000 STR_KOD = "" Set OOO_Range = OOO_Sheet.getCellByPosition(0, Pp) If OOO_Range.Value = 0 Then STR_KOD = OOO_Range.GetString Else STR_KOD = OOO_Range.Value End If RST_KOD_TIPA.AddNew If Nz(STR_KOD) <> "" Then RST_KOD_TIPA("KOD_TIPA_IZVESHENIYA") = STR_KOD End If
|
Запрос Access |
SELECT * FROM Кафедра, Учебный_план, ООП, Группа WHERE Группа.Учебный_план=Учебный_план.Код and Учебный_план.ООП=ООП.Код and ООП.Кафедра=16;
|
Сумма в перекрестном запросе |
http://www.sql.ru/forum/1156468/summa-v-perekrestnom-zaprose
|
Access 2007, не могу разобраться со сложным SQL запросом. |
+ Запрос |
SELECT * FROM ( SELECT Общие_Оценки.Выступление, min (Выступления.Название) as Выступление_название, min (Коллективы.Название) as Коллектив_название, min (Номинации.Название) as Номинация_название, sum (Общие_Оценки.Количество_судей) as Судьи, round(max (Школа_исх),2) as Школа, round(max (Уровень_техники_исх),2) as Уровень_техники, round((3.5 - (round(max(Мастерство_штраф),2) * 3.5 / 10)),2) + round((round(max (Мастерство_бонус),2) * 1.5 / 6),2) as Мастерство, round(max (Сложность_исх),2) as Сложность, (Школа + Уровень_техники + Мастерство + Сложность) as Итого_техника, round(max (Исполнитель_исх),2) as Исполнитель, round(max (Постановщик_исх),2) as Постановщик, round(max (Уровень_артистизма_исх),2) as Уровень_артистизма, (Исполнитель + Постановщик + Уровень_артистизма) as Итого_артистизм, (Итого_техника + Итого_артистизм) as Итог FROM (SELECT Оценки.Выступление, count(Судьи.Судья_артистизма) as Количество_судей, sum ((CSng(nz(Оценки.Техника_школа_арсенал,0))+ CSng(nz(Оценки.Техника_школа_сложность,0))+ CSng(nz(Оценки.Техника_школа_логика,0))) / 6.0) / Количество_судей AS Школа_исх, sum ((CSng(nz(Оценки.Техника_уровень_слаженность,0))+ CSng(nz(Оценки.Техника_уровень_качество,0))+ CSng(nz(Оценки.Техника_уровень_темп,0))) / 7.5) / Количество_судей AS Уровень_техники_исх, sum (CSng(nz(Оценки.Техника_мастерство_бонус,0))) / Количество_судей AS Мастерство_бонус, sum (CSng(nz(Оценки.Техника_мастерство_штраф,0))) / Количество_судей AS Мастерство_штраф, sum ((CSng(nz(Оценки.Техника_сложность,0))) / 2.5) / Количество_судей AS Сложность_исх, sum ((CSng(nz(Оценки.Артистизм_исполнитель_образ,0))+ CSng(nz(Оценки.Артистизм_исполнитель_исполнение,0))+ CSng(nz(Оценки.Артистизм_исполнитель_артистизм,0))+ CSng(nz(Оценки.Артистизм_исполнитель_бонус,0))) / 10.0) / Количество_судей AS Исполнитель_исх, sum ((CSng(nz(Оценки.Артистизм_постановщик_сюжет,0))+ CSng(nz(Оценки.Артистизм_постановщик_выразительность,0))+ CSng(nz(Оценки.Артистизм_постановщик_композиция,0))+ CSng(nz(Оценки.Артистизм_постановщик_костюм,0))+ CSng(nz(Оценки.Артистизм_постановщик_бонус,0))) / 12.5) / Количество_судей AS Постановщик_исх, sum ((CSng(nz(Оценки.Артистизм_уровень,0))) / 2.5) / Количество_судей AS Уровень_артистизма_исх FROM (Судьи INNER JOIN Оценки ON Судьи.Код = Оценки.Судья) GROUP BY Оценки.Выступление, Судьи.Судья_артистизма) as Общие_оценки INNER JOIN (Коллективы INNER JOIN (Выступления INNER JOIN Номинации ON Выступления.Номинация = Номинации.Код) ON Выступления.Коллектив = Коллективы.№) ON Выступления.Код = Общие_оценки.Выступление GROUP BY Общие_оценки.Выступление) as Список_оценок ORDER BY Номинация_название, Итог DESC, Итого_техника DESC, Итого_артистизм DESC; |
http://www.sql.ru/forum/1156452/access-2007-ne-mogu-razobratsya-so-slozhnym-sql-zaprosom
|
Перемещение контрола |
|
Задача по учету ресурса составного агрегата - ? |
http://www.sql.ru/forum/1156433/zadacha-po-uchetu-resursa-sostavnogo-agregata
|
Как реализовать такое? |
|
|
Форма входа |
|
Вопрос по выгрузке из MSA 2003 в шаблон экселя (через ВБА) |
автор |
---|
Поле1 Поле4 Статус1 Статус4 Поле2 Поле5 Статус2 Статус5 Поле3 Поле6 Статус3 Статус6 |
Dim i As Integer For i = 1 To rs1.RecordCount xlApp.Sheets(1).Range("Поле(i)").value = rs1![Поле] xlApp.Sheets(1).Range("Статус(i)").value = rs1![Статус]
http://www.sql.ru/forum/1156210/vopros-po-vygruzke-iz-msa-2003-v-shablon-ekselya-cherez-vba
|
Недопустимая ссылка на объект Database в чем может быть проблема? |
http://www.sql.ru/forum/1156186/nedopustimaya-ssylka-na-obekt-database-v-chem-mozhet-byt-problema
|
Access 2003 прокрутка колёсиком кода модулей. |
http://www.sql.ru/forum/1156182/access-2003-prokrutka-kolyosikom-koda-moduley
|
Не отображается календарь |
|
Группировка по часам |
|
|
|
При распечатке чек автоматический открыть денежный ящик |
http://www.sql.ru/forum/1156060/pri-raspechatke-chek-avtomaticheskiy-otkryt-denezhnyy-yashhik
|