کد زیر با استفاده از متد RunSQL تمام رکورد های جدول Produtcs (می توانید روی Northwind اجرا کنید) را حذف می کند :
Sub DeleteAllProducts()
Dim SQLStr As String
SQLStr = "Delete from Products"
DoCmd.RunSQL (SQLStr)
End Sub
برای حذف یک رکورد خاص از یک جدول می توانید آن را توسط دستور SQL مشخص کنید. کد زیر محصولی با شماره 3 را از جدول Products حذف می کند :
Dim SQLStr As String
SQLStr = "Delete from Products where ID=3"
DoCmd.RunSQL (SQLStr)
End Sub
0 نظر
تازه ترین ها