Overcome Infinite Loop Under Specific Condition

[OzTrekker]

Hi Fellow Excellers,

In the attached file if ComboBox2 (Event) is empty and the user attempts to close the file the "ComboBox2_LostFocus()" procedure initiates an infinite loop and Excel cannot be closed. For the life of me I cannot figure out how to prevent this from occurring. Any ideas?

[TMS]

Try putting this at the start of both LostFocus event handlers:

Please Login or Register  to view this content.

Regards, TMS

[OzTrekker]

Sorry that will not work.
I'm actually testing if ComboBox2 is empty when it loses focus and displaying a message box if it is.
I need some way of overriding the message box if the user is closing the file.

[mikerickson]

This issue doesn't apply to my Mac (no ActiveX) but I wonder, does the LostFocus event fire before or after the BeforeClose event?

If the order is BeforeClose then LostFocus the BeforeClose event could set a global boolean that can be tested by LostFocus.

[OzTrekker]

I though of that.
Unfortunately the sequence appears to be LostFocus then BeforeClose.

[TMS]

When you say, "that will not work", did you try it?

I put that code in, cleared both combo boxes and closed the workbook ... no issue with an infinite loop. Don't know how it fares in more normal circumstances.

[OzTrekker]

Yes I did.
Agreed that it does solve the infinite loop.
However it has an adverse effect upon normal operations.
Users are no longer warned to nominate an event prior to entering a result.

[TMS]

Don't really want to initiate an infinite loop to test it, but maybe you could create a "loop counter" ... probably needs to be a global or static variable. You then need to decide where best to reset it, increment it and test it. Presumably, the test would be, "if > 1, then exit sub"