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

Формулировка задачи:

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

                    Листинг программы
                
If IzmKol = False Then
DostKol.Visible = False
Else
DostKol.Visible = True
End If

Решение задачи: «Ошибка при отсутствии данных»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

Оцени полезность:

10 голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы