Запрос. В вба не работает, а в конструкторе для запросов работает

@meref · Регистрация: 15.06.2017

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Function addData(pID As String, exID As String)
    Dim sql As String
    sql = "INSERT INTO currentExpenses ( costDate, описание, costID, counterpartiesID, total)" & _
"SELECT payment.dateOfPayment, payment.purposeOfPayment, " & Chr(34) & "CE0001" & Chr(34) & ", payment.personID, payment.total " & _
"FROM payment" & _
"WHERE (((payment.paymentCode)= " & Chr(34) & "P0373" & Chr(34) & "));"
 
CurrentDb.QueryDefs("lastQuery").sql = sql
CurrentDb.QueryDefs("lastQuery").Execute
 
End Function

SQL
1
2
3
4
INSERT INTO currentExpenses ( costDate, описание, costIDtotal, counterpartiesID, total)
SELECT payment.dateOfPayment, payment.purposeOfPayment, "CE0001", payment.personID, payment.total 
FROM payment
WHERE (((payment.paymentCode)= "P0373"));

Раньше было

SQL
1
FROM payment AS t1

Chr(34) - двойные ковычки
Вот и весь код.
Пишет что проблема в фроме, но я не могу понять что там не так.
Если для решения требуеться база я скину!
Зарание спасибо!!!

shanemac51 · 26.03.2018, 18:17

непонятно, как отработает в запросах Format$(fd, "\#mm\/dd\/yy\#")

и ввиду отсутствия Option Explicit несколько ошибок в именах контролов

@meref · 26.03.2018, 18:20 **[ТС]**

это вы рылись в форме прилегающей к отчету о прибылях и убытках?

shanemac51 · 26.03.2018, 18:35

я нигде не рылась --я только вставила Option Explicit и запустила компиляцию кода проекта

@Eugene-LS · 26.03.2018, 18:42

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

у меня не работает. (Уже подозрение что у меня заколдованный комп)

meref, я же писал что в форме дело!
Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Public Function create()
    create = MsgBox("Добавить затрату", vbOKCancel, "Потвердите")
    If create = 1 Then
        Call createExpense(Me.pc.Value)
    Else
        Me.CostW.Value = False
        GoTo theEnd
    End If
theEnd:
End Function

Замените на:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub create()
    create = MsgBox("Добавить затрату", vbOKCancel, "Потвердите")
    If create = 1 Then
        Me.Dirty = False
        Call createExpense(Me.pc.Value)
    Else
        Me.CostW.Value = False
    End If
End Sub

Вы же работали с не сохранённой записью!

@Eugene-LS · 26.03.2018, 18:59

meref, у вас в модуле формы "counterpartiesPayment" ошибка на ошибке и ошибкой погоняет.
Остальные не смотрел, но предположения мои сумрачны.
Аккуратнее пожалуйста.
Самое явное подправил - результат высылаю.
Добавление работает.

@Eugene-LS · 26.03.2018, 19:02

meref, самое страшное:
Вы используете в именах объектов форм, и названиях процедур зарезервированные слова VBA!
Это вам гарантирует глюки, хоть VBE вам временно это и прощает.

Читать ТУТ!

@meref · 26.03.2018, 19:15 **[ТС]**

Учил аксес методом проб и ошибок. Большое спасибо что посмотрели и помогли.

@Eugene-LS · 27.03.2018, 00:17

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

Учил аксес методом проб и ошибок.

Это понятно, все так учатся.
Не самый продуктивный метод, но он в нашей крови.
Мы сначала включаем "пылесос" - и только потом читаем инструкцию

Ой! - ЙЩ! - переключатель напряжения !!! - Поздно ....

По тому что я у вас видел - замечу следующее, и так, как сам разумею.
(Тусть более знающие форумчане меня поправят если что ...)

Visual Basic
1
Public ...

Это объявление на уровне приложения - описанное так (перемененную, процедуру, функцию) видно во всём приложении и можно использовать в любом месте приложения и в выражениях в т.ч (кроме процедур и переменных).
Напрягает пространство имён приложения и тут принято экономить.

Visual Basic
1
Private ...

