Programming automating tool in VBscipt in ArcPad

KrisDe_Coster — Mon, 19 Mar 2012 12:06:52 GMT

Hello,

I am working on an automating tool for ArcPad for inventory issues on our mobile GIS machine (Trimble GeoXH - Geoexplorer 2008 series - Windows mobile 6.1 and Arcdap 10.0.3) in VBscript. Short description of what the tool is supposed to do:
We have a point shapefile in Arcpad. Everytime when we manually add a point, it automaticaly counts the new ID by clicking on a button in the toolbar. The new ID is the last ID + 1. I succeeded already in looping through the attributes, finding the last ID and calculating a new ID. 😮 However, I can't add the new calculated ID for the added point in the attribute table :mad: ... It's like I can't open the recordset in edit mode.

Below you find my source code.

Anybody kows what I'm doing wrong? Thanks for helping me!
Kris

My Sourcecode:
Sub Test
Dim objDBF, strLaatstePaalID, NewPaalNR, NewPaalID, Nummer, PaalCode
Numbre = 0
Set objLyr = Map.Layers("Palen")
Set objDBF = objLyr.Records
'Look for record with the highest ID
'ID is text format like 'P_00450'
objDBF.MoveFirst
Do Until objDBF.EOF
PaalCode = objDBF.Fields("PAAL_ID").Value
If PaalCode <> "" Then 'the new added point (which is the last) has no value in the ID
   If Int(Right(PaalCode,(Len(PaalCode)-2)))>Numbre Then
    'Make an integer of the text code
    Numbre = Int(Right(PaalCode,(Len(PaalCode)-2)))
   End If
End If
objDBF.MoveNext
Loop

NewPaalNR = Numbre + 1

'Maak een nieuw text ID with the new numbre
    If NewPaalNR < 10 Then
        NewPaalID = "P_0000" & CStr(NewPaalNR)

    ElseIf NewPaalNR < 100 Then
        NewPaalID = "P_000" & CStr(NewPaalNR)

    ElseIf NewPaalNR < 1000 Then
        NewPaalID = "P_00" & CStr(NewPaalNR)

    ElseIf NewPaalNR < 10000 Then
        NewPaalID = "P_0" & CStr(NewPaalNR)

    Else
        NewPaalID = "P_" & CStr(NewPaalNR)

End If

MsgBox ("New Id: " & NewPaalID)

'go to the new added point
objDBF.MoveLast

if objDBF.Fields("PAAL_ID").Value ="" Then
'add the new value
objDBF.Fields("PAAL_ID").Value = NewPaalID
objDBF.Update
MsgBox("Paal_ID " & NewPaalID & " added in Palen.shp")
Else
MsgBox("No empty feature added")
End If

Set objDBF = Nothing
End Sub

Re: Programming automating tool in VBscipt in ArcPad

EricHajek1 — Wed, 21 Mar 2012 18:23:30 GMT

What event are you calling this Sub from? It may not let you alter the value if it's during the OnUnload event of the form. If that's where it is being called, you might try the OnOK event.

Also, when I looked up the Layer object in the "Customizing ArcPad" help, and then clicked on the Records Property, it indicates that it's read only, so it may not be possible to use the Records object to do this. It is possible to programmatically update attributes outside of the edit form, but I haven't done this for shapefiles (have done it with SQL for AXF files) so I'm not sure of the exact methods used. You might try doing this while the Edit Form is displayed and just having a text box whose value you update with the code. Then the value will get saved along with the rest of the form's values. If it were me I'd go this route.

Hope this helps,
Eric

topic Re: Programming automating tool in VBscipt in ArcPad in ArcPad Questions

Programming automating tool in VBscipt in ArcPad

Re: Programming automating tool in VBscipt in ArcPad