1. For the unbound text box qStaffNo on my form, if there's error after data validation, I've set the focus back to the unbound text box ready for user to re-enter the data; my SetFocus doesn't work, after the pop-up message is shown on the screen, the cursor has moved to the next unbounded text box instead of staying at the qStaffNo box. Why is this happening and how can I fix it?

2. I want to temporary remember the data entered in the qStaffNo as a variable to be used after the user finished entering data into the next unbound text box qOrderNo on the screen. Instead of declaring it as Dim, I tried declaring currStaffNo as Public, thinking that I'll be able to use the value later, but it doesn't work, I got an "invalid attribute in Sub or Function error", is that because my Sub is Private? What is the proper way to declare this variable so that I can use it later?

Below is my code. Thank you in advance for any suggestions.