current field

[enstorms]

Am trying to determine which field currently has focus on a form in order to run a script. Have 2 fields, field1 and field2. If field1 has focus, then do this. If field2 has focus, do that. In testing, I put this in the on arrive event of field1.

name = :order_details.Active()

I get the "argument is incorrect data type. The "A_CURRENT_FIELD.NAME_GET()", evidently, can only be used in writing Field Rule scripts. Seems to be unrecognized in an xBasic script.
Will welcome any help.
Ernie

[Tbaker]

Re: current field

Ernie:

if you are trying to get the "name" of the object name of the field that has focus to place in a variable

name=formname.fieldname.object.name

This gives you the name of the field as it is described in the properties -object

if you are trying to get the name of the field as it shows in the structure of the table

 name=formname.fieldname.entry.name

This will give you the name of the field along with the table ie table->fieldname


I hope I am reading your post right.

if your script should run when the field has focus (at the time it gets focus) then that is what the OnArrive event is for.

I am somewhat confused as to what you are trying to accomplish.




Tom Baker

[enstorms]

Re: current field

Tom,
Thanks for the quick response. Here's what I'm trying to do. Have 2 date fields that I'm adding a feature for incrementing the date by one. Have this in the OnKey event of the form:

if a_user.key.value = "+" then
    parentform:plusbtn.Push()
else if a_user.key.value = "-"
	parentform:minusbtn.Push()   
end if

Had this code because I only had one date field on the form. Now that I've added another date field, I add two more buttons, plusbtn2 & minusbtn2. So if the user is in date field 1, do the above code. If in date field 2, same code except I'll change the button obj. names. (IF...THEN..ELSE..).
Hope this clears it up.
Ernie

[martinwcole]

Re: current field

V9-3163
here is an example to try, although I didn't use your names, but should be obvious what to replace

if a_user.key.value = "+" 
  if a_user.key.event="down"
    if parentform.active()="xxx"
         parentform:plusbtN.Push()
    elseif parentform.active()="yyy"
         parentform:plusbtM.Push()
    end if
  end if 
end if

[enstorms]

Re: current field

Martin,
I am assuming the "xxx" and "yyy" are my field object names??? I tried that, but wanted to make sure that was the correct syntax by doing a debug thru the code. Kept getting the argument error, so the reason for my post. I will try what you've got there. Thanks.
Ernie
BTW, I have a son that lives just a little NE of Quinlan.

[Tbaker]

Re: current field

Ernie

Here is a zip file.

formt31 shows a name field (does nothing) and two date fields.

Go to date hired and then push plus sign it will increment the value by one - pushing the minus sign will decrease the value by 1.

Go to date left - same thing

Look at the onarrive event for those two fields

The look at the forms onkey event.

Tom Baker

[martinwcole]

Re: current field

I know why you get the error - most likely - if they are in say a date field when the push the "+" key that may be it

here is another example, with amended code, that worked when I enter "+" in a date field - note the a_user.key.handled=.t.

if a_user.key.value = "+" 
  if a_user.key.event="down"
    if parentform.active()="datein"
     a_user.key.handled=.t.
     msgbox("","ok")
     end 
    end if
  end if 
end if

PS: when I was going to college used to live in Arbala and Sulphur Springs - had a lot of family over there - some had dairy farms (ugh - worst job in the world)

[enstorms]

Re: current field

Got it to work. Here's my final code.

if a_user.key.value = "+" then
	if a_user.key.event = "down"
		if parentform.Active() = "order_date"
			parentform:order_date.text = dtoc(ctod(parentform:order_date.text)+1)
		elseif parentform.Active() = "dt_paid"
			parentform:dt_paid.text = dtoc(ctod(parentform:dt_paid.text)+1)
		end if
	end if		    
elseif a_user.key.value = "-"
	if a_user.key.event = "down"
		if parentform.Active() = "order_date"
			parentform:order_date.text = dtoc(ctod(parentform:order_date.text)-1)
		elseif parentform.Active() = "dt_paid"
			parentform:dt_paid.text = dtoc(ctod(parentform:dt_paid.text)-1)
		end if
	end if		    
end if

Tom, thanks for taking the time to create your little zip file for me. There's always more than one way to skin a cat. I looked all over the help files but never ran across your use of the ".object.name". Glad to learn another way of doing this.
I just removed the buttons. Had put them there because I couldn't get my code to work just from the OnKey event. Martin's example made me realize I needed the "...event = "down" in there to make it work. Thanks, Martin.
Really appreciate you guys taking the time to help out a struggling newbie.
Ernie

[G Gabriel]

Re: current field

[ATTACH]17979[/ATTACH]

[enstorms]

Re: current field

G,
Where's the code behind what it shows?
Ernie

[asawyer13]

Re: current field

G,
Were you willing to send the code??
Alan

[asawyer13]

Re: current field

I believe G Gabriel is/was located in the New Orleans area, so he may be out of the forum for a while. Hopefully all is well with him.

I also really liked his video on the hotkeys, and am wanting very badly to put something similar in my application.

If anyone has any good scripts or is currently using something similar and is willing to share, I would be appreciated.

I think in the past that onkeys could really slow down entry, but I don't know if that's still the case in V9.

Alan

[Tom Cone Jr]

Re: current field

Alan,

Once upon a time G felt that others in the forum were taking credit for his solutions and ideas. G then stopped showing his code in examples he prepared for the message board. Maybe he'll have a change of heart, maybe not. -- tom

[asawyer13]

Re: current field

That's too bad. I hope he has a change of heart.

I just want to use it to make my apps better. I would never tell anyone that it was mine. I would leave his name in the code, and forever know it was his.

I would even pay him something for it, if it looks like it would work as well as what the video shows. I've been programming for over 32 years, so I understand where he's coming from, but from a making my applications better, I sure could use it. It would save me time from reinventing the wheel.

Alan

[G Gabriel]

Re: current field

Alan:
Sorry for the late response, have been very busy lately. I will try and dig that zip file and send you the code. It is not necessary to credit it to me. Quite frankly I don't care if you credit it to Micky Mouse or even to that GIECO lizard.. in fact, I wish you do not credit it to me. Contrary to what Tom said, that has not been a point of contention but I do not wish to visit these issues here. And as to paying me for the code: thanks, no need for that. Donate the money to someone who needs it.