powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу запустить один Акцесс из другого!
12 сообщений из 12, страница 1 из 1
Не могу запустить один Акцесс из другого!
    #32782380
Tamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди, помогите пожалуйста... У меня тоже ошибка, связанная с ActiveX - "ActiveX can't create object", но поиски в форуме ничего не дали - возможно что-то не поняла... Нужно запустить из одной акц. аппликации - другую
акц. аппликацию. Делаю так
Set appAccess = New Access.Application
Set db = appAccess.DBEngine.OpenDatabase(StAppPlace & "lib_appml.mde")
Или так
Set appAccess = GetObject(StAppPlace & "lib_appml.mde")
Или так
Set appAccess = CreateObject(StAppPlace & "lib_appml.mde")
На большинстве компьютеров это работает. Но на некоторых - хоть тресни. Мне показалось, что не работает на тех, где есть 2 Акцесса и Акцесс97 установлен после Акцесса2003, например. Регистрация dao350.dll и dao.350.dll не помогли. Переустановка всего не мне поможет, поскольку эту программку будут запускать сами юзеры на местах... Может, знает кто-то - в чем причина этой гадости?
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782393
ЛП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если с явным указанием версии, т.е.:
Код: plaintext
Set appAccess = CreateObject("Access.Application.8") '  97
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782398
Lenivec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Найди в инете такой файлец: licences.reg
добавь этот кусок в реестр на тех машинах где не работает, должно заработать
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782427
GKirill
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ЛПА если с явным указанием версии, т.е.:
Код: plaintext
Set appAccess = CreateObject("Access.Application.8") '  97

- так для 97, а так для 2003:
Set appAccess = CreateObject("Access.Application.10")
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782445
Tamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Написала так
Set Access = CreateObject("Access.Application.8")
Set db = appAccess.dbEngine.OpenDatabase(StAppPlace & "lib_appml.mde")
For Each lTabDef In db.TableDefs
....

Теперь это же гнусное ругательство, но уже на строчке For each...
Может, что-то не так?
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782464
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
TamaraSet Access = CreateObject("Access.Application.8")
Set db = appAccess.dbEngine.OpenDatabase(StAppPlace & "lib_appml.mde")
Это так и должно быть?
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782475
ЛП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Внимание вопрос - а зачем открывать новую аксесовскую аппликацию, если надо просто перебрать таблички? Чем не подходит просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim db As DAO.DAtabase
Set db = DBEngine( 0 ).OpenDatabase("путь")
Dim tds As DAO.TableDefs
Set tds = db.TableDefs
Dim td As DAO.TableDef
For Each td In tds
' трампампам
Next td
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782568
Tamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, способ
Set db = DBEngine(0).OpenDatabase("путь")
отлично работает, но опять же кроме "плохого компьютера"!!!

Но все равно, действительно, глупо- ради доступа к таблице делать СreateObject... Правда, в другой функции, наверно, придется это сделать, так нужно перебрать все формы - хочу сменить KeybooardLanguage в текстовых полях каждой формы...
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782579
Tamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Lenivec: Найди в инете такой файлец: licences.reg
добавь этот кусок в реестр на тех машинах где не работает, должно заработать

Расшифруйте, пожалуйста, как это сделать поподробнее
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782639
ЛП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782681
Lenivec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
идем в любой поисковик, я например яндекс люблю, набираем licences.reg, ходим по ссылкам и ищем где можно загрузить себе такой файлец
я бы и сразу ссылку дал, да нету у меня инета полного, доступ толька к некоторым сайтам
...
Рейтинг: 0 / 0
Не могу запустить один Акцесс из другого!
    #32782728
Tamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое, попробую!
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу запустить один Акцесс из другого!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]