Проверка условия при заполнении формы, вывод диалогового окна

@ankan · Регистрация: 28.09.2012

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

Форумчане, доброго времени суток!

Помогите решить проблему.

Нужна процедура которая проверяет выполняется ли условие равенства выражений :
«Код_tblИзделие»$ «Код_tblВерсия_ПО»
содержимого полей линейной формы «frmBipyck_OTK_RA_Ogran_Bercii» .
Источником записей является запрос «gry_Bipyck_OTK_RA»

и такого же выражения(«Код_tblИзделие»$ «Код_tblВерсия_ПО» ) таблицы «tblBercii_PO_Aktualn»,
учитывая что в таблице «tblBercii_PO_Aktualn» есть история изменения версий ПО и сравнивать надо с той записью (записями) в поле «Актуальная» которых стоит «Истина»

После проверки выводится диалоговое окно:
1. Если все совпадает – текст «проверка выполнена успешно»
2. Если не совпадает – пишет « При проверке выявлены ошибки в записях № (Код_tblИдентификатор_Изделия)- Проверьте № версий и обратитесь к непосредственному или вышестоящему руководителю»

Примерно так!

Поможете?

mobile · 07.11.2014, 19:24

Неясно какую запись в таблице tblBercii_PO_Aktualn брать для сравнения. Ведь в ней наверняка не одна запись где поле Актуальная равно истина. Придется Вам самому добавлять в запрос нужное условие. Или уточняйте.

Но предположу, что связь по полю Код_tblИдентификатор_Изделия (???). Также предположу, что автор хочет сравнивать текстовые склейки полей в форме и таблице: ПолеФормы1 & ПолеФормы2 равно/не равно ПолеТаблицы1 & ПолеТаблицы2. Если иначе - уточняйте.

Видимо Вы хотите по кнопке проверять условие? Или на каком-то событии формы/контрола? Могут быть варианты.
Предположим по кнопке

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub МояКнопка()
  Dim s1,s2
  s1=Me.Код_tblИзделие & "|" & Me.Код_tblВерсия_ПО
  With Currentdb.Openrecordset("select * from tblBercii_PO_Aktualn " _
    & " where Актуальная And Код_tblИдентификатор_Изделия=" & Me.Код_tblИдентификатор_Изделия) 'Надо добавить условие выбора 
    s2=!Код_tblИзделие & "|" & Код_tblВерсия_ПО
  End With
  If s1=s2 Then
    msgbox "проверка выполнена успешно"
  Else
    msgbox "При проверке выявлены ошибки в записях № " & me.Код_tblИдентификатор_Изделия & vbcrlf _
      & "- Проверьте № версий и обратитесь к непосредственному или вышестоящему руководителю"
  End if
End Sub

Поскольку сам файл БД не выложен и в ТЗ есть неясности, то разумеется могут быть логические ошибки.

@ankan · 10.11.2014, 13:02 **[ТС]**

Mobile,спасибо за ответ!

Поразмыслив, я решил все-таки выложить БД т.к. это наименее затратный по времени путь решения проблемы.
Наименование формы «frmBipyck_OTK_RA_Ogran_Bercii» изменилось на «frmBipyck_OTK_RA» но в предложенной Вами процедуре название формы не присутствует, поэтому изменений данной процедуры в связи с этим, как я понял, не нужно.

В форме «frmBipyck_OTK_RA» поставил кнопку77 по которой запускается процедура сравнения № версий ПО .В данной форме следующие записи внесены корректно "проверка выполнена успешно"

Код_tblИдентификатор_Изделия
33988
33989
33990
33991
34362
34364
34366

Внесены не корректно "При проверке выявлены ошибки в записях № " & me.Код_tblИдентификатор_Изделия & vbcrlf _
& "- Проверьте № версий и обратитесь к непосредственному или вышестоящему руководителю"

Код_tblИдентификатор_Изделия
33993
33994
34363
34365
34367

При этом надо учитывать что в форме можно менять содержимое записей после ее заполнения( например, изменить Код_tblИзделие , и проверка должна учесть это изменение).

Прошу помочь в решении данной проблемы!

@VinniPuh · 10.11.2014, 13:38

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

...Но предположу...

Где бы такому научиться?

Добавлено через 24 минуты
Сгласен, у наших ГУРУ не забалуешь, и есть чему научиться, я вот лично всегда научаюсь чему то новому из примеров.
(предположу, что они наверное были ИЗНАЧАЛЬНЫМИ разработчиками САМОГО Аксика, типа - ИЗНАЧАЛЬНЫМИ ПРЕДТЕЧАМИ)

, а это, типа Ваще - КРУТО

@ankan · 13.11.2014, 17:39 **[ТС]**

Форумчане!
если все пожелания реализовать сложно- то можно упрощать задачу.
Например, во всплывающем окне можно НЕ перечислять все коды записей с ошибками- достаточно фразы "Обнаружена ошибка , обратитесь к непосредственному или вышестоящему руководителю"

@ankan · 21.11.2014, 17:51 **[ТС]**

Форумчане, во вложении некоторые мои наработки по данной теме.
Сделал:
1) Запрос1 который отбирает все записи которые есть в форме "frmBipyck_OTK_RA";
2)Запрос2 который отбирает все актуальные версии ПО
3)Запрос3 который ДОЛЖЕН отбирать все записи из Запроса1 которым НЕ соответствует НИ одна из множества записей Запроса2

Сейчас запрос3 работает с точностью наоборот т.е. отбирает записи из запроса1 которым соответствует запись( записи) из запроса2 и к тому же записи,гад, дублирует (посмотрите коды "Код_tblИдентификатор_Изделия")

Прошу помочь сделать Запрос3 который будет отбирать все записи из Запроса1 которым НЕ соответствует НИ одна из множества записей Запроса2 т.е. Выражение1запроса1<>Выражению1запроса2

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 972

	Проверка условия при заполнении формы, вывод диалогового окна 07.11.2014, 18:40. Показов 1771. Ответов 5 Метки нет (Все метки) Форумчане, доброго времени суток! Помогите решить проблему. Нужна процедура которая проверяет выполняется ли условие равенства выражений : «Код_tblИзделие»$ «Код_tblВерсия_ПО» содержимого полей линейной формы «frmBipyck_OTK_RA_Ogran_Bercii» . Источником записей является запрос «gry_Bipyck_OTK_RA» и такого же выражения(«Код_tblИзделие»$ «Код_tblВерсия_ПО» ) таблицы «tblBercii_PO_Aktualn», учитывая что в таблице «tblBercii_PO_Aktualn» есть история изменения версий ПО и сравнивать надо с той записью (записями) в поле «Актуальная» которых стоит «Истина» После проверки выводится диалоговое окно: 1. Если все совпадает – текст «проверка выполнена успешно» 2. Если не совпадает – пишет « При проверке выявлены ошибки в записях № (Код_tblИдентификатор_Изделия)- Проверьте № версий и обратитесь к непосредственному или вышестоящему руководителю» Примерно так! Поможете? 0

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 972
	13.11.2014, 17:39 [ТС]
	Форумчане! если все пожелания реализовать сложно- то можно упрощать задачу. Например, во всплывающем окне можно НЕ перечислять все коды записей с ошибками- достаточно фразы "Обнаружена ошибка , обратитесь к непосредственному или вышестоящему руководителю" 0