Это объявление на уровне текущего модуля (модуля формы например) - описанное так (перемененную, процедуру функцию) видно только внутри модуля которому принадлежит.

Visual Basic
1
... Function ...

Это описание функции которая может принимать аргументы и возвращает некоторое значение (несколько в описанном типе). Проще говоря : То что возвращает значение.

Visual Basic
1
... Sub ...

Это описание процедуры которая может принимать аргументы и не возвращает ничего, а просто производит некие операции (По событию контрола в форме например).

Добавлено через 14 минут
Ещё:
Очень желательно что бы контролы форм употребляемые в коде:
01. Имели внятные названия
02. Не имели запрещ. знаков в названии и пробелов (Только буквы и цыферы без пробелов)
03. Не в коем случае не совпадали с зарезервированными словами VBA и используемых библиотек.

... Запомнить все зарезервированные слова сложно - используйте префиксы, это древний , и не мной придуманный метод.
Например:
txtНазвание - Текстовое поле
cbxВладелецID - комбо бокс
и т.п.

@meref · 27.03.2018, 07:42 **[ТС]**

Ок. Спасибо!

@Eugene-LS · 27.03.2018, 08:08

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

Ок. Спасибо!

Извините пожалуйста, что я был так не краток.
В будущем постараюсь исправить это упущение.

@alvk · 27.03.2018, 09:27

Кликните здесь для просмотра всего текста

а на словах просил передать... (C)
вот так и ТС, спасибо только на словах

@snipe · 27.03.2018, 10:48

так к слову (делал когда-то для себя)

@meref · 27.03.2018, 19:20 **[ТС]**

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

так к слову (делал когда-то для себя)

о, спасибо это точно надо использовать.
Столкнулся со след проблемой. В отчете (зайти можно по кнопке на старте отчет о прибылях и убытках обе кнопки открывают один и тот же отчет, но перед этим откроется форма для определения диапазона запроса (другой период) там и изменяется запрос) everything сложные запросы запросы с обьеденением 4 таблиц. Там все работало хорошо, но мне поставили задачу выводить их в определенном порядке (результаты запроса. Там всего 5 строк), я изменил запрос по требованиям, но он не стал так выводить их. Для устранения этой проблемы добавил поле с порядковым номером, но вдруг стала появляться форма(та что тип мсджБокс) Експрешон1000 введите данные. Я так понял что так он показывает мою сумму, я не смог это убрать. Да и еще я не помню смог найти как в отчете делать сортировку, если сможите и с этим помогите пожалуйста
Изменяется запрос everything
Вот SQL

SQL
1
2
3
4
5
6
7
8
9
10
"SELECT 1 As num, Nz(Sum(t1.total), 0) As sum, 'оплаты учеников' As who FROM ( SELECT payment.dateOfPayment, payment.total, payment.personID FROM payment WHERE (((payment.personID) Like 'S*') AND ((payment.[dateOfPayment])" & _
    " Between " & Format$(fd, "\#mm\/dd\/yy\#") & " And " & Format$(td, "\#mm\/dd\/yy\#") & "))" & _
    ") As t1 UNION SELECT 2 As num, Nz(Sum(t1.total), 0) As sum, 'заказы партнеров' As who FROM ( SELECT t1.orderDate, t1.total, t1.Êîä FROM partnerOrders As t1 WHERE ((t1.[orderDate])" & _
    " Between " & Format$(fd, "\#mm\/dd\/yy\#") & " And " & Format$(td, "\#mm\/dd\/yy\#") & "))" & _
    "AS t1 UNION SELECT 3 As num, Nz(Sum(t1.total), 0) As sum, 'staff' As who FROM ( SELECT payment.dateOfPayment, payment.total, payment.personID FROM payment WHERE (((payment.personID) Like 'ST*') AND ((payment.[dateOfPayment])" & _
    " Between " & Format$(fd, "\#mm\/dd\/yy\#") & " And " & Format$(td, "\#mm\/dd\/yy\#") & "))" & _
    ") AS t1 UNION SELECT 4 As num, Nz(Sum(t1.total), 0) As sum, 'оплата учителей' As who FROM ( SELECT work1.monthp, work1.total, work1.teacherCode FROM work1 WHERE ((work1.[monthp])" & _
    " Between " & Format$(fd, "\#mm\/dd\/yy\#") & " And " & Format$(td, "\#mm\/dd\/yy\#") & ")" & _
    ") AS t1 UNION SELECT 5 As num, Nz(Sum(t1.total), 0) As sum, 'затраты' As who FROM ( SELECT currentExpenses.costDate, currentExpenses.total, currentExpenses.costID FROM currentExpenses WHERE ((currentExpenses.[costDate])" & _
    " Between " & Format$(fd, "\#mm\/dd\/yy\#") & " And " & Format$(td, "\#mm\/dd\/yy\#") & ")) AS t1"

