Синтаксис запроса в VBA

@SuperNoobas · Регистрация: 01.11.2018

Author24 — интернет-сервис помощи студентам

Пытаюсь сделать запрос на изменение полей таблицы Оплата. Возникает ошибка "Run-time error 3144". Весь запрос помечается желтым, а стрелка указывает на последнюю строку.

SQL

CurrentDb.Execute "UPDATE Оплата " & _
    " SET [Основная_зарплата] = '" & [Forms]![Зарплата]![Расчет]![Основная_зарплата] & "'" & _
    ", [Премия] = " & [Forms]![Зарплата]![Расчет]![Премия] & "" & _
    ", [Подоходный] = " & [Forms]![Зарплата]![Расчет]![Подоходный] & "" & _
    ", [Пенсионный] = " & [Forms]![Зарплата]![Расчет]![Пенсионный] & "" & _
    " WHERE [Код_зарплаты] = '" & [Forms]![Зарплата]![Расчет]![Код_зарплаты] & "';"

@boby104 · 10.01.2019, 15:47

По моему так

SQL

CurrentDb.Execute "UPDATE Оплата  ([Основная_зарплата], [Премия], [Подоходный], [Пенсионный]) values ("'" & [Forms]![Зарплата]![Расчет]![Основная_зарплата] & "' ,'"  [Forms]![Зарплата]![Расчет]![Премия] & "' ,    '" & [Forms]![Зарплата]![Расчет]![Подоходный] & "' ,'" & [Forms]![Зарплата]![Расчет]![Пенсионный] & "'")   WHERE [Код_зарплаты] = '" & [Forms]![Зарплата]![Расчет]![Код_зарплаты] & "'"

@Capi · 10.01.2019, 15:51

Сообщение от boby104

По моему так

values используется в INSERT INTO, но не в UPDATE.

@boby104 · 10.01.2019, 16:24

Сообщение от Capi

values используется в INSERT INTO, но не в UPDATE.

Согласен.

Не по теме:

давайте обсудим без SuperNoobas,
какие у него стоят задачи, структура данных и какие ему нужны запросы.
может он поймет что мы не ясновидящие

@SuperNoobas · 10.01.2019, 19:07 **[ТС]**

boby104, а, ну, простите, просто я думала, что кода достаточно для нахождения синтаксической ошибки..? Или не синтаксическая? Ээ
Ну в общем

1. Есть форма "Зарплата". На ней подчиненная форма "Расчет"
2. При нажатии на кнопку должны обновляться поля записи в таблице "Оплата" с помощью запроса выше. Но при нажатии на кнопку возникает ошибка

Добавлено через 8 минут
Хотя, подождите, я сейчас скину бд

@Панург · 10.01.2019, 20:13

SuperNoobas, открой набор (Recordset) и обнови поля. Или привяжи форму к данным.

Обычно так не делают (обновлять), нужно добавлять данные.

@SuperNoobas · 10.01.2019, 20:30 **[ТС]**

