وعليكم السلام ورحمة الله وبركاته
جرب هذا الكود على افتراض أن النموذج الفرعى مرتبط بجدول اسمه Tabl1
On Error Resume Next
Dim delt
Delt = "delete from tabl1;"
If MsgBox("هل تريد بالتأكيد حذف البيانات ؟", vbInformation + vbYesNo, "حذف") = vbYes Then
DoCmd.SetWarnings False
DoCmd.runsql delt 0
DoCmd.SetWarnings True
MsgBox "تم حذف السجل "
Else
MsgBox "تم الإلغاء "
End IfEnd Sub