Access數(shù)據(jù)庫啟動時(shí)檢查服務(wù)器有否最新版，然後再做一箇程序來自動更新

Access數(shù)據(jù)庫啟動時(shí)檢查服務(wù)器有否最新版，然後再做一箇程序來自動更新

思路：

1.按照以前講的從服務(wù)器或從本地INI文件讀取版本信息

2.對比版本信息，如髮現(xiàn)有新版本

3.就提示是否更新新版本

4.如更新，則用程序打開另一箇 更新專用的mde文件來更新

5.更新完成後可以考慮再打開主程序

主程序切換到更新程序的一些關(guān)鍵的代碼：
MsgBox "客戶管理軟件檢測到新版本，陞級繫統(tǒng)能夠保證繫統(tǒng)的穩(wěn)定及能夠使用新的功能！" & vbCrLf & "建議您馬上陞級，現(xiàn)在自動陞級！", vbQuestion + vbYes, "天鳴電腦科技"
   ' If MsgBox("客戶管理軟件檢測到新版本，陞級繫統(tǒng)能夠保證繫統(tǒng)的穩(wěn)定及能夠使用新的功能！" & vbCrLf & "建議您馬上陞級，現(xiàn)在自動陞級！", vbQuestion + vbYes, "天鳴電腦科技") = vbYes Then
        
        'taOpenMDB (CurrentProject.Path & "\AutoUpdate.mde")
        
       Application.FollowHyperlink (CurrentProject.Path & "\AutoUpdate.mde"), , True
       DoCmd.Close acForm, Me.Name
       DoCmd.Quit acQuitSaveNone
   ' End If
  End If