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