Visual Basic Editor won't stop calls

AngelicGuardian

Village Idiot
Local time
Today, 21:38
Joined
Apr 7, 2003
Messages
43
When I put a stop in a program MS VB Editor will not stop the Script it just keeps running is there a fix for this??
 
Can you post your code (or a fragment of it) and indicate where you put your stop (I assume you mean a breakpoint?).
 
'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
 
Last edited:
Ahhh Ha It won't even display errors.... So how do I change the Runtime Debugger????? it needs to be the msvba debugger
 

Users who are viewing this thread

Back
Top Bottom