طلب التعديل على كود الذهاب للرقم المكرر

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

سبق أن طرح سؤال عن كيفية الذهاب للرقم المكرر ( لم أجد الموضوع ) . كانت إجابة الأخ الهاجري بأن يتم وضع الكود التالي في حدث بعد التحديث لحقل الرقم وهذا هو الكود

If (Eval("DLookUp(""[حقل الرقم]"",""[اسم الجدول]"",""[حقل الرقم] =form![حقل الرقم]"") Is Not Null")) Then
Beep
   MsgBox "هذا الرقم مكرر لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الرقم المكرر بكامل بياناته"
DoCmd.CancelEvent

   stDocName = "اسم النموذج الاخر تريد ظهوره"
   stLinkCriteria = "[حقل الرقم]=" & "'" & Me![حقل الرقم] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   Forms![اسم النموذج الرئيسي]![حقل الرقم] = Null


End If
SendKeys "{f2}", False

أسأل عن إمكانية التاكد من تكرار الرقم لإسم معين فإذا وجد الرقم مسجل لنفس الإسم يذهب للرقم والإسم المكررين . وإذا أختلف أحدهما يتجاهل ذلك .

فكيف يمكن التعديل في الكود ليتناسب مع ذلك .