kanory

ضع هذا الكود بدل الموجود لديك .....

On Error Resume Next
Dim resbtndelete As String
resdelete = MsgBox("هل تريد حذف المنتج ؟", vbYesNo, "تنبيه")
If resbtndelete = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbl_Fatoora2.ID_Haraka, tbl_Fatoora2.Product_Name_Haraka " & _
" FROM tbl_Fatoora2 " & _
" WHERE (((tbl_Fatoora2.ID_Haraka)=[forms]![frm_Fatoorabuy]![Invoice_ID]) AND ((tbl_Fatoora2.Product_Name_Haraka)=[Forms]![frm_Fatoorabuy]![w1].[Form]![Product_Name_Haraka]));"
DoCmd.SetWarnings True
'DoCmd.RunSQL ("delete * from tbl_fatoora2 where [ID_Haraka]=" & Forms!frm_Fatoorabuy!Invoice_ID)
DoCmd.Requery
End If