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
حذف منتج من فاتورة
في قسم الأكسيس
60 1قام بنشر
ضع هذا الكود بدل الموجود لديك .....
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