Как запустить запрос без входных данных |
SELECT 1 AS a, 2 AS b;
SELECT 1 AS a, 2 AS b UNION ALL SELECT 3 AS a, 4 AS b;
http://www.sql.ru/forum/1136087/kak-zapustit-zapros-bez-vhodnyh-dannyh
|
как в запросе преобразовать логические символы в слова(текст)? |
http://www.sql.ru/forum/1136052/kak-v-zaprose-preobrazovat-logicheskie-simvoly-v-slova-tekst
|
Гонка с добавлением записей |
+ |
Dim str1 As String Dim str2 As String Dim t As String t = Nz(DMax("nomer", "baza", "id_patient_history=" & Forms![gamokvleva_gadaricxva_add]![idpatient_history]), 0) + 1 str1 = "INSERT INTO baza (id_patient_history, nomer, id_registration_test, id_top_test, fasi)" _ & " SELECT " & Forms![gamokvleva_gadaricxva_add]![idpatient_history] & ", " & t & ", R.id_registration_test, R.id_top_test, T.price" _ & " FROM top_test_sia_q AS T RIGHT JOIN registration_test_baza AS R ON T.id_top_test = R.id_top_test" _ & " WHERE R.id_registration_test=" & Me.id_registration_test & ";" CurrentDb.Execute str1, dbFailOnError str2 = "INSERT INTO baza_patient_tests (id_patient_history, id_registration_test, id_test, id_laboratory) " _ & " SELECT " & Forms![gamokvleva_gadaricxva_add]![idpatient_history] & ", RB.id_registration_test, test.id_test, test.id_laboratory" _ & " FROM registration_test_baza AS RB LEFT JOIN test ON RB.id_top_test = test.id_top_test" _ & " WHERE RB.id_registration_test=" & Me.id_registration_test & ";" CurrentDb.Execute str2, dbFailOnError If CurrentProject.AllForms("registratura_gadaricxva_newedit").IsLoaded Then Dim d As Currency d = DCount("[id_patient_history]", "patients_gamokvleva_sia_q", "[id_patient_history]=" & Forms![gamokvleva_gadaricxva_add]![idpatient_history]) Dim s As Currency If (d = 0) Then s = Me.SumOfprice Else s = Nz(Forms![registratura_gadaricxva_newedit]![sumtests]) + Nz(Me.SumOfprice) End If If IsNull(Forms![registratura_gadaricxva_newedit]![procent]) Then Dim balance As Currency balance = Nz(Forms![registratura_gadaricxva_newedit]![balance_tanxa]) - Nz(Me.SumOfprice) Dim str4 As String Dim str5 As String If (balance >= 0) Then str4 = "UPDATE patients_history SET patients_history.sum_gamokvlevis_tanxa = " & str(s) _ & ", patients_history.gadaricxvis_tanxa = " & str(s) _ & ", patients_history.balance_tanxa = " & str(balance) _ & " Where id_patient_history = " & Forms![gamokvleva_gadaricxva_add]![idpatient_history] str5 = "UPDATE gadaricxva SET gadaricxva.balance = " & balance _ & " Where id_gadaricxva = " & Forms![registratura_gadaricxva_newedit]![idgadaricxva] Else Dim gt As Currency Dim b As Currency Dim n As Currency gt = Nz(Forms![registratura_gadaricxva_newedit]![tanxa]) b = gt - s n = b * (-1) str4 = "UPDATE patients_history SET patients_history.sum_gamokvlevis_tanxa = " & str(s) _ & ", patients_history.gadaricxvis_tanxa = " & str(gt) _ & ", patients_history.balance_tanxa = " & str(b) _ & ", patients_history.natilobrivi_tanxa = " & str(n) _ & ", patients_history.salaros_tanxa = " & str(n) _ & " Where id_patient_history = " & Forms![gamokvleva_gadaricxva_add]![idpatient_history] str5 = "UPDATE gadaricxva SET gadaricxva.balance = 0" _ & " Where id_gadaricxva = " & Forms![registratura_gadaricxva_newedit]![idgadaricxva] End If CurrentDb.Execute str4, dbFailOnError CurrentDb.Execute str5, dbFailOnError End If Forms![registratura_gadaricxva_newedit]![registratura_gadaricxva_newedit_subform].Form.Requery Forms![registratura_gadaricxva_newedit]![sumtests].Requery Forms![registratura_gadaricxva_newedit]![summa].Requery Forms![registratura_gadaricxva_newedit]![balance_tanxa].Requery Forms![registratura_gadaricxva_newedit]![salaros_tanxa].Requery Forms![registratura_gadaricxva_newedit]![natilobrivi_tanxa].Requery End If MsgBox "Запись добавлена" |
|
Как на лету создать запрос к серверу |
http://www.sql.ru/forum/1136041/kak-na-letu-sozdat-zapros-k-serveru
|
Итог |
|
|
Помогите пожалуйста с форматом! |
http://www.sql.ru/forum/1136009/pomogite-pozhaluysta-s-formatom
|
Как в Access скопировать объект на форме в тоже место? |
http://www.sql.ru/forum/1135998/kak-v-access-skopirovat-obekt-na-forme-v-tozhe-mesto
|
как написать запрос на выходе которого 5 пустых строк ? |
http://www.sql.ru/forum/1135975/kak-napisat-zapros-na-vyhode-kotorogo-5-pustyh-strok
|
Рекурсивное удаление в запросе |
http://www.sql.ru/forum/1135961/rekursivnoe-udalenie-v-zaprose
|
Обращение на запрос |
|
Private Sub Кнопка9_Click() s = "SELECT Max(Таблица2.Таблицы) AS [Max] FROM Таблица2 WHERE (((Таблица2.Номер)=[Формы]![Главная0]![Номер]));" If s = "Таблица2" Then MsgBox "Таблица2" End If End Sub
|
Access select where в таблице? |
http://www.sql.ru/forum/1135922/access-select-where-v-tablice
|
Создание новой строки в разделенной форме ПРОБЛЕМА (В таблице) |
http://www.sql.ru/forum/1135905/sozdanie-novoy-stroki-v-razdelennoy-forme-problema-v-tablice
|
База школьной библиотеки |
|
MSysNavPaneGroups; MSysNavPaneGroupToObjects; MSysNavPaneGroupCategories |
|
Друзья! Всех с Новым Годом! Помогите разобраться, в чем проблема! |
http://www.sql.ru/forum/1135749/druzya-vseh-s-novym-godom-pomogite-razobratsya-v-chem-problema
|
Значения по умолчанию в поле формы как максимальное из таблицы данных |
|
как добавить дату insert-ом в mysql |
txt = "insert into `tmpB` (dDate) " & _ "values (" & Format(rL!dDate, "yy\/mm\/dd") & ")"
http://www.sql.ru/forum/1135617/kak-dobavit-datu-insert-om-v-mysql
|
Помогите с запросом. Супер мега сложный. босс всех запросов |
http://www.sql.ru/forum/1135558/pomogite-s-zaprosom-super-mega-slozhnyy-boss-vseh-zaprosov
|
Запрос на выборку за месяц! |
|
Добавление/удаление/редактирования записей в подчиненной форме с запросом на сохранение |
|