И второй без ограничений по датам:

SQL
1
"SELECT 1 As num, Nz(Sum(t1.total), 0) As sum, 'оплаты учеников' As who FROM ( SELECT payment.total, payment.personID FROM payment WHERE ((payment.personID) Like 'S*')) As t1 UNION SELECT 2 As num, Nz(Sum(t1.total), 0) As sum, 'заказы партнеров' As who FROM ( SELECT t1.total, t1.Код FROM partnerOrders As t1)As t1 UNION SELECT 3 As num, Nz(Sum(t1.total), 0) As sum, 'staff' As who FROM ( SELECT payment.total, payment.personID FROM payment WHERE ((payment.personID) Like 'ST*')) AS t1 UNION SELECT 4 As num, Nz(Sum(-t1.total), 0) As sum, 'оплата учителей' As who FROM ( SELECT work1.total, work1.teacherCode FROM work1) AS t1 UNION SELECT 5 As num, Nz(Sum(t1.total), 0) As sum, 'затраты' As who FROM ( SELECT currentExpenses.total, currentExpenses.costID FROM currentExpenses) AS t1"

Наверно все (я по исправлял что видел, без исп зарез слов)
Зарание большое спасибо

@meref · 27.03.2018, 19:20 **[ТС]**

Упс вставил с кавычками

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

shanemac51 Модератор 12511 / 5085 / 814 Регистрация: 07.08.2010 Сообщений: 14,962 Записей в блоге: 4
	26.03.2018, 18:17
	непонятно, как отработает в запросах Format$(fd, "\#mm\/dd\/yy\#") и ввиду отсутствия Option Explicit несколько ошибок в именах контролов 1

@meref 0 / -1 / 0 Регистрация: 15.06.2017 Сообщений: 122
	26.03.2018, 18:20 [ТС]
	это вы рылись в форме прилегающей к отчету о прибылях и убытках? 0

shanemac51 Модератор 12511 / 5085 / 814 Регистрация: 07.08.2010 Сообщений: 14,962 Записей в блоге: 4
	26.03.2018, 18:35
	я нигде не рылась --я только вставила Option Explicit и запустила компиляцию кода проекта 0

@Eugene-LS 13266 / 5943 / 1529 Регистрация: 05.10.2016 Сообщений: 16,630
	26.03.2018, 19:02
	meref, самое страшное: Вы используете в именах объектов форм, и названиях процедур зарезервированные слова VBA! Это вам гарантирует глюки, хоть VBE вам временно это и прощает. Читать ТУТ! 1

@meref 0 / -1 / 0 Регистрация: 15.06.2017 Сообщений: 122
	26.03.2018, 19:15 [ТС]
	Учил аксес методом проб и ошибок. Большое спасибо что посмотрели и помогли. 0

@meref 0 / -1 / 0 Регистрация: 15.06.2017 Сообщений: 122
	27.03.2018, 07:42 [ТС]
	Ок. Спасибо! 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	27.03.2018, 09:27
	Кликните здесь для просмотра всего текста а на словах просил передать... (C) вот так и ТС, спасибо только на словах 2

@meref 0 / -1 / 0 Регистрация: 15.06.2017 Сообщений: 122
	27.03.2018, 19:20 [ТС]
	Упс вставил с кавычками 0

Запрос. В вба не работает, а в конструкторе для запросов работает

Решение