局域网自动升级办法

jsan999 · 发表于 2009-8-23 11:31:32

本帖最后由 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:33

学习一下

lurong · 发表于 2009-8-23 22:20:42

学习一下

xiagood · 发表于 2009-8-24 13:59:54

向楼主致谢。

ui · 发表于 2009-8-25 10:56:23

学习一下!

taofbjty · 发表于 2009-9-5 01:35:37

学习

chenyingfengsx · 发表于 2011-9-6 12:25:37

学习一下了！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 局域网自动升级办法

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)