Добавление модуля в удаленную mdb / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление модуля в удаленную mdb

8 сообщений из 8, страница 1 из 1

Добавление модуля в удаленную mdb

#32802608

Rogorn

Гость

Подскажите как программой добавить(скопировать) стандартный модуль из одной базы в другую. До самих модулей добрался:

Код: plaintext

1.
2.
3.
4.

Set dbs = OpenDatabase("Путь к базе")
Set ctr = dbs.Containers!Modules
For Each Doc In ctr.Documents
        qw = Doc.Name
Next Doc

а вот проделать с ними что-то не получается, даже удалить не могу.

...

Рейтинг:

0 / 0

27.11.2004, 19:31:56

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802670

Serge Gavrilov

Участник

Сообщения: 3 285

Рейтинг: 0 / 0

Скопировать
См. методы CopyObject, TransferDatabase

Создать
Получить Application удаленной базы
Создать пустой стандартный модуль
Application.VBE.ActiveVBProject.VBComponents.Add vbext_ct_StdModule
Application.VBE.ActiveVBProject.VBComponents.Import
Импорт из файла
Application.VBE.ActiveVBProject.VBComponents.Import filename

см. Help

...

Рейтинг:

0 / 0

27.11.2004, 23:25:29

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802804

Rogorn

Гость

В базе-отправителе создаю "Модуль1", в нем пишу:

Код: plaintext

DoCmd.CopyObject "База-получатель", "Модуль1", acModule, "Модуль1"

Первый запуск: ok - модуль скопирован.
Второй запуск: "Microsoft Access - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства." Наверно перезаписывать нельзя, а как быть, как сначала удалить в базе-получателе имеющийся объект?

...

Рейтинг:

0 / 0

28.11.2004, 13:49:23

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802829

Serge Gavrilov

Участник

Сообщения: 3 285

Рейтинг: 0 / 0

Rogorn...Наверно перезаписывать нельзя, а как быть, как сначала удалить в базе-получателе имеющийся объект?

По-моему TransferDatabase перезаписывает объект

посмотрите обсуждение Изменения в форме, удаленной базы.

Сами поищите, подобные вопросы задаются часто.
А поиск на форуме неплохой.

...

Рейтинг:

0 / 0

28.11.2004, 14:59:34

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802832

Rogorn

Гость

Разобрался: метод TransferDatabase допускает перезапись:

Код: plaintext

DoCmd.TransferDatabase acExport, "Microsoft Access", _
"Адрес базы получателя", acModule, "Модуль1", "Модуль1"

А как сделать такое? :
База "Main" в ней находится "Модуль1" и процедура "fncTransferDatabase".
В базе "База1" создаю ссылку (Сервис - Ссылки) на базу "Main" и запускаю процедуру "fncTransferDatabase", но возникает ошибка т.к. процедура пытается найти "Модуль1" в базе "База1". Как ее заставить искать модуль в базе "Main"?

...

Рейтинг:

0 / 0

28.11.2004, 15:15:49

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802870

Serge Gavrilov

Участник

Сообщения: 3 285

Рейтинг: 0 / 0

авторА как сделать такое?
/topic/133471

...

Рейтинг:

0 / 0

28.11.2004, 17:22:58

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802911

Rogorn

Гость

Прочел ссылку.
Так я вроде так все и делал:в базе "База1" создал ссылку на базу "Main", а работать не хочет. Еще раз: в базе "Main" процедура:

Код: plaintext

1.
2.
3.

Public Function fncTransferDatabase()
DoCmd.TransferDatabase acExport, "Microsoft Access", _
"Адрес базы получателя", acModule, "m2","m2"
End Function

модуль "m2" находится тоже в базе "Main". В базе "База1" вызываю процедуру fncTransferDatabase, но экспорта не происходит - программа ищет модуль "m2" в базе "База1", а его там нет.
Насколько понял, по ссылке немного другой вопрос решался: вызвать "чужую" функцию, передав ей "свой" параметр, а у меня - вызвать "чужую" функцию, экспортирующую "чужой" модуль.
-------------------
Понятно, что "База1" и "база получатель" - разные базы, иначе не стоило бы все это городить, а просто воспользоваться импортом.

...

Рейтинг:

0 / 0

28.11.2004, 19:15:03

| Ответить | Цитировать | Написать

Добавление модуля в удаленную mdb

#32802935

Serge Gavrilov

Участник

Сообщения: 3 285

Рейтинг: 0 / 0

Rogorn...Понятно, что "База1" и "база получатель" - разные базы, иначе не стоило бы все это городить, а просто воспользоваться импортом.
Честно говоря, зачем вы городите огород, я не знаю.
Из ваших объяснений очень трудно понять, что вы работаете с тремя базами.
Из первой выполняется код, из второй надо забрать модуль и передать в третью. Это так?
Если так, то, по простому, вполните импорт из второй в текущую, а из нее уже экспорт в базу приемник.

Можно и по другому, получить Application базы донора или базы приемника и опять же выполнить TransferDatabase (про получение Application и было в той ссылке, которую я вам дал).
Dim App as Application
Set app = GetObject("ПутьИмяБазы")
app.DoCmd.TransferDatabase acExport ...
тогда модуль для экспорта будет искать в App

Есть и другие варианты.

...

Рейтинг:

0 / 0

28.11.2004, 20:19:12

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление модуля в удаленную mdb

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32802935&tid=1670086]:	0ms
get settings:	5ms
get forum list:	26ms
check forum access:	2ms
check topic access:	2ms
track hit:	159ms
get topic data:	6ms
get forum data:	1ms
get page messages:	24ms
get tp. blocked users:	1ms
others:	197ms

total:	423ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы