ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!
Как добавить модуль в БД Access на VB, а потом удалить его(по завершении программы)?
GanSS

после строки
Set objVBAProject = App.VBE.ActiveVBProject
выкидывает ошибку: Error in loading DLL
что не так?
GanSS

App:
Dim App As New Access.Application
GanSS

Я думаю мне бы не дал VB создать переменную в этом случае. Хотя заменил, но результат тот же :(
GanSS

я заменил App на appMy
а использую вот так:

Dim base_p As Database
Dim appMy As New Access.Application
Set base_p = appMy.DBEngine.OpenDatabase(Path & "Project.mdb", False, False, "MS Access;PWD=DF9D_11D3_A3")


GanSS

Вместо какого new?
GanSS

AntonariyПосмотри в watch что содержит App.VBE.
содержание App.VBE:
<Error in loading DLL>

Serge Gavrilov Antonariy GansMDim App As New Access.ApplicationСуществует глобальный объект с именем App. Назови свою переменную по-другому.
Кто вас так учил работать с Access Application?
Вы скупы на подробности, вам трудно помогать.
Я второй день и второй раз за VB так что извиняйте.
могу весь код вставить

Serge Gavrilov GansMя заменил App на appMy
а использую вот так:

Dim base_p As Database
Dim appMy As New Access.Application
Set base_p = appMy.DBEngine.OpenDatabase(Path & "Project.mdb", False, False, "MS Access;PWD=DF9D_11D3_A3")


GanSS
Поймите, Access.Application и Database это разные объекты. Для добавления модуля вам не нужна Database.

Надо, например, так:

Признайтесь, зачем вам надо создать модуль, а потом удалить его?
Как вы его хотите использовать?

Продали мы программку (не нашу) товарищам, а им ее отчеты не устраивают.
Вот и нужно отчет сгенерить. А модуль нужен чтобы запрос выполнить.
Этот модуль расшифровывает поле из БД

AntonariySerge Gavrilov, он вроде и пытается в Application.
GansM, таки это результат App или appMy? Нужно второе.
я же писал, что заменил App на appMy => и результаты для appMy

Serge Gavrilov AntonariySerge Gavrilov, он вроде и пытается в Application.

Где в его коде открыт файл базы данных для appMy?
Тогда надо было хотя бы использовать OpenCurrentDatabase.
Antonariy
GansM, таки это результат App или appMy? Нужно второе.
Для приведенного кода без разницы.
Если в процедуре об.явлено Dim App As New Access.Application, то App будет Access.Application, независимо от того, что есть глобальный объект с таким же именем.

Где в его коде открыт файл базы данных для appMy? - если я правильно понял, то в самом начале открывается:
Set base_d = appMy.DBEngine.OpenDatabase(Path & "Events.mdb", False, False, "MS Access;PWD=DF9D_11D3_A3")
Set base_p = appMy.DBEngine.OpenDatabase(Path & "Project.mdb", False, False, "MS Access;PWD=DF9D_11D3_A3")
а дальше использую:
Dim wrk As Workspace
Set wrk = appMy.DBEngine.Workspaces(0) и работает

и, если нетрудно, то какая разница между OpenDatabase и OpenCurrentDatabase

Млин, рабочий день заканчивается - не смогу с вами переписываться сегодня.
Если можите, давайте завтра с 9:00 по нашему(по вашему вроде 10:00)

Скидываю весь код.
Только не ругайтесь за черт пойми что - это тренировочный код:)
В модули нужно ф-ию GetDate запихнуть
GanSS