[مصمم هاوي]

الســــــ عليكم ــــــــــــلام

أريد التعديل على كود حذف سجل واحد من جدول DataGrid


 

إقتباس :On Error Resume Next
   X = MsgBox ("هل تريد حذف الطالب", vbOKCancel, "حذف") 'لتأكيد عملية الحذف
   If X = vbOK Then                                     'اذا اختار على ok
   Adodc1.Recordset.Delete                              'يامر الريكورد ست بحذف السجل
   End If

بحيث يتم حذف جميع السجلات دفعة واحدة من جدول  DataGrid عن طريق Check