تعديل على كود عدم التكرار

[figo82eg]

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

Private Sub crn_BeforeUpdate(Cancel As Integer)
WriteAuditUpdate txtTableName, Me.crn, "crn", Me.crn.OldValue, Me.crn.Value
If Not IsNull(DLookup("[crn]", "BASIC_DATE", "[crn]= '" & Me![crn] & "'")) Then
    MsgBox "الرقم" & Me![crn] & " سبق إدخاله! يرجى إدخال رقم أخر.", vbOKOnly, "الرقم مستخدم"
    DoCmd.CancelEvent
End If
End Sub

تم تعديل ديسمبر 31, 2021 بواسطه figo82eg