ON_KEY on a Form containing a Sub Form

[Daniel Weiss]

If I�m correct, when using the ON_KEY events on a Form that contains a Sub form, the �topparent. Or parentform.� Can not be used, for example:

if a_user.key.value = "{F2}".and. a_user.key.event = "down"
topparent.new_record()
end if

OR

if a_user.key.value = "{F10}".and. a_user.key.event = "down"
parentform.commit()
end if

Also the �sys_send_keys� Can not be used, for example:

(used for Lookup)
if a_user.key.value = "{F5}" .and. a_user.key.event = "down"
sys_send_keys("{Alt-Down}")
end if

OR

(used to drop down the Find in a custum menu)
if a_user.key.value = "{F7}" .and. a_user.key.event = "down"
sys_send_keys("{Alt-F}")
end if

The above KEYS work on a Form not containing a Sub Form, I guess this is an �Addresses� problem, dose anyone have a solution to this without using �Absolute addressing�?

Thank You
Dan

[Daniel Weiss]

RE: ON_KEY on a Form containing a Sub Form

I was incorrect about the Addresses problem, even �Absolute addressing� wont work, actually it seems like the ON_KEY event wont work at all on a From with a Sub Form on it.
This cases me a problem because I showed my client an App that I designed for an other customer with all the following ON_KEY events, which got him vary excited by the fact that they wont have to use the mouse so much. His Form has to have a Sub Form on it I can�t do away without it.
Any help would be greatly appreciated.

My ON_KEY events

if left(a_user.key.value,1)"{"
cancel()
end
end if
dim mode as c
mode = parentform.mode_get()
'enter
if a_user.key.value = "{F2}".and. a_user.key.event = "down"
parentform.new_record()
end if
'lookup
if a_user.key.value = "{F5}" .and. a_user.key.event = "down"
sys_send_keys("{Alt-Down}")
end if
'find
if a_user.key.value = "{F7}" .and. a_user.key.event = "down"
sys_send_keys("{Alt-F}")
end if
'save
if a_user.key.value = "{F10}".and. a_user.key.event = "down"
parentform.commit()
end if
'cancel
if a_user.key.value = "{F8}".and. a_user.key.event = "down"
code=UI_YES_NO+UI_QUESTION_SYMBOL+UI_FIRST_BUTTON_DEFAULT
note = "ARE YOU SURE YOU WANT TO LOSE YOUR CHANGES?"
if mode = "ENTER" .or. mode = "CHANGE"
response = ui_msg_box("EZ Link",note, code)
if response = UI_YES_SELECTED
parentform.cancel()
elseif response = UI_NO_SELECTED
cancel()
end if
end if
end if
'close
if a_user.key.value = "{F9}" .and. a_user.key.event = "down"
code=UI_YES_NO_CANCEL+UI_QUESTION_SYMBOL+UI_FIRST_BUTTON_DEFAULT
note = "SAVE CHANGES BEFORE LEAVING?"
if mode = "ENTER" .or. mode = "CHANGE"
response = ui_msg_box("EZ Link",note, code)
if response = UI_YES_SELECTED
parentform.commit()
parentform.close()
elseif response = UI_NO_SELECTED
parentform.cancel()
parentform.close()
else
cancel()
end if
else
parentform.close()
end if
end if
'Esc key
if a_user.key.value = "{ESC}".and. a_user.key.event = "down"
code=UI_YES_NO+UI_QUESTION_SYMBOL+UI_FIRST_BUTTON_DEFAULT
note = "ARE YOU SURE YOU WANT TO LOSE YOUR CHANGES?"
if mode = "ENTER" .or. mode = "CHANGE"
response = ui_msg_box("EZ Link",note, code)

if response = UI_YES_SELECTED
topparent.cancel()
elseif response = UI_NO_SELECTED
parentform.commit()
end if
end if
end if
'print Key
print:
if a_user.key.value = "{F12}".and. a_user.key.event = "down"
PARENTFORM.commit()
Invoice_No.Activate()
tabno = Tabbed1.Tab_Get()
if tabno = 2
Tabbed1.Tab_Set(1)
end if


