Нужно перехватить ошибку и заменить ее на свою - VB
Формулировка задачи:
Есть два запроса на выборку записей. Когда нет записей, удовлетворяющих условиям запроса, появляется ошибка 1004 "Текущая запись отсутствует". А я бы хотела отлавливать ее, и вместо нее пользователю выдавать свое сообщение. Как это сделать?
Решение задачи: «Нужно перехватить ошибку и заменить ее на свою»
textual
Листинг программы
Private Sub Form_Load()
On Error GoTo Form_Load_Err
If MsgBox("Запустить ошибку 1004 ?", 68) Then Error 1004
Exit Sub
Form_Load_Err:
MsgBox Err.Description & vbCrLf & _
"в Project1.Form1.Form_Load", _
vbExclamation + vbOKOnly, App.Title
Resume Next
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д