مساعدة حول معرفة تكرار صرف أدوات لموضف

اخي الكريم تفضل جرب الكود التالي ::

ضعه في حدث بعد التحديث لمربع النص الذي يتم أدخال الصنف من خلاله مع تغيير " c" باسم مربع النص لديك وتغيير " A " باسم الجدول لديك

If (Eval("DLookUp(""[c]"",""[A]"",""[c]=form![c]"") Is Not Null")) Then
	MsgBox "عفواً الصنف مسجل مسبقاً  ", vbOKOnly + vbMsgBoxRight + vbInformation, "تنبيه"
	Me.c = Null
	End If

آمل أن يكون ما تبحث عنه ...

وهذا مثال للتوضيح أكثر

db2.rar

جزاك الله خير أبو رهف على الرد السريع

تحياتي

آمل التعديل على البرنامج المرفق

حيث بعد اضافة الكود من ابو رهف الله يحفظه

لايتم الصرف للصنف الا لشخص واحد فقط

___________________________.rar