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

(03-10-15, 05:00 AM)sami2015 كتب : Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & "data.mdb;" & "Jet OLEDB:database Password=1968;"
db.CursorLocation = adUseClient
Adodc1.ConnectionString = db.ConnectionString
End Sub


Private Sub Command6_Click()
If DataGrid1.SelBookmarks.Count = 0 Then Exit Sub

ReDim arr1(DataGrid1.SelBookmarks.Count - 1)
For i = 0 To DataGrid1.SelBookmarks.Count - 1
arr1(i) = DataGrid1.SelBookmarks(i) - 1
Next i

ReDim arr2(DataGrid1.SelBookmarks.Count - 1) As String
For i = 0 To UBound(arr2)
DataGrid1.Row = arr1(i)
arr2(i) = "[no]=" & DataGrid1.Columns(0).Value
Next i

db.Execute ("DELETE FROM [Tabel1] WHERE " & Join(arr2, " OR "))

Rs.Open "SELECT * FROM [Tabel1]", db
Set DataGrid1.DataSource = Rs
Set Adodc1.Recordset = Rs
End Sub