کد زیر با استفاده از متد RunSQL تمام رکورد های جدول Produtcs (می توانید روی Northwind اجرا کنید) را حذف می کند :

 

 

 

Sub DeleteAllProducts()
               Dim SQLStr As String
               SQLStr = "Delete from Products"
               DoCmd.RunSQL (SQLStr)
End Sub
 

برای حذف یک رکورد خاص از یک جدول می توانید آن را توسط دستور SQL مشخص کنید. کد زیر محصولی با شماره 3 را از جدول Products حذف می کند :

 

Sub DeleteProduct()
               Dim SQLStr As String
               SQLStr = "Delete from Products where ID=3"
               DoCmd.RunSQL (SQLStr)
End Sub