Missing Code?

[forskare]

I have a field where I want the previous value to be automatically copied when I click the new record button. I placed this code on the button. It opens a new record but doesn't copy the previous value. What am I missing?

parent.new_record()
sys_send_keys("{CTRL-SHIFT-F}")

Thanks,

Kenn

[forskare]

RE: Missing Code?

I know I need to add the name of the field but that's what's stumping me, where and how to include it.

Thanks,

kenn

[Mick Magnuson]

RE: Missing Code?

Looks like it should work. If you rem out the send key line, can you manually do the ctrl-shift-f to get a the previous field? Reason I am asking is maybe if for some reason a query or filter on the form may be such that there is no previous record to post from. Just a thought.

Mick

p.s. - try doing a sys_send_keys("{ctrl-shift-f}{tab}") to see if it advances. If it does then you know the script is working at least, just not putting in a value for some reason.

[Mick Magnuson]

RE: Missing Code?

If the field in question is not at Tab stop 1, then yes you will have to set focus to the correct field.

objectname.activate() 'jump to the correct field
sys_send_keys("{ctrl-shift-f}") 'get the previous value
objectname.activate() 'go to tab first data entry field

something to that affect. I'm at home so I can't test it.

Keep in mind that the objectname is NOT the field name. It's the name of the field itself. Right click on the field and go to properties to see (or change) the object name.

Mick

[forskare]

RE: Missing Code?

Nope, dosen't work. Ctrl-Shift also doesn't work when the lines are remmed out. The only code that's being recognized is the first line, parent.new_record(). I'ts as if the rest doesn't exist, including adding {tab}

kenn

[Mick Magnuson]

RE: Missing Code?

Hi again Ken
Loaded A5V3 here at the house and got your result. I made a test .adb consisting of a main menu (menu.dbf)and entry form (test1.dbf) - I made a button on the menu with a button script:

f=form.load("test1") 'loads the entry form
f.activate() 'activates the form
f.show() 'shows the form
parentform.close()'closes the main menu
f.new_record()'begins enter mode
f:two.activate() 'jumps to objectname "two"
sys_send_keys("{ctrl-shift-f}")'enters previous value.

I couldn't get it to move off the field tho, except by using {tab} and {+tab}. Trying to activate() another field kind of blows up. Okay.. I'm done. Now Tom and Stan can give you the correct answer haha.

Mick

[forskare]

RE: Missing Code?

Well, It's almost working.

parent.new_record()
customer_id.activate()
sys_send_keys("{CTRL-SHIFT-F}{TAB}")

This works but instead of putting the previous value, it puts the next value. Since I have this set up in the field rules as auto incrementing, I've got to rethink this a bit.

Thanks,

ken

[Edward F. Schulz]

RE: Missing Code?

Ken,

Will a CANEDITFIELD event on the field in question that is being
incremented work to prevent the incrementing when CTRL-shift-F is
applied ?

efs

[forskare]

RE: Missing Code?

Ed,

Good Thought. I put: sys_send_keys("{CTRL-SHIFT-F}") on the table's field rule for the field. Alpha doesn't provide the CanEditFild event for the field when it's on a form, It has to be done in the table's field rules. Anyhow, it has no effect. I think your suggestion will work if the right combination of code is used between the event on the field rule and the button.

Thanks, I'll keep fiddling with it.

kenn

[Jim Chapman]

RE: Missing Code?

Hi Ken,

Quick and off the top of my head, the way to do this is with a short xbasic script that doesn't depend on sys_send_keys(). Something like:

t = table.open("tableName", file_ro_shared)
t.primary_index_put()
t.fetch_last()
vFieldvalue = t.yourFieldName
t.close()

The code assumes that you want the last record field value in record number order, if not place the correct argument in the *.primary_index_put() method.
This will give you the value in the variable vFieldvalue. Now do with it what you wish.

Good luck,
Jim

[Tom Patten]

RE: Missing Code?

Mick, Ken, Jim,

Q. What do the above three all have in common?

A. They will all be at the Mn User's Group meeting in Minneapolis on Feb 23.

Jim will be presenting information on Xbasic techniques. All are welcome.

Tom

[Jim Chapman]

RE: Missing Code?

Oops,

Like I said, off the top of my head. Should be:
t.index_primary_put()
not
t.primary_index_put()
T.primary_index_put() is a little know method of the dufus object, usually works with it's sister method; t.duct_tape()

..........

Jim