Albatross

можно ли в VBA синхронно вызвать другую программу?
а то Call Shell(stAppName, 0) идет дальше, даже если прога не закончила работу

Tim

По-моему VBA не поддерживает многопоточности...

debutant

2Albatross: Конкретизируй задачу, пожалуйста.

Albatross

просто моя программа на MS ACCESS использует программу ,написанную на MSVC 6.0, которая обращается к той же базе данных и изменяет её, далее они просто выводятся в форме на MS ACCESS,
Это позволяет использовать всю пощь бибилиотек Visual Studio, но, очевидно , форма не должна выводится, пока вызываемая программа не закончит свою работу. Вот вопрос , как задержать выполнение на это время. Сейчас это работает так: VBA ждёт, когда в определёной таблице изменится значение одной записи, но это же очень криво...можно конечно, аналогично проверять записи в реестре , но всё равно никуда не годится

VbGuest

Используй функции API:

Const PROCESS_ALL_ACCESS& = &H1F0FFF
Const STILL_ACTIVE& = &H103&
Const INFINITE& = &HFFFF

Private Declare Function OpenProcess Lib 'kernel32' (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib 'kernel32' (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib 'kernel32' (ByVal hObject As Long) As Long

Public Function IsRuning(ByVal lProgID As Long) As Long
Dim lExitCode As Long
Dim hdlProg As Long

hdlProg = OpenProcess(PROCESS_ALL_ACCESS, False, lProgID)
GetExitCodeProcess hdlProg, lExitCode

Do While lExitCode = STILL_ACTIVE&
DoEvents
GetExitCodeProcess hdlProg, lExitCode
Loop
CloseHandle hdlProg
IsRuning = lExitCode
End Function

А в тексте программы:
...
iProg = Shell(MyFileName, vbNormalFocus)
Do While IsRuning(iProg): DoEvents: Loop
...

debutant

А нельзя ли заставить программу на MSVC 6.0 работать как COM EXE (в терминах VB)? Пусть бы она возвращала Recordset'ы программе на Access по требованию. В самом Access пишешь модуль класса, куда и инкапсулируешь логику. Форма заполняется кодом.

Ghost

А я просто накатал свой COM компонент - под VC++ все попроще будет

Не люблю API под Access ((

Ghost

2 debutant - (IMHO) можно

debutant

2Ghost: я в курсе, что можно. Я хотел всего лишь спросить, а нельзя ли ЕГО программу заставить (с модификацией, естественно). Но судя по молчанию, ответ VbGuest'а его устроил. Ухожу.