Updating selected feature/record using ArcObjects (VBA)?

Question

I would like to edit a selected feature/record via ArcMap vba, but I'm not having much luck with this code sample (see code below). I'm not getting an error, but the record selected is not updating.

Private Sub Update_Click()

Dim pMxDoc As IMxDocument

Dim pLayer As ILayer

Dim pInFtrLyr As IFeatureLayer

Dim pFtrSel As IFeatureSelection

Dim pFeatureClass As IFeatureClass

Dim pFields As IFields

'Dim ii As Integer

Dim pPoint As IPoint

'Dim pSegColl As ISegmentCollection

Dim pEnumLayer As IEnumLayer

Dim pMap As IMap

Set pMxDoc = ThisDocument

Set pMap = pMxDoc.FocusMap

Set pEnumLayer = pMap.Layers


Set pLayer = pEnumLayer.Next

Do Until pLayer Is Nothing

If pLayer.Name = "Copy of Wells_test" Then

Set pInFtrLyr = pLayer

End If

Set pLayer = pEnumLayer.Next

Loop


Set pFtrSel = pInFtrLyr


If pFtrSel.SelectionSet.Count = 0 Then

MsgBox "Please select one Well record", vbOKOnly

Exit Sub

ElseIf pFtrSel.SelectionSet.Count > 1 Then

MsgBox "Please select one Well record", vbOKOnly

Exit Sub

Else

If pFtrSel.SelectionSet.Count = 1 Then

Set pPoint = pInFtrLyr.FeatureClass.GetFeature(pFtrSel.Selectio nSet.IDs.Next).Shape

End If

End If


Set pFeatureClass = pInFtrLyr.FeatureClass


Dim pFSelection As IFeatureSelection

Set pFSelection = pInFtrLyr


Dim pFClass As IFeatureClass

Set pFClass = pInFtrLyr.FeatureClass


Dim pFCursor As IFeatureCursor

Set pFCursor = pFClass.Update(Nothing, True)


Dim pID As New esriSystem.UID

pID.value = "esriEditor.Editor"

Dim pEditor As IEditor

Set pEditor = Application.FindExtensionByCLSID(pID)

Dim pFeature As esriGeoDatabase.IFeature

Dim pEnumFeature As esriGeoDatabase.IEnumFeature

Set pEnumFeature = pEditor.EditSelection

Set pFeature = pEnumFeature.Next

Do Until pFeature Is Nothing

pFeature.value(pFeature.Fields.FindField("Type")) = "update"

Set pFeature = pEnumFeature.Next

Loop


End Sub

Answer 1

Try calling Store.

pFeature.value(pFeature.Fields.FindField("Type")) = "update"
pFeature.Store()
Set pFeature = pEnumFeature.Next

Are you in an edit session? Scroll down to best practices: http://help.arcgis.com/en/sdk/10.0/arcobjects_net/conceptualhelp/index.html#/d/00010000010s000000.htm

Answer 2

Yes that worked! Here is the updated code.

Private Sub Update_Click()

Dim pFeatureClass As IFeatureClass

Dim pFeatureLayer As IFeatureLayer

Dim pDoc As IMxDocument

Dim pMap As IMap

Set pDoc = ThisDocument

Dim pActiveView As IActiveView

Set pMap = pDoc.ActiveView.FocusMap

Dim pLayer As ILayer

Dim pEditor As IEditor

Dim pEnumFeature As IEnumFeature

Dim pEnumLayer As IEnumLayer

Dim pGeometry As IGeometry

Dim pID As New UID

Dim pFields As IFields

Dim pField As IField

Dim pFeature As IFeature

Dim pFeatureSelection As IFeatureSelection

Set pMap = pDoc.FocusMap

Set pEnumLayer = pMap.Layers


   Set pLayer = pEnumLayer.Next

    Do Until pLayer Is Nothing

      If pLayer.Name = "Copy of Wells_test" Then

        Set pFeatureLayer = pLayer

         End If

         Set pLayer = pEnumLayer.Next

    Loop


Set pFeatureSelection = pFeatureLayer

Set pFeatureClass = pFeatureLayer.FeatureClass




Set pFeatureClass = pFeatureLayer.FeatureClass

Set pFields = pFeatureClass.Fields

Dim strexpression As String

Dim pSelSet As ISelectionSet

 Set pSelSet = pFeatureSelection.SelectionSet

'select feature

 Dim pFCursor As IFeatureCursor

 pSelSet.Search Nothing, False, pFCursor

 Set pFeature = pFCursor.NextFeature

'Loop through the features using the cursor

strexpression = InputBox("Update Type Field")

Do While Not pFeature Is Nothing


pFeature.value(pFeature.Fields.FindField("Type")) = strexpression

pFeature.Store

Set pFeature = pFCursor.NextFeature

Loop


End Sub