topic Why doesn't this work? in ArcPad Questions

Why doesn't this work?

DouglasBurn — Wed, 14 Apr 2010 17:00:43 GMT

I've created a button on an editform to delete the selected feature. Here's the code that is called when the button is clicked:

Sub DeleteSighting

Dim objSightingsLayer
Dim objSelectedLayer

Set objSelectedLayer = Map.SelectionLayer

if objSelectedLayer is Nothing then
msgBox("No feature is selected!")
exit Sub
else
Set objSightingsLayer = map.layers("Sightings")
objSightingsLayer.Forms("EditForm").Close
Application.ExecuteCommand("featuredelete")

end if

End Sub

When I click the button, the form closes, and the ArcPad dialog box asks me if I want to delete the selected feature. However, when I say "yes," the feature is not deleted, and it becomes unselected. If I select the feature and then use the "Delete Feature" command from the drawing tools menu, the feature is deleted as expected. Any idea why the "delete feature" command doesn't work from my edit form?

Why doesn't this work?

BillCrawford — Thu, 15 Apr 2010 07:41:16 GMT

I'm no coder but,

Should deleting come before closing in your code?

My thinking was

DouglasBurn — Thu, 15 Apr 2010 16:11:16 GMT

that the form should be closed first, before deleting the feature. But it was easy to move the ExecuteCommand statement in front of the form close statement. Unfortunately, that doesn't work, either.

Why doesn't this work?

BillCrawford — Thu, 15 Apr 2010 23:32:32 GMT

Any way to view the code for ESRI's "Delete Feature" button in Arcpad for any tips?

Why doesn't this work?

MattCooper — Fri, 16 Apr 2010 13:57:29 GMT

I think you might need to change your command name to "delete" instead of "featuredelete". It's strange that it asks you to confirm the delete command though since "featuredelete" doesn't appear in the list of valid commands in the ArcPad developers help.

Matt

Why doesn't this work?

RolfBroch — Thu, 29 Apr 2010 11:04:44 GMT

Since you have an editform open you must by definition have a selected object.

If you want to delete this object you can have a command button that sets a global boolean and then close the Editform and then in the onunload routine delete the object. The following subs contain the code (I have not tested it)

Sub cmdDeleteButtonClicked()
g_bDelete = True
Editform.Close False
End If

Sub EditForm_OnUnLoad()
If g_bDelete Then
Application.ExecuteCommand("Delete")
End If
g_bDelete = False
End Sub

Rolf