السلام عليكم اخواني في هذا المنتدى
وجدت هذا الكود للأخ startnet
ارجو من اهل الخبر تصحيح هذا الكود
Dim x
x = DLookup("[id]", "[اسم الجدول]", "[اسم الحقل] =form![اسم الحقل]")
If (Eval("DLookUp(""[اسم الحقل]"",""[اسم الجدول]"",""[اسم الحقل] =form![اسم الحقل]"") Is Not Null")) Then
Beep
MsgBox "هذا الرقم مكرر لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الرقم المكرر بكامل بياناته"
Me.Undo
DoCmd.GoToRecord , , acGoTo, x
حيث ان الكود يعمل بشكل جيد الا انه في حين اظهار رسالة التكرار وفي حين الضغط على موافق سيتم اطلاعك على الرقم المكرر بكامل بياناته
وحين الضغط على موافق يفتح الرقم بكامل بياناتة ولكن الرقم الذي يظهر هو الرقم التالي
فمثلاً الرقم المكرر ( 160 ) وحين الضغط على موافق تظهر بيانات الرقم ( 161 )
فأين الخطاء في هذا الكود
