Эта функция является продолжением предыдущих действий, описанных выше. С помощью нее мы сможем прочитать модуль «Настройка.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 'Очищаем поток от ошибок