Progression 76400a.
I have a customer that wants to not allow misc vendors, so we deleted vendor *99999999999, as required. The to make sure this was never added again, we wrote some very simple Flex code on the vendor maintenance screen to test for the asterisk in the first character of the vendor number field to create a message box "misc vendors not allowed".
The next desired step is to send an escape to the screen so that the add function is aborted and focus is set back to the vendor number field, and the field would be blanked out. However I am struggling with the Sendkeys function. Here is my code:
Private Sub Name_GotFocus()
If Left(VendorNo.Text, 1) = "*" Then MsgBox ("Misc Vendors Not Allowed")
SendKeys ({Esc})
End Sub
My sendkeys function is not working at all. Can anyone shed some light on this?
Software Sales, Training, Implementation and Support for Macola, eSynergy, and Crystal Reports
"If you have a big enough dictionary, just about everything is a word"
--Dave Barry
I have a customer that wants to not allow misc vendors, so we deleted vendor *99999999999, as required. The to make sure this was never added again, we wrote some very simple Flex code on the vendor maintenance screen to test for the asterisk in the first character of the vendor number field to create a message box "misc vendors not allowed".
The next desired step is to send an escape to the screen so that the add function is aborted and focus is set back to the vendor number field, and the field would be blanked out. However I am struggling with the Sendkeys function. Here is my code:
Private Sub Name_GotFocus()
If Left(VendorNo.Text, 1) = "*" Then MsgBox ("Misc Vendors Not Allowed")
SendKeys ({Esc})
End Sub
My sendkeys function is not working at all. Can anyone shed some light on this?
Software Sales, Training, Implementation and Support for Macola, eSynergy, and Crystal Reports
"If you have a big enough dictionary, just about everything is a word"
--Dave Barry