Code doesn't execute right, won't break at Stop

[smandoli9]

  Private Sub btnMyButton_Click()
      Stop
      If MsgBox("Please, please", vbOKCancel) = vbOK Then
          Stop
      End If
      Call ProcedureOfMine
  End Sub

When I invoke this from the form, the MsgBox appears but the vbOK path does not cause the code to stop.

Stop will not stop the code in either place, and ProcedureofMine does not get called. Stop inserted elsewhere in modules also does not cause code to break.

Breakpoints in the code also do not break the running!

I decompiled, compacted and recompiled. Have I got some extra-evil corruption?

[purple]_______________________________
_{Never confuse movement with action -- E. Hemingway} [/purple]

 

[AlanJordan]

This code worked for me:

Sub test()
   Stop
      If MsgBox("Please, please", vbOKCancel) = vbOK Then
          Stop
      End If
      Debug.Print "hello"
End Sub

May I suggest this:
* From a module use the menu commands Tools > Options. Click on the General Tab.
* Select "Break on all errors."

Good luck.

Alan

 

[smandoli9]

Thanks Alan. 'Break on all errors' was already set.

Finally concluded it was one of those weirder corruptions. I made a fresh .mdb and imported all objects. This has seems to have solved the problem.

Post of inscrutable value?
If so, Red Flag it!

[purple]_______________________________
_{Never confuse movement with action -- E. Hemingway} [/purple]