Сравнение записей

@MSA057 · Регистрация: 20.03.2019

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

Всем привет, снова я(знаю что я вас уже замучил

). С ListCout я разобрался. Но понял после этого что мне придётся менять всю форму. Нынешняя проблема заключается в том что при выборе в поле со списком "ID Товара" товар в форме "Добавление товара в чек" происходит проверка лишь одного товара который есть в форме "подчиненная форма Стоимость". Вот этот код:

Visual Basic
1
2
3
4
5
Private Sub ID_Товара_BeforeUpdate(Cancel As Integer)
If [Form_подчиненная форма Стоимость].ID_Товар = [Form_Добавление товара в чек].ID_Товара Then
    MsgBox "Данный товар уже был добавлен.", vbOKOnly, "Ошибка"
End If
End Sub

По коду видно что он делает проверку лишь по одному товару. Если форме "подчиненная форма Стоимость" есть несколько товаров то он сверяет не каждый товар а лишь один. Как сделать так чтобы в форме [Form_подчиненная форма Стоимость].ID_Товар он сверял все записи а не одну, но при этом сравнивал лишь с 1-ой выбранной записью в [Form_Добавление товара в чек].ID_Товара?

@_Chenia_ · 16.12.2019, 16:17

Visual Basic
1
2
3
4
5
6
7
8
SET rs = "SELECT * FROM Form_подчиненная форма Стоимость"
Do While Not rs.EOF
    If...
 
   End If
rs.MoveNext
Loop
rs.Close

@Capi · 16.12.2019, 16:33

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

Как сделать так чтобы в форме [Form_подчиненная форма Стоимость].ID_Товар он сверял все записи а не одну, но при этом сравнивал лишь с 1-ой выбранной записью в [Form_Добавление товара в чек].ID_Товара?

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub ID_Товара_BeforeUpdate(Cancel As Integer)
 With [Form_подчиненная форма Стоимость].Form.Recordset
    .FindFirst "ID_Товар = " & ID_Товара
    If Not .NoMatch Then
       MsgBox "Данный товар уже был добавлен.", vbOKOnly, "Ошибка"
       Cancel = True
    End If
 End With
End Sub

@MSA057 · 16.12.2019, 17:07 **[ТС]**

Сори, оба кода вставил, не получается в обоих ошибка вылетает с данными. Есть ли способ попроще, просто в коде я ноль.

@_Chenia_ · 16.12.2019, 17:13

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

Сори, оба кода вставил, не получается в обоих ошибка вылетает с данными.

Какая ошибка, в какой строке?
Попробуйте исправить первую строку в мом коде на

Visual Basic
1
SET rs = "SELECT * FROM Стоимость;"

если Стоимость конечно это название таблицы

rs тоже лучше объявить в начале процедуры и соответствующие References должны быть подключены:

Visual Basic
1
Dim rs As DAO.Recordset

@MSA057 · 16.12.2019, 17:16 **[ТС]**

Блин а может как то через кнопку это реализовать?

@_Chenia_ · 16.12.2019, 17:19

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

Блин а может как то через кнопку это реализовать?

вот именно всё это и реализовывается по событию Нажатие кнопки

@MSA057 · 16.12.2019, 17:21 **[ТС]**

Проблема в том что это не таблица, подчиненная форма Стоимость идёт из запроса.

@MSA057 · 16.12.2019, 17:23 **[ТС]**

Ну там у меня всё замудрено

@Capi · 16.12.2019, 17:34

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

Visual Basic
1
SET rs = "SELECT * FROM Form_подчиненная форма Стоимость"

Хм...

Первое:

Visual Basic
1
Set rs = CurrentDb.OpenRecordset(...)

Второе:
Используете в запросе форму, как таблицу? И что, получается?

Добавлено через 4 минуты

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

оба кода вставил

Одновременно? Интересно, куда.

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

в обоих ошибка вылетает с данными

Где текст ошибки, скриншот хотя бы?
Я про свой код. С первым все и так ясно.

@MSA057 · 16.12.2019, 17:38 **[ТС]**

Сори что я особо ничего не понимаю(

@MSA057 · 16.12.2019, 17:39 **[ТС]**

(перепутал) поочереди вставлял

@Capi · 16.12.2019, 17:56

MSA057,

Это не мой код.

@_Chenia_ · 16.12.2019, 18:01

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

Dim rs As DAO.Recordset

Объявите переменную и
Tools>References>MicrosoftDAO 3.6 Object Library - поставить галочку.

@MSA057 · 16.12.2019, 18:06 **[ТС]**

Ну вот та ошибка

@MSA057 · 16.12.2019, 18:09 **[ТС]**

Если я правильно понимаю это переменная, но зачем она если в итоге она не используется?

@Capi · 16.12.2019, 18:11

MSA057,

Вы изменили событие.

Было Private Sub ID_Товара_BeforeUpdate(Cancel As Integer), а стало "Нажатие кнопки".

Зачем поменяли-то?

@_Chenia_ · 16.12.2019, 18:13

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

Если я правильно понимаю это переменная, но зачем она если в итоге она не используется?

Это набор записей (RecordSet), везде где (в моем коде) встречается rs. - это и есть ее использование.

@Capi · 16.12.2019, 18:15

ТС спрашивает о Cancel, а не о rs.

@MSA057 · 16.12.2019, 18:16 **[ТС]**

Я вернул Private Sub ID_Товара_BeforeUpdate(Cancel As Integer) и добавил переменную

Но возникает точно такая же ошибка

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 17:07 [ТС]
	Сори, оба кода вставил, не получается в обоих ошибка вылетает с данными. Есть ли способ попроще, просто в коде я ноль. 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 17:16 [ТС]
	Блин а может как то через кнопку это реализовать? 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 17:21 [ТС]
	Проблема в том что это не таблица, подчиненная форма Стоимость идёт из запроса. 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 17:38 [ТС]
	Сори что я особо ничего не понимаю( Миниатюры 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 17:39 [ТС]
	(перепутал) поочереди вставлял 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	16.12.2019, 17:56
	MSA057, Это не мой код. 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 18:06 [ТС]
	Ну вот та ошибка Миниатюры 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 18:09 [ТС]
	Если я правильно понимаю это переменная, но зачем она если в итоге она не используется? 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	16.12.2019, 18:11
	MSA057, Вы изменили событие. Было Private Sub ID_Товара_BeforeUpdate(Cancel As Integer), а стало "Нажатие кнопки". Зачем поменяли-то? 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	16.12.2019, 18:15
	ТС спрашивает о Cancel, а не о rs. 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 18:16 [ТС]
	Я вернул Private Sub ID_Товара_BeforeUpdate(Cancel As Integer) и добавил переменную Но возникает точно такая же ошибка 0

Сравнение записей

Решение