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

Содержание раздела

---