Access 2000 - курс лекций

ПОИСК РЕФЕРАЛОВ ЗАРАБОТОК В ИНТЕРНЕТЕ, ПОИСК РЕФЕРАЛОВ ЗАРАБОТОК В ИНТЕРНЕТЕ



6b. Удаление формы


 

     На этом этапе напишем программу для удаления формы 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

 









Начало    Назад    Вперед






Книжный магазин