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

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

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

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

Visual Basic

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

@TurboDuck · 28.07.2016, 17:00

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

Visual Basic

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

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

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

Код

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

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 и всё время так расписываю код (мне конечно удобнее, понятнее), но понимаю что это не всегда правильно,отсюда и работает криво частенько. Может с опытом придет. Этот форум очень часто помогает в решении моих задач. СПАСИБО что вы есть!

@~~AllFree~~ Заблокирован
	28.07.2016, 21:23	3
	Сообщение от yuptica If IzmKol = False Then DostKol.Visible = False Else DostKol.Visible = True End If Не надо так делать. Можно прямо привести. Код DostKol.Visible=IzmKol 1

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

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

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

Решение