На этом этапе напишем программу для удаления формы strForm («Мой калькулятор»). Программа работает так, что если формы нет в базе данных, то программа выходит по ошибке через метку 999 и нам надо очистить поток от нее, чтобы в дальнейшем не было сообщений.
Public Function funDeleteForm(strForm As String) As Boolean
Dim frm As Form
On Error GoTo 999 'Переход по ошибке
funDeleteForm = False 'Возвращаемое значение при ошибке
appAccess.DoCmd.DeleteObject acForm, strForm 'Удаляем форму
funDeleteForm = True 'Возвращаем значение
Exit Function
999:
Err.Clear 'Очищаем поток от ошибок
End Function
Ссылки по теме