عدم التكرار للتاريخ في جدول تسجيل دفعات الصرف واستخدمت هذا الكود ولكن لا اعرف اين الخطا!!
 
	Private Sub تاريخ_الدفعة_BeforeUpdate(Cancel As Integer) 
	 If DCount("تاريخ الدفعة", "تسجيل حالات الصرف", "[تاريخ الدفعة]=" & Me.تاريخ_الدفعة) > 0 Then
 
	     MsgBox "    هذا الاسم تم تكراره سابقا" 
	Cancel = True 
	        End If 
	End Sub
 
	 
 
مساعدة 2.rar