auto update of shape area

ChangLiu — Thu, 20 May 2010 23:13:25 GMT

Hi all
I'm trying to create a layer definition for a shapefile. when a new shape is created and the editform opens, iwant the area to be automatically placed into an edit control.

i have put the following scripts into the OnLoad event, but when i run arcpad to test the code i get the following error message: "Microsoft VBScript compilation error, Syntax error, [line 1 column 1] Source Text Unavaliable"

what can i do to make it running... tks!!!

Sub UpdateChgCode(pCode)
'Set the value of the last field to pCode
If Map.SelectionLayer Is Nothing Then
Exit Sub
End If

Dim pRS
Set pRS = Map.SelectionLayer.Records
pRS.Bookmark = Map.SelectionBookmark
pRS.Fields(pRS.Fields.Count).Value = pCode

'Get the polygons area
Dim pPoly
Set pPoly = pRs.Fields.Shape
pRs.Fields("Shape_area").Value = pPoly.Area

'Get the edit control and set its value to the area of the new polygon
Dim pAreaControl, pAreaValue
Set pAreaControl = Layers("Historic Foundation").Forms("EditForm").Pages("attributePage").Controls("txtSHAPE_Area")

pAreaControl.Value = pPoly.Area

pRS.Update
Set pRS = Nothing
End Sub

topic auto update of shape area in ArcPad Questions

auto update of shape area