كود يعمل بالعكس

بسم الله الرحمن الرحيم

السلام عيلكم أيها الأعزاء

السؤال هو:

قمت بإنشاء جدول لتسجيل أصناف معينة

وهذا الجدول سميته بARTICLES به الحقول الآتية

الحقل الأول يسمى ب:REFERENCE لتسجيل كود الصنف

الحقل الثاني :DESIGNATIONلتسجيل أسم الصنف

الحقل الثالث REMARQUEلتسجيل ملاحظات حول هذا الصنف

ثم قمت بإنشاء نموذج لتعبئة هذا الجول وفي هذا النموذج وضعت جملة برمجية تفيد في عدم تكرار الأكواد داخل الصنف وكتبت هذا الكود في حدث قبل التحديث لمربع النص الموجود في النموذج الخاص ب REFERENCEوالكود هو كما يلي

numberfield = Me.Reference

Dim a

a = DLookup("[Reference]", "ARTICLES", "[ Reference]='" & Me. Reference & "'")

If Not (IsNull(a)) Then

MsgBox "هذا الصنف موجود ضمن الاصناف المخزنية", vbCritical, "رساله تحذيرية"

Cancel = True

Me.Undo

DoCmd.FindRecord numberfield

End If

والخلاصة أن المشكلة عندما بدأت التسجيل وسجلت السجل الأول فعند القيام يتسجيل السجل الثاني صدرت رسالة تقول بأن هذا الصنف موجود صمن الأصناف المخزنية مع العلم انه غيرموجود حيث يختلف عن سابقه في REFERENCE أي الكود

ارجوكم توصيع المشكل ثم الحل

ولكم الملف مرفق