Лекции по Microsoft Access 2000


         

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 'Очищаем поток от ошибок



Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий