EDITFORM in Edit mode.

[ChingizEsenaliev]

There's shp with a lot of points. GPS puts the point and I need to open the attributes of the closest point in edit mode. how to implement it?

thanks
Chingiz

[RobChouinard]

This should get you started.

Dim objRS, Layer, Bookmark, X, Y, MaxDistance
Set Layer = Map.Layers("LayerName to search for")
MaxDistance = "1000" ' Distance is in map units

' Select the nearest point
X = GPS.X
Y = GPS.Y
Set objRS = Layer.Records
Bookmark = objRS.FindNearestXY(X, Y, MaxDistance)
Call Map.Select(Layer, Bookmark)

' Show the attributes of the selected point
If Bookmark <> 0 Then
     If Layer.CanEdit Then
          Layer.Editable = True
          Call Application.ExecuteCommand("featureproperties")
     End If
Else
     Call MsgBox("Nothing Found")
End If

[HatibuSemkieti]

There's shp with a lot of points. GPS puts the point and I need to open the attributes of the closest point in edit mode. how to implement it?

thanks
Chingiz

I thin you should export it as shape file by Right click to your GPS coords file on left side in the table of contents then go to DATA then EXPORT. After exporting it go to that shapefile then open its attribute table you can see your attribute.

OR

if your want to see the coords of that file, you should have XTOOLS extension

I think it is clear

[ChingizEsenaliev]

Thanks for the reply and detailed response.

It works )