Поздновато правда(
смотреть свойство кнопки "добавить" на подчиненной форме Расчет, воть

@SuperNoobas · 11.01.2019, 09:03 **[ТС]**

Панург, не подскажете как это делать?

Сообщение от Панург

Обычно так не делают (обновлять), нужно добавлять данные.

@Панург · 11.01.2019, 09:43

Сообщение от SuperNoobas

не подскажете как это делать?

Нет, не подскажу. Форум не замена учебной литературы. Учись пользоваться и поиском - без интереса переписывать азбучные истины.

Я подсказал способ, но не реализацию.

@boby104 · 11.01.2019, 10:17

Сообщение от SuperNoobas

смотреть свойство кнопки "добавить" на подчиненной форме Расчет, воть

Пытался разобраться в смысле кнопки добавить на расчет.
Не понял у вас все поля кроме оклада расчетные (причем нормы расчета уже забиты в запрос, который служит данными для формы) - зачем их добавлять в таблицу оплаты?

@АЕ · 11.01.2019, 10:31

SuperNoobas, в предыдущей теме я вам в своем решении именно кнопку предложил для добавления записи.
Посмотрите ее код. ссылка
Из формы сотрудники

@boby104 · 11.01.2019, 10:38

SuperNoobas,
если я правильно понял

@pagpal · 11.01.2019, 12:55

SuperNoobas,
А зачем такие сложности с кнопкой. Насколько я понял, вся проблема в том что новые данные не записываются в таблицу "Оплата". Нужно просто повесить на событие поля "Дата зарплаты" событие после обновления следующий код и ни каких кнопок не нужно.

Visual Basic

Private Sub Дата_зарплаты_AfterUpdate()
Me.Основная_зарплата = Forms!Зарплата!Фамилия_имя_отчество.Column(2)
Me.Премия = Основная_зарплата * 0.2
Me.Подоходный = Основная_зарплата * 0.2 + Основная_зарплата * 0.13
Me.Пенсионный = Основная_зарплата * 0.2 + Основная_зарплата * 0.01
Me.Dirty = False
End Sub

@Capi · 11.01.2019, 13:40

Сообщение от pagpal

Основная_зарплата

Что это за "Основная_зарплата"?
Может, оклад?

Сообщение от pagpal

Me.Подоходный = Основная_зарплата * 0.2 + Основная_зарплата * 0.13

Скобки не потеряли, случайно?

Сообщение от pagpal

Me.Пенсионный = Основная_зарплата * 0.2 + Основная_зарплата * 0.01

Аналогичный вопрос: скобки не потеряли, случайно?

@pagpal · 11.01.2019, 13:57

Сообщение от Capi

Что это за "Основная_зарплата"?
Может, оклад?

Как у ТС названо поле в подчиненной форме, так и взято в процедуру.

Сообщение от Capi

Скобки не потеряли, случайно?

Скобки в каком месте? Если имеется ввиду здесь

Сообщение от Capi

Основная_зарплата * 0.2

, то я не вижу в них смысл, так как по правилам арифметики сначала выполняется * а потом +.

@АЕ · 11.01.2019, 14:18

у меня было реализовано немного не так

Visual Basic

Private Sub Кнопка23_Click()
Me.Дата_зарплаты = Date
Me.Основная_зарплата = Me.okl
Me.Премия = Me.Основная_зарплата * Me.prem
Me.Подоходный = (Me.Премия + Me.Основная_зарплата) * 0.13
Me.Пенсионный = (Me.Премия + Me.Основная_зарплата) * 0.01
End Sub

где Me.okl и Me.prem свободные поля и со скобками как говорит Capi, все правильно
Me.prem по умолчанию 20% - но можно и другой процент обозначить....

@pagpal · 11.01.2019, 14:24

Сообщение от АЕ

и со скобками как говорит Capi, все правильно

В вашем случае да, так как вам нужно сначала сложить два поля, а потом умножить. А в моем случае скобки бесполезны.

@АЕ · 11.01.2019, 14:59

Сообщение от pagpal

А в моем случае скобки бесполезны

это точно!

Сообщение от Capi

Me.Подоходный = Основная_зарплата * 0.2 + Основная_зарплата * 0.13

Расшифровываю -подоходный = преммя + 13% от зарплаты
не 130 руб с 1000 а 200 премии +130 = 330
хотя должно быть (1000+200)*13% = 156
Разберитесь с элементарным...

@Capi · 11.01.2019, 15:20

Сообщение от pagpal

я не вижу в них смысл, так как по правилам арифметики сначала выполняется * а потом +

Хм-м-м.
Сумму премии выдираете у сотрудника в качестве подоходного налога?
Жестоко.

@pagpal · 11.01.2019, 15:21

Сообщение от АЕ

Разберитесь с элементарным...

Да согласен, формулы брал с запросов ТС, возможно где-то не досмотрел, теперь конечно и скобки нужны, должно быть так

Visual Basic

Private Sub Дата_зарплаты_AfterUpdate()
Me.Основная_зарплата = Forms!Зарплата!Фамилия_имя_отчество.Column(2)
Me.Премия = Основная_зарплата * 0.2
Me.Подоходный = (Основная_зарплата * 0.2 + Основная_зарплата) * 0.13
Me.Пенсионный = (Основная_зарплата * 0.2 + Основная_зарплата) * 0.01
Me.Dirty = False
End Sub

@Capi Модератор 6012 / 2840 / 693 Регистрация: 12.06.2016 Сообщений: 7,624
	10.01.2019, 15:51	3
	Сообщение от boby104 По моему так values используется в INSERT INTO, но не в UPDATE. 0

@boby104 1266 / 448 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	10.01.2019, 16:24	4
	Сообщение от Capi values используется в INSERT INTO, но не в UPDATE. Согласен. Не по теме: давайте обсудим без SuperNoobas, какие у него стоят задачи, структура данных и какие ему нужны запросы. может он поймет что мы не ясновидящие 0

@SuperNoobas 0 / 0 / 0 Регистрация: 01.11.2018 Сообщений: 43
	10.01.2019, 19:07 [ТС]	5
	boby104, а, ну, простите, просто я думала, что кода достаточно для нахождения синтаксической ошибки..? Или не синтаксическая? Ээ Ну в общем 1. Есть форма "Зарплата". На ней подчиненная форма "Расчет" 2. При нажатии на кнопку должны обновляться поля записи в таблице "Оплата" с помощью запроса выше. Но при нажатии на кнопку возникает ошибка Добавлено через 8 минут Хотя, подождите, я сейчас скину бд 0

@Панург Мы один, давай на "ты" 3421 / 1299 / 312 Регистрация: 16.06.2016 Сообщений: 3,046
	10.01.2019, 20:13	6
	SuperNoobas, открой набор (Recordset) и обнови поля. Или привяжи форму к данным. Обычно так не делают (обновлять), нужно добавлять данные. 0

@SuperNoobas 0 / 0 / 0 Регистрация: 01.11.2018 Сообщений: 43
	11.01.2019, 09:03 [ТС]	8
	Панург, не подскажете как это делать? Сообщение от Панург Обычно так не делают (обновлять), нужно добавлять данные. 0

@Панург Мы один, давай на "ты" 3421 / 1299 / 312 Регистрация: 16.06.2016 Сообщений: 3,046
	11.01.2019, 09:43	9
	Сообщение от SuperNoobas не подскажете как это делать? Нет, не подскажу. Форум не замена учебной литературы. Учись пользоваться и поиском - без интереса переписывать азбучные истины. Я подсказал способ, но не реализацию. 0

@boby104 1266 / 448 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	11.01.2019, 10:17	10
	Сообщение от SuperNoobas смотреть свойство кнопки "добавить" на подчиненной форме Расчет, воть Пытался разобраться в смысле кнопки добавить на расчет. Не понял у вас все поля кроме оклада расчетные (причем нормы расчета уже забиты в запрос, который служит данными для формы) - зачем их добавлять в таблицу оплаты? 0

@АЕ ᴁ® 3648 / 2004 / 427 Регистрация: 13.12.2016 Сообщений: 6,894 Записей в блоге: 5
	11.01.2019, 10:31	11
	SuperNoobas, в предыдущей теме я вам в своем решении именно кнопку предложил для добавления записи. Посмотрите ее код. ссылка Из формы сотрудники 0

@Capi Модератор 6012 / 2840 / 693 Регистрация: 12.06.2016 Сообщений: 7,624
	11.01.2019, 13:40	14
	Сообщение от pagpal Основная_зарплата Что это за "Основная_зарплата"? Может, оклад? Сообщение от pagpal Me.Подоходный = Основная_зарплата * 0.2 + Основная_зарплата * 0.13 Скобки не потеряли, случайно? Сообщение от pagpal Me.Пенсионный = Основная_зарплата * 0.2 + Основная_зарплата * 0.01 Аналогичный вопрос: скобки не потеряли, случайно? 0

@pagpal 126 / 96 / 33 Регистрация: 28.02.2017 Сообщений: 478
	11.01.2019, 13:57	15
	Сообщение от Capi Что это за "Основная_зарплата"? Может, оклад? Как у ТС названо поле в подчиненной форме, так и взято в процедуру. Сообщение от Capi Скобки не потеряли, случайно? Скобки в каком месте? Если имеется ввиду здесь Сообщение от Capi Основная_зарплата * 0.2 , то я не вижу в них смысл, так как по правилам арифметики сначала выполняется * а потом +. 0

@pagpal 126 / 96 / 33 Регистрация: 28.02.2017 Сообщений: 478
	11.01.2019, 14:24	17
	Сообщение от АЕ и со скобками как говорит Capi, все правильно В вашем случае да, так как вам нужно сначала сложить два поля, а потом умножить. А в моем случае скобки бесполезны. 0

@АЕ ᴁ® 3648 / 2004 / 427 Регистрация: 13.12.2016 Сообщений: 6,894 Записей в блоге: 5
	11.01.2019, 14:59	18
	Сообщение от pagpal А в моем случае скобки бесполезны это точно! Сообщение от Capi Me.Подоходный = Основная_зарплата * 0.2 + Основная_зарплата * 0.13 Расшифровываю -подоходный = преммя + 13% от зарплаты не 130 руб с 1000 а 200 премии +130 = 330 хотя должно быть (1000+200)*13% = 156 Разберитесь с элементарным... 0

@Capi Модератор 6012 / 2840 / 693 Регистрация: 12.06.2016 Сообщений: 7,624
	11.01.2019, 15:20	19
	Сообщение от pagpal я не вижу в них смысл, так как по правилам арифметики сначала выполняется * а потом + Хм-м-м. Сумму премии выдираете у сотрудника в качестве подоходного налога? Жестоко. 0