Проверка поля со списком на предмет заполнения в VB

@Donchak · Регистрация: 02.03.2022

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

Здравствуйте!
Уже сломал голову, не могу понять в чём дело?
Есть форма по вводу данных. На кнопку Сохранить повешены проверки по заполнению полей. Для текстовых полей проверки работают. А на поле со списком VB застревает и не видит, что значение выбрано.
Подскажите пожалуйста где ошибка?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Кнопка61_Click() ' кнопка Сохранить
On Error GoTo Err_Кнопка_Click
 
If IsNull(Me!smat) = False Then ' проверка на заполение поля из списка МАТЬ
   MsgBox "Не заполнено поле ''МАТЬ''", vbCritical, "Ошибка" ' сообщение об ошибке
   Me!smat.SetFocus  'курсор на пустое поле
   Exit Sub
End If         'закрываем проверку заполнения поля МАТЬ
   
 
If IsNull(Me!dtvz.Value) Then
   MsgBox "Не заполнено поле ''Дата регистрации''", vbCritical, "Ошибка"
   Me!dtvz.SetFocus
   Exit Sub
End If
 
If Me.Dirty = True Then
   Me.Dirty = False
End If
 
Exit_Кнопка_Click:
    Exit Sub
 
Err_Кнопка_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка_Click
  
End Sub

@January29 · 02.03.2022, 20:31

Del

@Donchak · 03.03.2022, 04:29 **[ТС]**

January29, спасибо за реакцию. Только не понял, что вы имеете ввиду.

I can · 03.03.2022, 06:18

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

А на поле со списком VB застревает

Где у вас эта проверка в коде? Ведь ничего не понятно. Имена контролов непонятные.

Добавлено через 10 секунд
И вообще лучше файл приложить.

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

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

If IsNull(Me!smat) = False Then ' проверка на заполение поля из списка МАТЬ

Если это проверка, то тут наоборот сделано. False надо убрать, имхо.

@Donchak · 03.03.2022, 06:20 **[ТС]**

Проверка реализована на поле из списка имя которому smat

Visual Basic
1
2
3
4
5
 If IsNull(Me!smat) = False Then ' проверка на заполение поля из списка МАТЬ
   MsgBox "Не заполнено поле ''МАТЬ''", vbCritical, "Ошибка" ' сообщение об ошибке
   Me!smat.SetFocus  'курсор на пустое поле
   Exit Sub
End If         'закрываем проверку заполнения поля МАТЬ

I can · 03.03.2022, 06:23

Даже лучше так сделать

Visual Basic
1
If  smat.text ="" Then

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

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

Проверка реализована на поле из списка имя которому smat

Ну вы же наоборот делаете - если поле не Null, то выдаёте сообщение.

@Donchak · 03.03.2022, 06:48 **[ТС]**

Visual Basic
1
 1 If  smat.text ="" Then

Не работает! И выходит сообщение «Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода»

Добавлено через 11 минут
Дошло! Правильная реализация

Visual Basic
1
If Nz(Me!smat) = False Than

Спасибо всем кто пытался помочь!

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@January29 3259 / 3278 / 556 Регистрация: 17.02.2019 Сообщений: 5,187
	02.03.2022, 20:31
	Del 0

@Donchak 0 / 0 / 0 Регистрация: 02.03.2022 Сообщений: 33
	03.03.2022, 04:29 [ТС]
	January29, спасибо за реакцию. Только не понял, что вы имеете ввиду. 0