Доступ к элементу управления "Флажок" зависимый от значения полей

@Braser · Регистрация: 16.03.2013

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

Подскажите пожалуйста, как реализовать такую штуку: Имеем 5 полей, три из которых обязательны для заполнения, допустим назовем их [Исполнитель(поле со списком)], [Оборудование (поле со списком)],[Срок выполнения(в днях, просто число)] и затем идет флажок "В производство". Задача: При выборе какой-то из строк флажком, контролировать чтобы пользователь заполнил все обязательные поля. При ошибке выдается информационное сообщение" Вы не заполнили поле такое-то, допустим "Оборудование".
Реализация через функцию "Обязательное поле" в конструкторе таблиц не приносит желаемого результата
Спасибо

@ltv_1953 · 01.04.2013, 08:20

В событии формы До обновления проверяете, если "В производство" истинно, то последовательно проверяете на IsNull все нужные поля с выдачей сообщений, если они пустые.

@Braser · 01.04.2013, 10:37 **[ТС]**

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

В событии формы До обновления проверяете, если "В производство" истинно, то последовательно проверяете на IsNull все нужные поля с выдачей сообщений, если они пустые.

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

PureBasic
1
2
3
4
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.В производство = True Then Me.Оборудование IsNotNull  
Else 
MsgBox "Не выбрано обрудование!", 0, " Внимание! "

А как правильно указать в коде, что необходимо проверить на услове несколько полей? Для каждого прописывать процедуру проверки If ......Then или их как то в одной строrе последовательно указать можно?

Если ЗНАЧЕНИЕ F = Истина ТО Поле; Поле 2; Поле 3; не должно быть пустым, Иначе СООБЩЕНИЕ (извиняюсь за примитивизм)

@alvk · 01.04.2013, 10:44

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

А как правильно указать в коде, что необходимо проверить на услове несколько полей?

Например, если на присутствие Null, то можно так:

Visual Basic
1
2
3
4
if len(me.поле1 + me.поле2 + me.поле3 + me.поле4) = 0 then
msgbox "заполнены не все поля!"
cancel = true
end if

@ltv_1953 · 01.04.2013, 10:56

Если проверять и выводить сообщения по каждому полю отдельно, то

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.В_производство Then
        If IsNotNull(Me.Оборудование) Then
            Call MsgBox("Не выбрано обрудование." _
                   & vbCr & "Введите его." _
                , vbOKOnly + vbExclamation, Me.Caption)
            Cancel = True
        End If
        
        
    End If
End Sub

If'ы внутри должны быть по каждому полю.

@Braser · 01.04.2013, 11:15 **[ТС]**

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.В_производство Then
        If IsNull(Me.Оборудование) Then
            Call MsgBox("Не указано оборудование,." _
                   & vbCr & "выберите из списка ." _
                , vbOKOnly + vbExclamation, Me.Caption)
            Cancel = True
        End If
        If Me.В_производство Then
        If IsNull(Me.Исполнитель) Then
            Call MsgBox("Не выбран исполнитель." _
                   & vbCr & "выберите из списка." _
                , vbOKOnly + vbExclamation, Me.Caption)
            Cancel = True
        End If
      End If
     End If
    End Sub

В таком виде заработал, большое спасибо

@ltv_1953 · 01.04.2013, 11:24

А зачем еще одна проверка - "9 If Me.В_производство Then" внутри такой же?
Без неё что-то не работало?

@Braser · 01.04.2013, 12:00 **[ТС]**

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

А зачем еще одна проверка - "9 If Me.В_производство Then" внутри такой же?
Без неё что-то не работало?

Пробовал убирать, выскакивает отладчик и пишет : " Blok If without End If "

@ltv_1953 · 01.04.2013, 12:10

Уберите строки 9 и 16.

@Braser · 01.04.2013, 12:13 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.В_производство Then
        If IsNull(Me.Оборудование) Then
            Call MsgBox("Не указано оборудование,." _
                   & vbCr & "выберите из списка ." _
                , vbOKOnly + vbExclamation, Me.Caption)
            Cancel = True
        End If
      If IsNull(Me.Исполнитель) Then
            Call MsgBox("Не выбран исполнитель." _
                   & vbCr & "выберите из списка." _
                , vbOKOnly + vbExclamation, Me.Caption)
            Cancel = True
        End If
     End If
    End Sub

Извиняюсь не сразу понял, вот так переделал

@ltv_1953 · 01.04.2013, 12:21

Да, так должно работать.

@alvk · 02.04.2013, 02:30

Ну и последний штрих, если полей на форме много, то

Visual Basic
1
2
3
4
5
6
7
For Each ctl In Forms("МояФорма").Controls
      If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
      If Len(ctl.Value & "") = 0 Then
      MsgBox ctl.Name & " не заполнено!"
      End If
      End If   
Next

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера 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. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Braser 397 / 140 / 39 Регистрация: 16.03.2013 Сообщений: 1,549

	Доступ к элементу управления "Флажок" зависимый от значения полей 01.04.2013, 07:49. Показов 1763. Ответов 11 Метки нет (Все метки) Подскажите пожалуйста, как реализовать такую штуку: Имеем 5 полей, три из которых обязательны для заполнения, допустим назовем их [Исполнитель(поле со списком)], [Оборудование (поле со списком)],[Срок выполнения(в днях, просто число)] и затем идет флажок "В производство". Задача: При выборе какой-то из строк флажком, контролировать чтобы пользователь заполнил все обязательные поля. При ошибке выдается информационное сообщение" Вы не заполнили поле такое-то, допустим "Оборудование". Реализация через функцию "Обязательное поле" в конструкторе таблиц не приносит желаемого результата Спасибо 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	01.04.2013, 08:20
	В событии формы До обновления проверяете, если "В производство" истинно, то последовательно проверяете на IsNull все нужные поля с выдачей сообщений, если они пустые. 1

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	01.04.2013, 11:24
	А зачем еще одна проверка - "9 If Me.В_производство Then" внутри такой же? Без неё что-то не работало? 1

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	01.04.2013, 12:10
	Уберите строки 9 и 16. 1

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	01.04.2013, 12:21
	Да, так должно работать. 1