Ошибка при отсутствии данных

@yuptica · Регистрация: 11.07.2016

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

Здравствуйте! В коде добавила условие, всё прекрасно работает при наличии данных, но при отсутствии их (т.е.поле пустое) выдается системная ошибка...Пожалуйста подскажите как это поправить. Вот тот самый кусочек кода, который добавила

Visual Basic
1
2
3
4
5
If IzmKol = False Then
DostKol.Visible = False
Else
DostKol.Visible = True
End If

@TurboDuck · 28.07.2016, 17:00

Пустое поле где? Ячейка или в форме?
Если ячейка то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
On Error Resume Next
If IzmKol.Value = "" Then
MsgBox "Отсутствуют данные!"
Exit Sub
End If
If IzmKol = False Then
DostKol.Visible = False
Else
DostKol.Visible = True
End If

Если форма то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
On Error Resume Next
If Me.IzmKol.Value = "" Then
MsgBox "Отсутствуют данные!"
Exit Sub
End If
If IzmKol = False Then
DostKol.Visible = False
Else
DostKol.Visible = True
End If

@AllFree · 28.07.2016, 21:23

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

If IzmKol = False Then
DostKol.Visible = False
Else
DostKol.Visible = True
End If

Не надо так делать. Можно прямо привести.

Code
1
DostKol.Visible=IzmKol

@snipe · 29.07.2016, 03:50

TurboDuck, В аксе для проверки отсутствия данных есть функция Nz() ибо в поле может быть null и тогда Ваше

Visual Basic
1
If Me.IzmKol.Value = "" Then

будет актуально не при всех значениях

Visual Basic
1
If Nz(Me.IzmKol,"") = "" Then

Добавлено через 3 минуты
и весь код превратится

Visual Basic
1
2
3
4
5
6
If Nz(Me.IzmKol,"") = "" Then
MsgBox "Отсутствуют данные!"
Exit Sub
else
DostKol.Visible=IzmKol
end if

@TurboDuck · 29.07.2016, 08:07

Snipe, спасибо! Не знал!

@yuptica · 29.07.2016, 08:27 **[ТС]**

Спасибо большое! Очень много полезной информации! Я только начинаю работать в VBA и всё время так расписываю код (мне конечно удобнее, понятнее), но понимаю что это не всегда правильно,отсюда и работает криво частенько. Может с опытом придет. Этот форум очень часто помогает в решении моих задач. СПАСИБО что вы есть!

Новые блоги и статьи Все статьи Все блоги /
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. Пошагово создадим проект для загрузки изображения. . .

@TurboDuck 50 / 49 / 13 Регистрация: 23.11.2015 Сообщений: 401
	29.07.2016, 08:07
	Snipe, спасибо! Не знал! 0

@yuptica 0 / 0 / 0 Регистрация: 11.07.2016 Сообщений: 39
	29.07.2016, 08:27 [ТС]
	Спасибо большое! Очень много полезной информации! Я только начинаю работать в VBA и всё время так расписываю код (мне конечно удобнее, понятнее), но понимаю что это не всегда правильно,отсюда и работает криво частенько. Может с опытом придет. Этот форум очень часто помогает в решении моих задач. СПАСИБО что вы есть! 0

Ошибка при отсутствии данных

Решение