VBA/Excel/Access/Word/Access/Recordset Delete

Deleting an Existing Record from Recordset

   <source lang="vb">

Sub DeleteCusts(lngProjEst As Long)

   Dim intCounter as Integer
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenDynamic
   rst.LockType = adLockOptimistic
   rst.Open "Select * from Products "
   intCounter = 0
   Do Until rst.EOF
       If rst("UnitPrice") < lngProjEst Then
           rst.Delete
           intCounter = intCounter + 1
       End If
       If Not rst.EOF Then
           rst.MoveNext
       End If
   Loop
   Debug.Print intCounter & " Customers Deleted"
   rst.Close
   Set rst = Nothing

End Sub

</source>
   
  

Removing a Table Using Code

   <source lang="vb">

Sub DeleteTable()

   On Error Resume Next
   Dim cat As ADOX.Catalog
   Set cat = New ADOX.Catalog
   cat.ActiveConnection = CurrentProject.Connection
   cat.Tables.Delete "Foods"

End Sub

</source>