Условие на значение поля с If

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

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

Форумчане, доброго времени суток!
Возможно ли в "условии на значение" поля "Shtrix_Rodit" использовать IF ?, например

Visual Basic
1
2
3
4
5
6
If Поле30 = 37 Then
Shtrix_Rodit Like "2#*"
If Поле30 = 36 Then
Shtrix_Rodit Like "1#*"
If Поле30 = 39 Then
Shtrix_Rodit Like просто целое число

Помогите, пожалуйста, составить правильный код.

@Eugene-LS · 16.08.2017, 12:35

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

Прошу подсказать- как сохранять (в модуле проекта?) значение вводимое, но не сохраняемое в поле Shtrix_Rodit формы3. т.е. то значение которое проверяется по условиям If ?

Сохранить значение между вызовами?
Ну простейшее - использовать INI файл для конкретного пользователя...
Работа с INI файлом

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

Сообщение от Eugene-LS

Сохранить значение между вызовами?

Второй вариант - сохранять в переменной объявленной как Public
Значение будет "Видно" внутри сессии пользователя до закрытия приложения.

@ankan · 16.08.2017, 12:51 **[ТС]**

Eugene-LS, так делал в модуле проекта

Visual Basic
1
2
3
Public Funktion Shtrix_Rodit_4 ()
Shtrix_Rodit_4 = Forms!Форма3!Shtrix_Rodit
End Function

Но дело в том что значение в поле Shtrix_Rodit не записалось, а потом и форма3 закрылась- (см.пост Сегодня 14:23) по условию if переходим в форму1 или форму2.
Что-то неправильно делаю?

@Панург · 16.08.2017, 13:05

Visual Basic
1
2
3
4
5
6
7
8
Select Case True
    Case Me.Shtrix_Rodit Like "*[_]8*"
        ...
    Сase Me.Shtrix_Rodit Like "*[_]7*" 
        ...
    Сase Not Me.Shtrix_Rodit Like "_*"
        ...    
End Select

@ankan · 16.08.2017, 13:42 **[ТС]**

Если так:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Shtrix_Rodit_BeforeUpdate(Cancel As Integer)
 
If Me.Shtrix_Rodit Like "*[_]8*" Then
'DoCmd.Close acForm, Me.Name
Forms!frmOperacii_Proisv_Vibor_Oper.SetFocus
Forms!frmOperacii_Proisv_Vibor_Oper!Поле6.SetFocus
Forms!frmOperacii_Proisv_Vibor_Oper!Поле6 = Shtrix_Rodit_4' Вставляем вводимое в форме3 значение в поле6  формы frmOperacii_Proisv_Vibor_Oper
Cancel = True

т.е. форму 3 не закрываем- то, в принципе, получается вставить значение, но не получается при этом запустить событие AfterUpdate поля6 формы frmOperacii_Proisv_Vibor_Oper.
Как бы это сделать? (запустить событие AfterUpdate поля6)

Добавлено через 44 секунды
Панург, сейчас использую If.

@Eugene-LS · 16.08.2017, 14:44

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

Like "_*"

Удовлетворяет двум условиям выше - думаю, не пройдёт.
Повторюсь - видимо функцию писать нужно.
Хотя ... не зная задачки - думать сложно.

@ankan · 16.08.2017, 15:04 **[ТС]**

Eugene-LS,

Сообщение от Eugene-LS

Удовлетворяет двум условиям выше

- не удовлетворяет. Первые два условия перед слэшем содержат символы, а третье условие перед слэшем символы не содержит.
"*[_]8*"
"*[_]7*"
"_*"
Проблема в другом- не очищает поле, если не удовлетворяет условию Like "_*".
И, как мне запускать событие после обновления формы1?

@Eugene-LS · 16.08.2017, 15:54

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

И, как мне запускать событие после обновления формы1?

Ну так может запускать по событию обновления поля с проверкой значения ...
Выложите форму и нужные данные - с пояснениями правил того что вы хотите.
Будем обсуждать предметно.

@ankan · 16.08.2017, 17:04 **[ТС]**

Eugene-LS, Выкладываю БД
1. Для входа в форме fEnter1 введите 1_1 нажимаем Enter
2. В поле0 формы frmOperacii_Proisv_Cotrydn введите одно из значений: 650_7777777 ;555_7777777;504_7777777;539_7777777 нажимаем Enter
3. В В поле0 формы frmOperacii_Proisv_Vibor_Oper введите 37_88888888 нажимаем Enter
Для понимания можно после ввести и другие значения, такие как:34_8888888 ;36_8888888;38_8888888 нажимаем Enter
4. В форме frmPriviazka_Coctava_Knopki в поле5 введите число входящих в сборочную единицу, например 2 нажимаем Enter
5.В форме frmPriviazka_Coctava_Glavn_4 в поле Shtrix_Rodit вводим значение, содержащее _число, например : _12 нажимаем Enter. Курсор переходит в поле Shtrix_Vxod подчиненной формы.
6. Вводим в поле Shtrix_Vxod подчиненной формы значение, содержащее _число, например : _21, затем , к примеру _78
7. После этого цикл закончен, курсор переходит в поле главной формы Shtrix_Rodit и можно цикл повторить.

Если в поле Shtrix_Rodit ввести значение, содержащее "*[_]8*" или "*[_]7*"- т.е или другую операцию или другого сотрудника- то должны выполнятся соответствующие строки кода. Они в целом выполняются, только при переходе в соответствующие формы они как бы не обновляются ( поля). Если они будут автоматически обновляться- то будет незамедлительный переход по событию AfterUbdate этих форм.
в общем так.

@Eugene-LS · 21.08.2017, 11:14

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

2. В поле0 формы frmOperacii_Proisv_Cotrydn введите одно из значений: 650_7777777 ;555_7777777;504_7777777;539_7777777 нажимаем Enter

Не работает

Форма открывается с новой записью.

@ankan · 08.09.2017, 11:39 **[ТС]**

Eugene-LS,
2. В поле0 формы frmOperacii_Proisv_Cotrydn ввел значение: 650_7777777 нажал Enter и у меня открылась форма выбора технологической операции "frmOperacii_Proisv_Vibor_Ope"- см. скрин.
т.е. все сработало как надо. Что у Вас не сработало, пока не понятно.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последнея моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 991
	08.09.2017, 11:39 [ТС]
	Eugene-LS, 2. В поле0 формы frmOperacii_Proisv_Cotrydn ввел значение: 650_7777777 нажал Enter и у меня открылась форма выбора технологической операции "frmOperacii_Proisv_Vibor_Ope"- см. скрин. т.е. все сработало как надо. Что у Вас не сработало, пока не понятно. Миниатюры 0