Импорт программ модуля

Эта функция является продолжением предыдущих действий, описанных выше. С помощью нее мы сможем прочитать модуль «Настройка.bas» из папки «Программы» и разместить ее у себя в  базе данных.

'Параметры:

'   strBasic - название файла «Настройка.bas»

'   strModule - название модуля «Настройка»

'

Public Function funImportModule(strBasic As String, strModule As String) As Boolean

Dim sFullPath As String

On Error GoTo 999

    sFullPath = appFolder & "\Программы\" & strBasic 'Составляем файл

    If Dir(sFullPath) <> "" Then 'Проверяем файл

        With appAccess 'Указываем приложение

             .VBE.ActiveVBProject.VBComponents.Import sFullPath 'Импортируем программу

             .DoCmd.Save acModule, strModule 'Сохраняем программу

        End With

    Else

        MsgBox "Файл: " & sFullPath & " не существует!" 'Сообщаем об ошибке

    End If

    Exit Function 'Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

End Function


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=10055