I want to use a input box to start entering addresses to parcels. I want to first select the parcels then click on a command button that will populate the ST_Number field
I got the change part to work so I put it in a seperated function that is called. I need to pass the value in the OBJECTID field of the selected feature to the change function. I'm fairly new to VBA and am stuck any help is appreciated.
Private Sub UIButtonControl1_Click()
Dim mAddress As Integer
Dim pLayer As IFeatureLayer
Dim pClass As IFeatureClass
Dim pMap As IMap
Dim pDoc As IMxDocument
Dim pFields As IFields
Dim pField As IField
Dim pFeat As IFeature
Dim pRowIdObj As IRowIdentifyObject
Dim pIdObj As IIdentifyObj
Dim i As Integer
Set pDoc = Application.Document
Set pMap = pDoc.FocusMap
Set pLayer = pMap.Layer(2)
Set pClass = pLayer.FeatureClass
Set pFields = pClass.Fields
Set pRowIdObj = pIdObj
Set pFeat = pRowIdObj.Row
Set pFields = pFeat.Fields
mAddress = InputBox("Enter First Address")
'**********
Dim i As Integer
For i = 0 To pFields.FieldCount - 1
Set pField = pFields.Field(i)
mChange (pField)
mAddress = mAddress + 2
Next i
End Sub
Public Sub mChange(mRec As Integer)
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim pFLayer As IFeatureLayer
Dim pFeature As IFeature
Dim mAddress As Integer
Set pDoc = Application.Document
Set pMap = pDoc.FocusMap
Set pFLayer = pMap.Layer(2)
Set pFeature = pFLayer.FeatureClass.GetFeature(mRec)
mAddress = InputBox("Enter Address", "Ghana Address")
If mAddress < 1 Then
Exit Sub
End If
pFeature.Value(pFeature.Fields.FindField("St_Number")) = mAddress
pFeature.Store
End Sub
