السلام عليكم
من فضلكم أٍريد تحوبل الكود التالي:
Private Sub الرقم_AfterUpdate()
If [Forms]![كتاب]![الرقم] <= [Forms]![كتاب]![نص338] Then
Me.الرقم = ""
MsgBox "تنبيه: الرقم مكرر", vbInformation, "تنبيه"
End If
End Sub
إلى الماكرو يعني استعمال منشأ الماكرو
الرجاء المساعدة في اقرب وقت وبارك الله فيكم