topic Re: auto populate a field from another in ArcPad Questions

auto populate a field from another

markfarina — Wed, 10 Nov 2010 13:50:39 GMT

Hello,

What is the best way to auto-populate a text box with the value from a text box on the previous tab??? Is this possible?

Please see attached picture. In this example, the user would populate the bottom depth of a soil horizon and when he/she tabs over to the next page...the horizon top depth is auto populated from the bottom depth on the previous tab.

Thanks

APL from H1 tab:

<LABEL name="LABEL29.5" caption="Depths" x="50" y="3" width="35" height="12" tooltip=""/>
<EDIT name="H1TDEPTH" field="H1TDEPTH" x="77" y="2" width="18" height="12" border="true" tabstop="true" tooltip=""/>

<LABEL name="LABEL29" caption="-" x="95" y="3" width="10" height="12" tooltip=""/>

<LABEL name="LABEL29.7" caption="" x="1" y="30" width="45" height="12" tooltip=""/>
<EDIT name="H1BDEPTH" field="H1BDEPTH" x="102" y="2" width="18" height="12" border="true" tabstop="true" tooltip=""/>

Re: auto populate a field from another

StevenRehbaum — Wed, 10 Nov 2010 14:03:52 GMT

Munsell soil colors huh? I understand what you mean, but is it essential? I believe it's possible to do. Ahhh...Munsell colors take me back. Good luck.

Re: auto populate a field from another

RolfBroch — Thu, 11 Nov 2010 08:45:07 GMT

Usually a control can only get assigned values, when the page to which the control belongs, is active.

You therefore need to write a script that triggers with the page's onsetactive event. This script should fill the editboxes by reading the values from the previous page.

Rolf

Re: auto populate a field from another

IvanKautter — Thu, 11 Nov 2010 14:39:54 GMT

For the onsetactive event for page H2

Dim obj // creates object
Set obj = ThisEvent.Object.Parent // passes object reference for the parent of the page i.e the form
If Not obj.Mode = 1 Then //will not run code if form is pulled up by the identify tool
Dim pPageH1, pPageH2 // creates page variable
Set pPageH1 = ThisEvent.Layer.Forms("EDITFORM").Pages("H1") //sets object reference for page H1
Set pPageH2 = ThisEvent.Layer.Forms("EDITFORM").Pages("H2") //sets object reference for page H2

pPageH2.Controls("H2TDEPTH").Value = pPageH1.Controls("H1BDEPTH").Value //takes the value from one control and puts it in the other

End If

That's it.

Re: auto populate a field from another

markfarina — Mon, 15 Nov 2010 12:53:09 GMT

I am still learning this and am really stuggling with some of the basic concepts here...

How do I create an onsetactive event for page2 of my form?

I tried inserting....onsetactive="WriteToH2BDepth".... into line one of my form APL below and

Sub WriteToH2Depth 'script from Ivan" End Sub....into the VBS

This didn't work though...Am I on the right track?

Thanks

Here my APL for H2

<PAGE name="PAGE5" caption="H2" backgroundcolor="white">
<LABEL name="LABEL29" caption="H2" x="3" y="3" width="18" height="12" tooltip=""/>
<COMBOBOX name="H2" field="H2" x="16" y="2" width="30" height="12" border="true" tabstop="true" tooltip="" limittolist="false">
<LISTITEM value="Oa" text="Oa"/>
<LISTITEM value="Oe" text="Oe"/>
</COMBOBOX>
<LABEL name="LABEL29.5" caption="Depths" x="50" y="3" width="35" height="12" tooltip=""/>
<EDIT name="H2TDEPTH" field="H2TDEPTH" x="77" y="2" width="18" height="12" border="true" tabstop="true" tooltip=""/>
<LABEL name="LABEL29" caption="-" x="95" y="3" width="10" height="12" tooltip=""/>
<LABEL name="LABEL29.7" caption="" x="1" y="30" width="45" height="12" tooltip=""/>
<EDIT name="H2BDEPTH" field="H2BDEPTH" x="102" y="2" width="18" height="12" border="true" tabstop="true" tooltip=""/>
<LABEL name="LABEL28.5" caption="Texture" x="1" y="19" width="35" height="12" tooltip=""/>
<EDIT name="H2Texture" field="H2Texture" x="30" y="19" width="40" height="12" border="true" tabstop="true" tooltip=""/>
<LABEL name="LABEL29.6" caption="Color" x="1" y="77" width="35" height="12" tooltip=""/>
<EDIT name="H2COLOR" field="H2COLOR" x="21" y="77" width="40" height="12" border="true" tabstop="true" tooltip=""/><LABEL name="LABEL29.9" caption="Note" x="64" y="77" width="25" height="12" tooltip=""/>
<EDIT name="H2NOTE" field="H2NOTE" x="83" y="77" width="40" height="12" border="true" tabstop="true" tooltip=""/>
<BUTTON name="cmdAddB1" x="3" y="92" width="23" height="10" onclick="Call drawto10yr" caption="10YR " tabstop="true" alignment="center"/>....................................etc

Re: auto populate a field from another

RolfBroch — Fri, 19 Nov 2010 06:18:29 GMT

You should be on the rigth track.

If you create a Sub out of Ivan's code and add onsetactive="Call WriteToH2BDepth()" as in the following example

<PAGE page="page2" onsetactive="Call WriteToH2BDepth()" ...

ArcPad will execute the script when the page is set active.

I like to write "Call WriteToH2BDepth()" but ="WriteToH2BDepth" should work as well.

I did notice though, that there was no page2 or onsetactive in your apl for H2 below.

Rolf

Re: auto populate a field from another

markfarina — Wed, 01 Dec 2010 12:15:10 GMT

Thanks, I finally got the onsetactive to work!

My mistake was that I did not correctly define (page="page5") in the apl.

Original,

<PAGE name="PAGE5" caption="H2" backgroundcolor="white" onsetactive="Call Ivans code">

Corrected,

<PAGE name="PAGE5" caption="H2" page="page5" backgroundcolor="white" onsetactive="Call Ivans code">

Thanks to everyone.