office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access数据库启动时检查服务器有否最新版,然后再做一个程序来自动更新

2017-09-16 09:14:00
zstmtony
原创
6288


Access数据库启动时检查服务器有否最新版,然后再做一个程序来自动更新

思路:

1.按照以前讲的从服务器或从本地INI文件读取版本信息

2.对比版本信息,如发现有新版本

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

4.如更新,则用程序打开另一个 更新专用的mde文件来更新

5.更新完成后可以考虑再打开主程序


主程序切换到更新程序的一些关键的代码:
MsgBox "客户管理软件检测到新版本,升级系统能够保证系统的稳定及能够使用新的功能!" & vbCrLf & "建议您马上升级,现在自动升级!", vbQuestion + vbYes, "天鸣电脑科技"
   ' If MsgBox("客户管理软件检测到新版本,升级系统能够保证系统的稳定及能够使用新的功能!" & vbCrLf & "建议您马上升级,现在自动升级!", 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

分享