局域网自动升级办法

jsan999

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