Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Запуск стороннего приложения в MS Access средствами VB  [new]
Bodyarm
Member

Откуда:
Сообщений: 21
Стоит задача написать процедуру для кнопки, которая при нажатии на неё открывала стороннюю программу.

Насколько понимаю данное действие осуществляется с помощью оператора shell
А как осуществить проверку на то, что программа уже запущенна,для того чтобы заново не запускать программу, а просто сделать её активной?

Пример приведённый в этой теме

не работает в access'e
31 янв 11, 16:25    [10159860]     Ответить | Цитировать Сообщить модератору
 Re: Запуск стороннего приложения в MS Access средствами VB  [new]
Ципихович Эндрю
Member [заблокирован]

Откуда: Челябинская область
Сообщений: 2711
Bodyarm, если Tasks это мембер Ворда, то была тема по открытию папки где идёт перебор всех задач может среди них и найдётся интерисующая Вас. А вообще я бы на Вашем месте написал строку shell ... и смотрел бы в пошаговом режима как по коду она ведёт себя когда интерисующее Вас приложение запущено и когда нет.

Модератор: Тема перенесена из форума "Visual Basic".
31 янв 11, 17:13    [10160176]     Ответить | Цитировать Сообщить модератору
 Re: Запуск стороннего приложения в MS Access средствами VB  [new]
ё
Guest
Bodyarm
...
А как осуществить проверку на то, что программа уже запущенна,для того чтобы заново не запускать программу, а просто сделать её активной?
...

имхо, самое простое (и без привлечения АПИ) - попробывать активировать программу
  AppActivate ProgTitle
и прверить ошибку - если есть - делать Шелл, нет - на выход
31 янв 11, 18:46    [10160642]     Ответить | Цитировать Сообщить модератору
 Re: Запуск стороннего приложения в MS Access средствами VB  [new]
Анатолий ( Киев )
Guest
Bodyarm, если речь идет о незащищенном паролем MDB файле, то функция GetObject("Путь к MDB") открывает БД или находит уже открытую.
Set AccApp = GetObject("Путь к MDB")
Set AccApp = AccApp.Application 
AccApp.Visible = True
31 янв 11, 19:45    [10160908]     Ответить | Цитировать Сообщить модератору
 Re: Запуск стороннего приложения в MS Access средствами VB  [new]
alvk
Member [заблокирован]

Откуда: Находка
Сообщений: 10974
Bodyarm,

Запускайте shell'ом не программу, а батник, vbs, cmd или к примеру, что мне лично больше понравилось, AutoIt. Он бесплатен, команд море, например:

;WinWait("Упаковщик", "", 5)

If WinExists("Упаковщик") Then
    WinActivate("Упаковщик", "")
	 WinMove("Упаковщик", "", 100, 100, 300, 300 )
	 MouseMove(350, 236)
     MouseClick("left")
EndIf

Проверяется открыт ли процесс "Упаковщик" и нажимается кнопочка ОК на нём.
1 фев 11, 02:17    [10161927]     Ответить | Цитировать Сообщить модератору
 Re: Запуск стороннего приложения в MS Access средствами VB  [new]
Bodyarm
Member

Откуда:
Сообщений: 21
Спасибо за помощь. Будем пытаться осуществить
2 фев 11, 12:21    [10169931]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить