Office中国论坛/Access中国论坛

标题: 局域网自动升级办法 [打印本页]

作者: jsan999 时间: 2009-8-23 11:31
标题: 局域网自动升级办法
本帖最后由 jsan999 于 2014-8-18 12:39 编辑

bandnew =DLookup("[版本]", "密码表", "[用户名]='系统管理员& '")

BANDold 自己设定

If BANDNEW < BANDold Or BANDNEW = BANDold Then
Me.Caption = "当前使用的是" & BANDold & "最新版！"
Else
Me.Caption = "发现" & BANDNEW & "新版本需要升级，请及时升级！"
If MsgBox("当前版本是" & BANDold & ",最新版本是" & BANDNEW & "，退出当前系统升级！" & "确定要升级吗？", vbYesNo, "提示信息") = vbYes Then
Dim stAppName12 As String
stAppName12 = CurrentProject.Path & "\update.exe"
Call Shell(stAppName12, 1)
Application.DoCmd.Quit (acQuitSaveNone)
End If
End If

作者: asklove 时间: 2009-8-23 19:23
学习一下

作者: lurong 时间: 2009-8-23 22:20
学习一下

作者: xiagood 时间: 2009-8-24 13:59
向楼主致谢。

作者: ui 时间: 2009-8-25 10:56
学习一下!

作者: taofbjty 时间: 2009-9-5 01:35
学习

作者: chenyingfengsx 时间: 2011-9-6 12:25
学习一下了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)