Access數(shù)據(jù)庫(kù)啟動(dòng)時(shí)檢查服務(wù)器有否最新版，然后再做一個(gè)程序來(lái)自動(dòng)更新

Access數(shù)據(jù)庫(kù)啟動(dòng)時(shí)檢查服務(wù)器有否最新版，然后再做一個(gè)程序來(lái)自動(dòng)更新

思路：

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

2.對(duì)比版本信息，如發(fā)現(xiàn)有新版本

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

4.如更新，則用程序打開(kāi)另一個(gè) 更新專(zhuān)用的mde文件來(lái)更新

5.更新完成后可以考慮再打開(kāi)主程序

主程序切換到更新程序的一些關(guān)鍵的代碼：
MsgBox "客戶(hù)管理軟件檢測(cè)到新版本，升級(jí)系統(tǒng)能夠保證系統(tǒng)的穩(wěn)定及能夠使用新的功能！" & vbCrLf & "建議您馬上升級(jí)，現(xiàn)在自動(dòng)升級(jí)！", vbQuestion + vbYes, "天鳴電腦科技"
   ' If MsgBox("客戶(hù)管理軟件檢測(cè)到新版本，升級(jí)系統(tǒng)能夠保證系統(tǒng)的穩(wěn)定及能夠使用新的功能！" & vbCrLf & "建議您馬上升級(jí)，現(xiàn)在自動(dòng)升級(jí)！", 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