Запуск самого себя (удачное решение?)

[dormouse]

Есть msa-база, в которой пользователем через диалог меняются настройки среды, и по кнопке "Применить" программой предлагается перезапуск базы, чтоб изменения вступили в силу. Второй экземпляр базы сам акцесс не даст запустить. Да и не нужен он. Надо ещё выйти из текущего экземпляра. Вобщем, надо запустить базу с отсрочкой - на то время, пока будет происходить выход из текущего экземпляра. Получилась такая дикость.

Код: Выделить всё

'*****здесь у нас переключается интерфейс с полного на ограниченный - для пользователя. и обратно
CurrentDb.Properties("AllowShortcutMenus") = Not CurrentDb.Properties("AllowShortcutMenus")
CurrentDb.Properties("AllowFullMenus") = Not CurrentDb.Properties("AllowFullMenus")
CurrentDb.Properties("AppTitle") = "Заголовок базы" & IIf(CurrentDb.Properties("AllowShortcutMenus"), " (режим отладки)", "")
'*****чтоб ясно было, ради чего всё это городится :)
'а дальше тот самый запрос с предложением перезапустить программу
If MsgBox("Чтоб изменение режима вступило в силу, надо перезапустить программу." & vbCrLf & vbCrLf & "Перезапустить?", vbQuestion + vbYesNo, "Переключение режима редактирования кода программы") = vbYes Then
    Shell "cmd /c ping -n 5 localhost & msaccess """ & CurrentDb.Name & """", vbHide
    DoCmd.Quit
End If

Она работает Может быть, есть более изящный способ?

[alibek]

Про команду sleep слышал?

[CyberPunk]

а откуда этот sleep он выполнять будет?

[alibek]

Из cmd. Это лучше, чем делать паузу в 5 секунд с помощью ping.

[dormouse]

А пример использования этого слипа можно?
Может быть, я не в курсе, но в WinXP в cmd его нет. Можно написать скрипт или экзешник, который в cmd вызывать, но это уже ещё большие костыли, чем пинг

[CyberPunk]

Что то мой cmd такой команды не знает...

1.jpg (24.76 Кб) Просмотров: 1928