Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
ЯсноСолнышко
Guest
Добрый день.
Как на ВБА из одной базы данных закрыть другую открытую базу данных? Путь ко второй базе известен.
Спасибо?
2 сен 16, 08:02    [19619870]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
MrShin
Member

Откуда:
Сообщений: 1150
Акцесс - настольная база, а не серверная, такой возможности нет. Это можно корректно сделать только закрыв все приложения, работающие с базой. Автоматически закрывать приложения можно, только если в них написан модуль, который постоянно проверяет признак того, что приложение должно быть закрыто и после предупреждения закрывает приложение.
2 сен 16, 08:47    [19619931]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
guest_rusimport
Guest
ЯсноСолнышко,
если запущены на одном компьютере - можно закрыть из одной вторую , но окно Access-a от второй базы так и останется не закрытым
Function clos()
Dim db2 As Object
Set db2 = GetObject("диск:\путь к базе\db2.mdb")
db2.CloseCurrentDatabase
End Function
2 сен 16, 09:10    [19619960]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
MrShin
Member

Откуда:
Сообщений: 1150
guest_rusimport
GetObject("диск:\путь к базе\db2.mdb")

Так неизвестен же путь ко второй базе
2 сен 16, 09:16    [19619979]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
vmag
Member

Откуда: MP
Сообщений: 3018
MrShin
Так неизвестен же путь ко второй базе


ЯсноСолнышко
Путь ко второй базе известен.
2 сен 16, 09:25    [19620008]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
MrShin
Member

Откуда:
Сообщений: 1150
vmag,
Похоже, нужно уже мне очки покупать :)
2 сен 16, 10:01    [19620121]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
guest_rusimport
Guest
guest_rusimport
ЯсноСолнышко,
если запущены на одном компьютере - можно закрыть из одной вторую , но окно Access-a от второй базы так и останется не закрытым
Function clos()
Dim db2 As Object
Set db2 = GetObject("диск:\путь к базе\db2.mdb")
db2.CloseCurrentDatabase
End Function

затормозил малость , если

db2.CloseCurrentDatabase

заменить на

db2.Quit

то окошко второго Access тоже закроется
3 сен 16, 00:14    [19623836]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
ЯсноСолнышко
Guest
guest_rusimport, СПАСИБО
3 сен 16, 09:45    [19624072]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
ЯсноСолнышко
Guest
[quot guest_rusimport][quot guest_rusimport]ЯсноСолнышко,
если запущены на одном компьютере - можно закрыть из одной вторую , но окно Access-a от второй базы так и останется не закрытым
[src vba]
Function clos()
Dim db2 As Object
Set db2 = GetObject("диск:\путь к базе\db2.mdb")
db2.CloseCurrentDatabase
End Function

Дело в том, что база которую надо закрыть находится на другом компе и я к ней подключаюсь через сетевой диск. Данный код к сожалению не работает в моем случае. Есть ли способ закрыть базу Акцесс открытую на другом компе находящимся в сети?
Спасибо.
3 сен 16, 10:20    [19624108]     Ответить | Цитировать Сообщить модератору
 Re: Как на ВБА из одной базы данных закрыть другую открытую базу данных?  [new]
guest_rusimport
Guest
ЯсноСолнышко,
интернет вам в помощь (поищите - это популярный вопрос) , вот , например - http://itband.ru/2009/11/remote-execution/
3 сен 16, 12:08    [19624283]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить