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

@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_Товара?

@Capi · 16.12.2019, 18:18

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

и добавил переменную

Куда? Зачем?

Копируйте мой код без искажений.

И показывайте результат.

Напоминаю, без искажений копируйте!

@_Chenia_ · 16.12.2019, 18:20

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

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

Остановитесь уже на каком-нибудь одном варианте

@MSA057 · 16.12.2019, 20:35 **[ТС]**

Ребят извините меня, свет вырубили. Я запутался в ваших никах и поэтому такая белиберда получилась. Так вот что по коду от Capi, даже если убрать переменную rs получается тоже самое как и на картинках:

@MSA057 · 16.12.2019, 20:40 **[ТС]**

Без rs(тоже самое)

@Capi · 16.12.2019, 20:56

MSA057,

rs к моему коду отношения не имеет, уберите его.

А идентификатор ID_Товар из стартового поста взят.
Если в подчиненной форме такого имени нет, замените на то, которое там есть.

Может, надо было ID_Товара (добавлена буква "а" в конце) ?

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

Спасибо всё заработало!

@_Chenia_ · 17.12.2019, 08:48

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

Я про свой код. С первым все и так ясно.

Ну теперь когда у ТС всё заработало, можно лично для меня прояснить один вопрос,
чем Do While принципиально хуже With? И в том и в другом случае работа ведется с рекордсетом.

shanemac51 · 17.12.2019, 09:18

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

Do While принципиально хуже With?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
это абсолютно разные операторы
Do While rst.eof=false
'''''тело цикла
rst.movenext
loop
 
'' это некое выделение общей части
with rst
.addnew
!gor="Москва"
!ul="пр.Мира"
.UPDATE
END WITH
''можно записать
rst.addnew
rst!gor="Москва"
rst!ul="пр.Мира"
rst.UPDATE

@Capi · 17.12.2019, 09:28

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

чем Do While принципиально хуже With?

???

Почитайте о назначении того и другого.

@_Chenia_ · 17.12.2019, 09:34

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

это абсолютно разные операторы

это понятно, имел ввиду - в контексте решения поставленной задачи.
Если одно и тоже действие можно записать по разному, то это только вопрос приоритетов, кому как больше нравится!

@Capi · 17.12.2019, 09:37

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

одно и тоже действие

Это не одно и то же действие.

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

только вопрос приоритетов, кому как больше нравится

Нет.

@_Chenia_ · 17.12.2019, 09:44

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

Нет.

Ваши аргументы сложно опровергать.
Предлагаю на этом закончить обсуждение!

shanemac51 · 17.12.2019, 09:47

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

Если одно и тоже действие можно записать по разному

цикл невозможно осуществить при помощи with.....end with

@Capi · 17.12.2019, 09:52

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

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

А Вы вот это свое распишите полностью, без "....".
И попробуйте выполнить.
Может, тогда и поймете разницу.

@alvk · 17.12.2019, 10:39

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

чем Do While принципиально хуже With?

а чем if then else хуже with?

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 20:35 [ТС]
	Ребят извините меня, свет вырубили. Я запутался в ваших никах и поэтому такая белиберда получилась. Так вот что по коду от Capi, даже если убрать переменную rs получается тоже самое как и на картинках: Миниатюры 0

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 20:40 [ТС]
	Без rs(тоже самое) Миниатюры 0

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	16.12.2019, 20:56
	MSA057, rs к моему коду отношения не имеет, уберите его. А идентификатор ID_Товар из стартового поста взят. Если в подчиненной форме такого имени нет, замените на то, которое там есть. Может, надо было ID_Товара (добавлена буква "а" в конце) ? 1

@MSA057 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 82
	16.12.2019, 21:07 [ТС]
	Спасибо всё заработало! 0