Если .. Еще не понимаю

Question

У меня большой сегмент кода, и все это работает, кроме случаев, когда есть ошибка пользователя.Существует текстовое поле, в которое пользователь должен ввести значение, а затем нажать кнопку, чтобы обновить таблицу.

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

К сожалению, когда поле остается пустым, появляется окно msg, но затем команды и SQL запускаются в любом случае.

Полагаю, мне просто не хватает чего-то действительно очевидного, но я не могу обдумать это.это блок кода, который вызывает у меня проблемы ...

If IsNull(Me.TxtStockValue) Then MsgBox "Please Select An Item To Update Stock And Ensure A Value Has Been Entered" Else:
DoCmd.RunSQL SQLDelete1
DoCmd.SetWarnings False
DoCmd.RunSQL SQLStory
DoCmd.RunSQL SQLDelete2
DoCmd.RunSQL SQLUpdate
DoCmd.SetWarnings True

txtStockValue - это поле txt, которое не может быть пустым.Остальное, похоже, не работает так, как я хочу.

Спасибо

Сэм

Answer 1

Попробуйте это - в вашей версии только первый оператор (SQLDelete1) является частью else, остальное всегда выполняется.

If IsNull(Me.TxtStockValue) Then
    MsgBox "Please Select An Item To Update Stock And Ensure A Value Has Been Entered"
Else
    DoCmd.RunSQL SQLDelete1
    DoCmd.SetWarnings False
    DoCmd.RunSQL SQLStory
    DoCmd.RunSQL SQLDelete2
    DoCmd.RunSQL SQLUpdate
    DoCmd.SetWarnings True
End If