Return Variable Function

MitchDavis — Wed, 31 Jul 2013 21:15:56 GMT

Hey all thanks for your time!

I have this script created for auto incrementing my TREE_ID field in my table (TREE_ID = control). Long story short the script runs
from what i can tell and may even increment the first one but then stops. No errors either. The first point i put down starts with 2 but then it does not increment from there. Do i need to do anything with the strFieldName or intMax to make it work correctly?

Note: fairly new to working with script.

IF YOU SEE ANYTHING OUT OF PLACE LET ME KNOW! 😛

'InitializeForm
Sub InitializeForm
Dim objEFControls, objEditForm
Set objEditForm = ThisEvent.Object
Set objEFControls = objEditForm.Pages("Page1").Controls
If objEditForm.Mode = 3 Then
    Dim objTreeInitRS
    Set objTreeInitRS = Layer.Records
    objEFControls("TREE_ID").Value = ReturnNextID (objTreeInitRS, "TreeInit")
End If
Set objTreeInitRS = nothing
Set objEFControls = nothing
Set objEditForm = nothing
End Sub
'ReturnNextID
Function ReturnNextID (objRS, TREE_ID)
Dim intMax
objRS.MoveFirst
intMax = 1
Dim intCurrVal
While Not objRS.EOF
    intCurrVal = Clng(objRS.Fields(TREE_ID).Value)
    If (intCurrVal > intMax) And (intCurrVal < 5000) Then
      intMax = intCurrVal
    End If
    objRS.MoveNext
Wend
ReturnNextID = intMax + 1
Set intMax = nothing
Set intCurrVal = nothing
End Function

Any help would be appreciated.

'supplement info Layer=TreeInit, Form= EditForm, Page= Page1, Control/field name = TREE_ID

Re: Return Variable Function

JamesMitchell — Tue, 03 Dec 2013 13:29:31 GMT

Hello,

Did you manage to get this to work as i am having the same issue after upgraing to ArcPad 10.2.

Thanks

topic Re: Return Variable Function in ArcPad Questions

Return Variable Function

Re: Return Variable Function