Автоматическое обновление интерфейсной части

Private Function test_Exit() As Integer
 
On Error Resume Next
       Dim p As String ' Местонахождение интерфейсного файла пользователя
   p = CurrentProject.Path & "\"
 
' Если пользователь запустил контрольную версию из сети  - то выход
If (p = "W:\ACCESS\") Then 
  DoCmd.Quit
End If
 
Dim Path As String ' Местонахождение файла с таблицами
Path = [Path_to_DB]
  Dim db As DAO.Database
        Set db = CurrentDb()
   
'Подключаем табицу с версией БД 
Dim tdf1 As TableDef
  Set tdf1 = db.CreateTableDef("Free")
  tdf1.Connect = ";DATABASE=" & Path & ";DSN=Free"
 tdf1.SourceTableName = "Free"
 db.TableDefs.Append tdf1
 RefreshDatabaseWindow
 
Dim ver_on_server, ver_loc As Integer
Dim strSQL1, strSQL2 As String
      
strSQL1 = "SELECT Free.ver From Free WHERE (((Free.ID)=1));"
strSQL2 = "SELECT Free0.ver From Free0 WHERE (((Free0.ID_L)=1));"
 
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
With cnn
    .BeginTrans
       ver_on_server = .Execute(strSQL1).Fields(0) ' получаем версию БД на сервере 
       ver_loc = .Execute(strSQL2).Fields(0)          ' получаем версию БД на лок.компе
    .CommitTrans
End With
      
 If (ver_on_server > ver_loc) Then
 
     Dim st00, st0, st1, st2 As String
     st00 = "echo " & ChrW(34) & "Внимание! Обновление Базы Данных" & ChrW(34)
 
' ПРОБЛЕМНЫЙ МОМЕНТ - рользователь решает когда нажать! - это плохо - как-бы это проконтролировать програмно?
     st01 = "pause"
 
' будем копировать контрольную версию на лок.комп: docs0.mdb ->  docs2.mdb
     st0 = "copy /Y " & ChrW(34) & "W:\ACCESS\docs0.mdb" & ChrW(34) & " " & ChrW(34) & p & "docs2.mdb" & ChrW(34)
 
' удалим старую версию на лок.компе
     st1 = "del /Q " & ChrW(34) & p & "docs.mdb" & ChrW(34)
 
' переименуем файл новой оболочки: docs2.mdb ->  docs.mdb
     st2 = "ren " & ChrW(34) & p & "docs2.mdb" & ChrW(34) & " docs.mdb"
 
 ' запускаем новую оболочку
    st3 = ChrW(34) & p & "docs.mdb" & ChrW(34) 
     
' справку просто копируем
     st4 = "copy /Y " & ChrW(34) & "W:\ACCESS\DB_Docs.hlp" & ChrW(34) & " " & ChrW(34) & p & "DB_Docs.hlp" & ChrW(34) 
     st5 = "copy /Y " & ChrW(34) & "W:\ACCESS\DB_Docs.cnt" & ChrW(34) & " " & ChrW(34) & p & "DB_Docs.cnt" & ChrW(34) 
     
     st = "cmd /C " & st00 & " && " & st01 & " && " & st0 & " && " & st1 & " && " & st2 & " && " & st4 & " && " & st5 & " && " & st3
 
' Запускаем все запланируемое
     Call Shell(st, 1)
 
 
        DoCmd.Quit
   
 End If
 
   db.TableDefs.Delete tdf1.Name
   db.Close
 
test_Exit = 1
 
End Function

Sub updateFile()
'AppPath - путь к 1
'RemotePath - путь к 2
'TemplatePath - путь к 3
'способ присвоения звачений переменным зависит от используемого приложения
Const sC0 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const sQ0 = "SELECT ver From Free WHERE ID=1"
Const sQ1 = "SELECT ver From Free0 WHERE ID_L=1"
Dim cn  As ADODB.Connection, i%, s$, sT$, d
s = RemotePath + "\docs.mdb"
Set cn = New ADODB.Connection
cn.ConnectionString = sC0 + s
cn.Open
If Not cn.Execute(sQ0).EOF Then i = cn.Execute(sQ0).Fields(0)
cn.Close
s = AppPath + "\docs.mdb"
'Set cn = New ADODB.Connection
cn.ConnectionString = sC0 + s
cn.Open
If cn.Execute(sQ1).EOF Then
ElseIf i > cn.Execute(sQ1).Fields(0) Then
    sT = TemplatePath + "\docs.mdb"
    Name s As AppPath + "\docs2.mdb" 'переименование
    FileCopy sT, s 'копирование
    d = Now
    d = DateAdd("s", 15, d) 'текущее время + 15 секунд смещения
    Do While d < Now 'задержка "если пользователь сильно шустрый"
        DoEvents
    Loop
    Kill AppPath + "\docs2.mdb" 'удаление
End If
If cn.State = 1 Then cn.Close
Set cn = Nothing
'команда запуска 1 ......
End Sub

 If (ver_on_server > ver_loc) Then
  Dim fso, txtfile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set txtfile = fso.CreateTextFile(p & "dbupdate.cmd", True)
  txtfile.WriteLine ("copy /Y " & ChrW(34) & "W:\ACCESS\docs0.mdb" & ChrW(34) & " " & ChrW(34) & p & "docs2.mdb" & ChrW(34))
  txtfile.WriteLine ("copy /Y " & ChrW(34) & "W:\ACCESS\DB_Docs.hlp" & ChrW(34) & " " & ChrW(34) & p & "DB_Docs.hlp" & ChrW(34))
  txtfile.WriteLine ("copy /Y " & ChrW(34) & "W:\ACCESS\DB_Docs.hlp" & ChrW(34) & " " & ChrW(34) & p & "DB_Docs.hlp" & ChrW(34))
  txtfile.WriteLine (Mid(p, 1, 2))
  txtfile.WriteLine ("cd " & p)
  txtfile.WriteLine (":m1")
  txtfile.WriteLine ("IF EXIST docs.ldb goto m1")
  txtfile.WriteLine ("del /Q docs.mdb")
  txtfile.WriteLine ("ren docs2.mdb docs.mdb")
  txtfile.WriteLine ("docs.mdb")
  txtfile.Close
     
  Call Shell(p & "dbupdate.cmd", 0)
  DoCmd.Quit
   
  test_Exit = 0
 End If