Attached is a subset of parcels. Thanks so much for taking the time.
I'll be in the office early tomorrow.
Because you have a large parcels dataset, using IsPointIn() will slow down your data capture process. it has to loop through all the records inside your pacel layer to find one that contains the point.So, in your case, I would use FindNearestXY() to find a parcel intersected with the collected point. This will perform much better on a large datasets like your.So, here is a new "InitilizeForm" sub for you. Let me know if it works for you.Sub InitilizeForm Dim objLayer 'Get a reference to the first layer Set objLayer = Application.Map.Layers("Violations") Dim objEditForm Set objEditForm = objLayer.forms("EDITFORM") Dim pControls Set pControls = ThisEvent.Object.Pages("PAGE1").Controls Dim dblX, dblY dblX = Map.PointerX dblY = Map.PointerY 'Call when adding a new feature If objEditForm.Mode = 3 Then pControls("txtAddress").value = "" pControls("txtPIN").value = "" 'Find Address & PIN # from Parcels Layer Dim objParcels Set objParcels = Application.Map.Layers("Parcels") Dim rsGrid Set rsGrid = objParcels.Records Dim Rec Rec = rsGrid.FindNearestXY(dblX,dblY,0,map.Extent) If Rec > 0 Then rsGrid.MoveFirst rsGrid.move(Rec -1) pControls("txtAddress").value = rsGrid.Fields("ADDR1").Value pControls("txtPIN").value = rsGrid.Fields("PIN").Value End If End If Set objLayer = Nothing Set objEditForm = Nothing Set pControls = Nothing Set dblX = Nothing Set dblY = Nothing Set objParcels = Nothing Set rsGrid = Nothing Set Rec = Nothing End Sub