current_record = alltrim(str(recno(),10,0))
:Report.print("INVOICE","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
parentform.new_record()
end if
'Change tabs
if a_user.key.value = "{F3}".and. a_user.key.event = "down"
tabno = Tabbed1.Tab_Get()
if tabno = 1
Tabbed1.Tab_Set(2)
Browse1:Item_Code.Activate()
elseif tabno = 2
Tabbed1.Tab_Set(1)
end if
end if
end

Thanks
Dan

[Peter.Wayne]

RE: ON_KEY on a Form containing a Sub Form

the onkey event works for the parent form. the onkey event does not work for the subform. where have you placed the onkey script?

[Daniel Weiss]

RE: ON_KEY on a Form containing a Sub Form

Thanks Dr. Wayne
I placed the onkey script on the onkey events of the parent form
Dan Weiss

[Daniel Weiss]

RE: ON_KEY on a Form containing a Sub Form

Dr. Wayne
I double-checked it again; if I remove the Sub Form from the Parent form all the ONKEY,s from my above script work fine. but with the sub form on it none work at all. I just need them to work for the Parent form
Thank You
Dan Weiss

[Daniel Weiss]

RE: ON_KEY on a Form containing a Sub Form

Dr. Wayne
Please try a test to see if the ONKEY event could work on a form that has a sub form on it.
I tried to add a sub form to the invoice entry of the invoice sample that is shipped with alpha5, and I put this script on the ONKEY event. It did not work at all, but without the sub form it works fine.

If a_user.key.value = "{F2}".and. a_user.key.event = "down"
topparent.new_record()
end if

Your help would be greatly appreciated, because this is causes me a problem with one of big clients.

Thank you
Dan Weiss

[Willard]

RE: ON_KEY on a Form containing a Sub Form

Daniel, just tried this
if a_user.key.value = "{F2}".and. a_user.key.event = "down"
parentform.new_record()
end if

and it works..... be sure you do not have an ontimer event firing. The ontimer events seem to cancel your keystrokes. Jack

[Peter.Wayne]

RE: ON_KEY on a Form containing a Sub Form

Dan,
I believe you are right - the OnKey events don't fire for forms iwith subforms. I did a search on the message board - this issue came up last year - for some reason, I thought it was resolved, but apparently it never was.

[Daniel Weiss]

RE: ON_KEY on a Form containing a Sub Form

Dr Wayne

I think I found a solution for the ONKEY event on forms with a sub form on it, if you also put the same ONKEY event script on sub forms onkey event, most of the events work fine for both forms. In fact all of the following events fire correctly, the only one that causes a confusion when the cursor is on the sub form, is the �.new_record()� event the parent form goes into entry mode while the sub form stays in entry or change mode. The solution for this problem is to Activate first the field on the parent form before putting it into entry mode. Then it works fine.
The following is my script for the ONKEY event, which I put on both forms (parent & sub) they all seem to work fine.

if left(a_user.key.value,1)"{"
cancel()
end
end if
dim mode as c
mode = parentform.mode_get()
'enter
if a_user.key.value = "{F2}".and. a_user.key.event = "down"
Entry_Type.Activate()
Topparent.new_record()
end if
'lookup
if a_user.key.value = "{F5}" .and. a_user.key.event = "down"
sys_send_keys("{Alt-Down}")
end if
'find
if a_user.key.value = "{F7}" .and. a_user.key.event = "down"
sys_send_keys("{Alt-F}")
end if
'save
if a_user.key.value = "{F10}".and. a_user.key.event = "down"
parentform.commit()
end if
'cancel
if a_user.key.value = "{F8}".and. a_user.key.event = "down"
code=UI_YES_NO+UI_QUESTION_SYMBOL+UI_FIRST_BUTTON_DEFAULT
note = "ARE YOU SURE YOU WANT TO LOSE YOUR CHANGES?"
if mode = "ENTER" .or. mode = "CHANGE"
response = ui_msg_box("EZ Link",note, code)
if response = UI_YES_SELECTED
parentform.cancel()
elseif response = UI_NO_SELECTED
cancel()
end if
end if
end if
'close
if a_user.key.value = "{F9}" .and. a_user.key.event = "down"
code=UI_YES_NO_CANCEL+UI_QUESTION_SYMBOL+UI_FIRST_BUTTON_DEFAULT
note = "SAVE CHANGES BEFORE LEAVING?"
if mode = "ENTER" .or. mode = "CHANGE"
response = ui_msg_box("EZ Link",note, code)
if response = UI_YES_SELECTED
parentform.commit()
parentform.close()
elseif response = UI_NO_SELECTED
parentform.cancel()
parentform.close()
else
cancel()
end if
else
parentform.close()
end if
end if
'Esc key
if a_user.key.value = "{ESC}".and. a_user.key.event = "down"
code=UI_YES_NO+UI_QUESTION_SYMBOL+UI_FIRST_BUTTON_DEFAULT
note = "ARE YOU SURE YOU WANT TO LOSE YOUR CHANGES?"
if mode = "ENTER" .or. mode = "CHANGE"
response = ui_msg_box("EZ Link",note, code)
if response = UI_YES_SELECTED
topparent.cancel()
elseif response = UI_NO_SELECTED
parentform.commit()
end if
end if
end if
'print Key
print:
if a_user.key.value = "{F12}".and. a_user.key.event = "down"
sys_send_keys("{Alt-P}")
end if
'Change tabs
if a_user.key.value = "{F3}".and. a_user.key.event = "down"
tabno = Tabbed1.Tab_Get()
if tabno = 1
Tabbed1.Tab_Set(2)
Browse1:Item_Code.Activate()
elseif tabno = 2
Tabbed1.Tab_Set(1)
end if
end if
end

Good Luck
Dan Weiss