figo82eg قام بنشر ديسمبر 31, 2021 مشاركة قام بنشر ديسمبر 31, 2021 (معدل) لدى نموذج به خانة رقم وأريد عند ادخال الرقم مكرر تظهر رسالة بأن الرقم مكرر وإستخدم الكود التالى ولكن عند وضع القاعدة على سيرفر تكون قاعدة البيانات ثقيلة جدا فارجو المساعدة فى تعديل الكود 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان