Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Delete row for a certain criteria

Sub exaRecordsetDelete()     Dim db As Database     Dim rs As Recordset     Dim DeleteCt As Integer          Set db = CurrentDb     Set rs = db.OpenRecordset("Books Copy")          DeleteCt = 0          rs.MoveFirst     Do While Not rs.EOF        If rs!Price > 20 Then              rs.Delete              DeleteCt = DeleteCt + 1        End If        rs.MoveNext     Loop          rs.Close          Debug.Print Format$(DeleteCt) & " records deleted." End Sub