MsgBox

[y481184]

To ensure valid data, I have created a message box that will appear if an incorrect value is inserted into one of my forms. However, after the msgbox appears, and I click OK, the focus does not return to the point of error. Instead, the second form procedes to be displayed. Any Ideas?

 

[WillR]

post your code

 

[y481184]

Case Else
MsgBox "You Have Entered an Invalid Vendor Code", vbCritical, "Invalid Vendor"
txtVenCode.SetFocus
End Select

 

[WillR]

sorry, but that snippet of your code does not really tell me why this is not working as you expect. Can you post the relevant section of code ... cheers

 

[TryingToLearn]

Case Else
MsgBox "You Have Entered an Invalid Vendor Code", vbCritical, "Invalid Vendor"
txtVenCode.SetFocus
End Select

As Will said, it's easier if you have more code posted, but for a guess I would:


Case Else
MsgBox "You Have Entered an Invalid Vendor Code", vbCritical, "Invalid Vendor"
txtVenCode.SetFocus
exit sub
End Select