من يسعفني بعمل هذا الكود

تفضل :

DoCmd.RunSQL "Delete TableName from TableName"

واستبدل TableName باسم الجدول الذي تريد أن تحذف جميع سجلاته

السلام عليكم أخي العزيز

1- ضع في أي مكان في الوحدة النمطية للنموذج الذي عليه الزر تعريف الدالة التالية

Public Function RemoveSampleData()

Dim db As Database

Set db = CurrentDb

Dim intRet As Integer

Dim strSQL As String

On Error GoTo HandleErr

intRet = MsgBox("تحذير" & vbCrLf & _

" msg", _

vbQuestion + vbOKOnly, "تحذير")

intRet = MsgBox("are you sure", _

vbQuestion + vbYesNo + vbDefaultButton2, "deleate")

If intRet <> vbYes Then

GoTo ExitHere

End If

strSQL = "Delete * from [اسم الجدول الذي تريد حذف بياناته]"

db.Execute strSQL

MsgBox "البيانات حذفت"

ExitHere:

Exit Function

HandleErr:

Select Case Err

Case Else

MsgBox Err & ": " & Err.Description, vbCritical, _

"Error in RemoveSampleData()"

End Select

Resume ExitHere

Resume

End Function

2- في حدث عند النقر للزر ضع هذا المقطع من الكود

Call RemoveSampleData

docmd.close

مع تحياتي لك

كل الطرق تؤدي إلى روما

وهذه طريقة أخرى

ضع الكود التالي في حدث عند النقر لزر كائن على النموذج :

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbl_Name.* FROM tbl_Name"
DoCmd.SetWarnings True
DoCmd.Close

والله الموفق.

جزاكم الله الف خير ......