كيف امنع المستخدم من اضافة صنف موجود

[ازهر عبد العزيز]

السلام عليكم .... كيف امنع المستخدم من اضافة صنف موجود  في نفس الفاتورة

New Microsoft Access �اعدة ب�ا�ات (1).accdb

[kaser906]

وعليكم السلام ورحمة الله وبركاتة

تفضل

Private Sub itemeid_BeforeUpdate(Cancel As Integer)
Dim x As Integer
x = DCount("[itemeid]", "[lsd]", "[itemeid]=" & Me.itemeid & " AND [listid]=Forms![lsh]![listid]")
If x > 0 Then
MsgBox "تم إدخال هذا الصنف مسبقا", 48, "تنبيه"
DoCmd.CancelEvent
Me.Undo
End If

End Sub

::بالتوفيق::

kaser906.accdb

[ازهر عبد العزيز]

حسنت أستاذ @kaser906