'breakpoints will not work anywhere in this code and I mean anywhere
Private Sub Form_Timer()
Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim vsql As String
Dim newver As Variant
Dim curver As Variant
Set db = CurrentDb
vsql = "SELECT CurVer FROM tverCurrentVersion"
Set rs = db.OpenRecordset(vsql)
vsql = "SELECT Version FROM [tver-Version] WHERE [EntryID]=1;"
Set rs2 = db.OpenRecordset(vsql)
If (rs.EOF) Then
Exit Sub
End If
rs.MoveLast
newver = rs![curver] * 1000
curver = rs2![Version] * 1000
If (newver > curver) Then
If (vUpgradeNotice = False) Then
vUpgradeAvailable = True
If MsgBox("Upgrade the Client Information System?", 292, "Upgrade Available") <> vbYes Then
vUpgradeNotice = True
Exit Sub
Else
vUpgradeNotice = True
End If
Dim stAppName As String
rs2.Edit
rs2![Version] = rs![curver]
rs2.Update
stAppName = "S:\ClientUpdate\Update.exe"
Call Shell(stAppName, 1)
DoCmd.Quit acQuitSaveAll
End If
End If
rs.Close
rs2.Close
db.Close
End Sub