أريد كود التأكد من وجود سجل بالرقم المدخل

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

لنفترض ان لدي نموذج رئيس وبداخله نموذج فرعي

في داخل النموذج الفرعي تكست بوكس غير منظم والهدف منه ادخال رقم المعاملة مثلا ويعطي البيانات في باقي التكست بوكس على النموذج الفرعي

سؤالي هو : اريد عندما يدخل المستخدم رقم المعاملة في النموذج الفرعي في التكست الغير منظم يتم فحص الرقم المدخل هل هو موجود بالجدول أو لا واذا كان غير موجود تظهر رساله تخبره بذلك مع ملاحظة ان رقم المعاملة نوعه ترقيم تلقائي

اتمنى أن اجد هذا الكود بااسرع وقت لاني جربت الكود التالي وجدته باااحد الامثله ولم تفلح الطريقه

Private Sub T1_AfterUpdate()

[t2] = DLookup("[Name]", "Names", "Number=[t1]")

If IsNull(DLookup("[number]", "names", "[number]='" & [T1] & "'")) Then

MsgBox " åÐÇ ÇáßæÏ ÛíÑ ãæÌæÏ ÈÏáíá ÃÕäÇÝ ÇáãÎÇÒä ", vbCritical

Cancel = -1

End If

End Sub

الكود بالاعلى وجدته بااحد الامثله في هالمنتدى ولكن يعتمد على حقل نوعه رقم وليس ترقيم تلقائي

فظهرت لي المشاكل من ظمنها

او خطأ في السطر الثالث من اسفل Cancel=-1

فمن يعدله لكي يتلائم مع حقل نوعه ترقيم تلقائي اتمنى ان اجد الاجابه السريعه

او اعطائي كود اخر يكون نافعا في مثل هذه الحالة انتظر الجواااااااااااااااااااااااااااااااااااااااااااب

ولكم جزيل الشكر