Как сделать паузу после Shell

Здравствуйте, подскажите пожалуйста, как сделать паузу между Shell и DoCmd.Quit.
При закрытии Access выводится формачка, где предлогается сделать архивацию, котроая идет через запуск бата. Если делать после Shell сразу выход, то архивируется как то странно, то архивируется, то не архивируется. Использую access2007, с галкой Сжимать при закрытии.

Private Sub Кнонка(1)_Click()
Shell "C:\pis.bat"
DoCmd.Quit
End Sub

Поищи по слову ExternalProgram функцию, которая запускает внешнюю программу и дожидается ее выполнения.

denishka, насколько я понимаю, у вас происходит архивирование файла базы, которая одновременно пытается выгрузиться. Если архиватор успевает "словить" файл до сжатия/восстановления, то процесс происходит, иначе (во время сжатия/восстановления) файл будет не доступен архиватору.
Думаю, есть смысл разделить по времени эта 2 процесса.
1) Во-первых, сжатие/восстановление - нетривиальная операция, которая может привести к падению базы.
2) Во-вторых, одновременно архивировать и сжимать/восстанавливать не получится. В принципе, архивирование базы, которая в данный момент работает (ещё не закончила работу), не гарантирует, что при разарахивировании вы получите рабочий образец, но это всё же лучше, чем сначала сжать/восстановить, а потом уже заархивировать.
Следовательно, вам необходимо сначала заархивировать, потом выждать время, затем выполнить Quit.
Думаю, для этого подойдёт пара таких способов.
1) Создать пустой цикл с проверкой текущего времени. Допустим, если вы знаете, что архивирование занимает секунд 10, поставьте проверку на прохождение 10 секунд.
2) Нужно как-то запустить Shell с проверкой, когда он выполнится. Возможно, есть какие-то параметры у этой команды.

Ну ребята, проблема уже решена. Запускаете через эту функцию любую последовательность действий, они дожидаются своей очереди.

Option Compare Database
'On Error на всех функциях.

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type

Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const INFINITE = -1&
Private Const NORMAL_PRIORITY_CLASS = &H20&

Dim FileName As String

Private Sub RunFile(FileName)
On Error GoTo Error_mark

Dim Process As PROCESS_INFORMATION
Dim Prog As STARTUPINFO
Prog.cb = Len(Prog)
CreateProcessA 0&, FileName, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, Prog, Process
WaitForSingleObject Process.hProcess, INFINITE

CloseHandle Process.hProcess

Exit_mark:
Exit Sub
Error_mark:
ReportError "RunFile()"
Resume Next
End Sub

Public Sub CommandExt(strCommand)
On Error GoTo Error_mark

RunFile strCommand

Exit_mark:
Exit Sub

Error_mark:
ReportError "CommandExt"
Resume Next
End Sub

Используем CommandExt(.....)

develed,
Интересная функция, но как использовать CommandExt(.....)?

denishka

develed, Интересная функция, но как использовать CommandExt(.....)?

Пишешь ту же строку, что и для Sell.
Например
strShell = Chr(34) & PathPF & "\7-Zip\7z.exe" & Chr(34) & " a -t7z " & Chr(34) & "D:\BackUp\MSKLAD\BackUp_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".7z" & Chr(34) & " " & Chr(34) & "C:\MyProgram\MSKLAD\*.mdb" & Chr(34)
Call CommandExt(strShell)

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

develed,
Сделал так

Private Sub Кнопка0_Click()
Dim strShell
strShell = """C:\pis.bat"""
Call CommandExt(strShell)
End Sub

Выдает ошибку:

Ну блин это мой обработчик ошибок, вместо него можно просто MsgBox. Думал догадаешься :)

denishka

Здравствуйте, подскажите пожалуйста, как сделать паузу между Shell и DoCmd.Quit.

поиск рулит :)

develed,
Спасибо большое, вроде пока все прекрасно работает. DoCmd.Quit я правильно вставил?!

Call CommandExt(strShell)
DoCmd.Quit
End Sub