صديقي
في حالتنا هذه يجب تكرار الاصناف
اذا اردت عدم تكرار الاصناف ضع اسم الصنف مفتاح اساسي / مطلوب / التكرار غير مسموح
سينتج خطأ عن ادخال الصنف اكثر من مرة
بدل رسالة الخطأ من اكسس
ضع الكود التالي / في حدث عند الخطأ
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox "هذه المادة موجودة بالفعل في هذه الفاتورة, يرجى التعديل", vbCritical, "تنبيه"
End If
End Sub