Была (да и есть сейчас) у меня одна задача. В ней необходимо было выгружать в шаблоны Excel информацию. Там было намудрено с ранним и поздним связыванием, так что после выгрузки процесс Excel оставался в памяти и необходимо было перегружать Access. Хотелось бы это делать автоматически сразу после выгрузки. Пробовал использовать командные файлы (bat и cmd) для повторного запуска Access. Потом в интернете наткнулся На vbs скрипт, который делает то же самое. Понравилось.

'Input into a standard text editor, save it with the name RestartDb.vbs  
'and place in the same folder as the front-end 
Dim Database 
Dim LockFile 
Dim i 
Dim sAppEXE 
Dim sRegKey  
 
Database = WScript.Arguments(0) 
LockFile = WScript.Arguments(1) 
  
Set WshShell = CreateObject("WScript.Shell") 
i = 0 
'Wait until the lock file is gone 
Do While FileExists(LockFile) = True 
       PauseScript WshShell, 250 
   i = i + 1 
   if i >= 40 Then 
'Number of loops to test for before exiting without success.  This number can be adjusted 
       MsgBox "Unable to restart the Database as the Lock File is not going away.  Please try to relaunch it manually." 
       Wscript.Quit 
   End If 
Loop 
PauseScript WshShell, 750 
 
sAppEXE = "MSACCESS.EXE" 
sRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & sAppEXE & "\Path" 
sAccessPath = WshShell.RegRead(sRegKey) WshShell.Run _ 
        chr(34) & sAccessPath & sAppEXE & _ 
        chr(34) & " " & chr(34) & Database & chr(34) 
  
Set WSHShell = Nothing 
   
   
Function FileExists(FilePath) 
  Set fso = CreateObject("Scripting.FileSystemObject") 
  If fso.FileExists(FilePath) Then 
    FileExists = True 
  Else 
    FileExists = False 
  End If 
End Function 
  
Function PauseScript(WshShell, Delay) 
   'Delay in milliseconds 
   If WshShell Is Nothing Then Set WshShell = CreateObject("WScript.Shell") 
   WScript.Sleep Delay 
End Function

Dim sDatabase             As String 
Dim sLockFile             As String 
  
' Input argument 1 
sDatabase = Application.CurrentDb.Name  
' Input argument 2 
sLockFile = Replace(sDatabase, ".accdb", ".laccdb")  
'sLockFile = Replace(sDatabase, ".mdb", ".ldb")  
' Launch the Restart VBScript 
Shell "wscript """ & Application.CurrentProject.Path & "\RestartDb.vbs"" """ & _ 
      sDatabase & """ """ & sLockFile & """" 
'Close Access 
Application.Quit

Ваш коментарий будет первым

Добавить коментарий
Имя:
E-mail
Коментарий:
Код:*