General information
Category:
Coding, syntax & commands
Title:
KeyPress Enter Loop
Wanted to add logic to the KeyPress of a textbox to perform some code that is part of a cmd.click. It is not working as I would like. Outside of the developer it is in a loop and eventually I have to hard restart my machine because it keeps opening new windows of IE. If I go into the debugger on the assert .f. it works fine.
KEYPRESS
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13 and nShiftAltCtrl = 0
assert .f.
THIS.Parent.Cmd_search_pa.click()
Keyboard "{ENTER}"
NODEFAULT
ENDIF
CMD_SEARCH.PA.CLICK
oIE = CreateObject("InternetExplorer.Application")
save_number = alltrim(left(m.pst1,at(' ',m.pst1)))
save_name = alltrim(upper(right(m.pst1,len(m.pst1)-at(' ',m.pst1))))
save_name = alltrim(strTRAN(save_name, ' ', '%20'))
URL = 'http://www.scpafl.org/pls/web/re_web.show_pads?pad='+save_name+'&pad_num='+save_number
oIE.Navigate(URL)
oIE.Visible = .t.
Thanks
Brenda
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only