Help on Error message when no results found

[chrisandsally]

Hi

I have some code that searches a few columns and if a match found puts the results in a list box. All works as expected if the search matches data, however if it does not match it throws up a Runtime 1004 error message. How can I put a message box up saying no results and on pressing ok clears the form (Sub Clear_form)

This is the line that Debug brings up the error on.

Please Login or Register  to view this content.

Attached is the workbook

TEST.xlsm

Thanks

[sktneer]

You may try something like this.....

Please Login or Register  to view this content.

[chrisandsally]

Dear sktneer

Thank you that works a treat except I can't get the focus back to textbox1 after acknowledgment of error message. I normally use.

TextBox1.SetFocus

Any Ideas? I know I can use the mouse but ideally want to start the form again with blank with all reset.

[skywriter]

What about putting the code in the "Show" button click event?

Please Login or Register  to view this content.

[chrisandsally]

Also, great thank you.

[skywriter]

Thanks for the rep. points.