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>