Dim objRS3, objSelLayer3, objEFPageOneControls3, objEditForm3 Set objSelLayer3 = Map.SelectionLayer Set objRS3 = objSelLayer3.Records objRS3.Bookmark = Map.SelectionBookmark Set objEditForm3 = application.map.layers("Supports").forms("EDITFORM") Set objEFPageOneControls3 = objEditForm3.Pages("page3").Controls ' Populate variables to the form controls. Dim varMUTCD_CODE varMUTCD_CODE = objEFPageOneControls3("MUTCD_CODE").Value Dim objForm, objPageControls, rs Set objForm = EDITFORM Set objPageControls = objForm.Pages("PAGE3").Controls Set rs = CreateAppObject("recordset") rs.Open "C:\GPS_data_collections\StreetSign_Collection_ArcPAD\DBF_Lookup_Files\MUTCD_Code.dbf", 2 'search for the current records MUTCD_Code dim dbfQuery, editRecord dbfQuery = "[MUTCD_Code] = """ & varMUTCD_CODE & """" editRecord = rs.find(dbfQuery) 'edit the record if (editRecord > 0) then Dim Answer, MyNote MyNote = "Are you sure you want to delete this MUTCD Code?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???") If Answer = vbNo Then Exit Sub Else rs.movefirst rs.move(editRecord - 1) rs.Delete rs.Update rs.Close End If end if set rs = nothing
rs.Find(dbfQuery) 'edit the record if Not rs.EOF then Dim Answer, MyNote MyNote = "Are you sure you want to delete this MUTCD Code?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???") If Answer = vbNo Then Exit Sub Else rs.Delete rs.Update rs.Close End If end if set rs = nothing
'search for the current records MUTCD_Code Dim dbfQuery dbfQuery = "MUTCD_Code = """ & varMUTCD_CODE & """" rs.find(dbfQuery) 'edit the record if Not rs.EOF then Dim Answer, MyNote MyNote = "Are you sure you want to delete this MUTCD Code?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???") If Answer = vbNo Then Exit Sub Else rs.Delete rs.Update rs.Close End If end if set rs = nothing
Dim objRS3, objSelLayer3, objEFPageOneControls3, objEditForm3 Set objSelLayer3 = Map.SelectionLayer Set objRS3 = objSelLayer3.Records objRS3.Bookmark = Map.SelectionBookmark Set objEditForm3 = application.map.layers("Supports").forms("EDITFORM") Set objEFPageOneControls3 = objEditForm3.Pages("page3").Controls ' Populate variables to the form controls. Dim varMUTCD_CODE varMUTCD_CODE = objEFPageOneControls3("MUTCD_CODE").Value Dim objForm, objPageControls, rs Set objForm = EDITFORM Set objPageControls = objForm.Pages("PAGE3").Controls Set rs = CreateAppObject("recordset") rs.Open "C:\GPS_data_collections\StreetSign_Collection_ArcPAD\MUTCD_Code.dbf", 2 'search for the current records MUTCD_Code Dim dbfQuery dbfQuery = "MUTCD_Code = """ & varMUTCD_CODE & """" rs.find(dbfQuery) Dim varDescription varDescription = rs.fields("Descriptio").value msgbox "Value is: " & varDescription rs.Delete rs.Update rs.Close msgbox "Deleteing" set rs = nothing
Are you sure the record is not deleted? Remember that deleting a record in dbase file usually only marks the record for deletion and does not actually delete it. To do that you must do an:
aRecordset.Pack
after the update
Rolf
varDescription = rs.fields("Descriptio").value msgbox "Value is: " & varDescription
Dim objRS3, objSelLayer3, objEFPageOneControls3, objEditForm3 Set objSelLayer3 = Map.SelectionLayer Set objRS3 = objSelLayer3.Records objRS3.Bookmark = Map.SelectionBookmark Set objEditForm3 = application.map.layers("Supports").forms("EDITFORM") Set objEFPageOneControls3 = objEditForm3.Pages("page3").Controls ' Populate variables to the form controls. Dim varMUTCD_CODE varMUTCD_CODE = objEFPageOneControls3("MUTCD_CODE").Value Dim objForm, objPageControls, rs Set objForm = EDITFORM Set objPageControls = objForm.Pages("PAGE3").Controls Set rs = CreateAppObject("recordset") rs.Open "C:\GPS_data_collections\StreetSign_Collection_ArcPAD\Packets_Outgoing\Support_Signs_Data_Collection_2011\MUTCD_Code.dbf", 2 'search for the current records MUTCD_Code Dim dbfQuery dbfQuery = "MUTCD_Code = """ & varMUTCD_CODE & """" rs.find(dbfQuery) Dim varDescription varDescription = rs.fields("Descriptio").value msgbox "Value is: " & varDescription rs.Delete rs.Update rs.Pack rs.Close msgbox "Deleteing" set rs = nothing