Hello
I have the following procedure that i call from the Layers onfeatureadded event. This code used to work perfectly but now with ArcPad 10.2 it does not work. I am looking for a new way. I use the RecordSet object in numerous places on dozens of forms. I have been looking into using SQL with Datasource.execute but not sure how i would update the current record.
Sub Record_Created
Dim pRS
Set pRS = Layer.Records
pRS.Bookmark = ThisEvent.Bookmark
dim i, strFieldName
for i = 1 to pRS.fields.count
strFieldName = UCase(pRS.Fields(i).Name)
Select Case strFieldName
Case UCase(Field_RecordID)
pRS.Fields(Field_RecordID).Value = CurrentRecordID
Case UCase(Field_Creator)
pRS.Fields(Field_Creator).Value = application.userproperties("SRDUserName")
Case UCase(Field_CreationDate)
pRS.Fields(Field_CreationDate).Value = now()
End Select
next
pRS.Update
End Sub