الكود التالي مدرج في حقل تاريخ والمطلوب منه جعل السجلات في التاريخ الواحد لا تتعدى 60 سجل وكان يعمل بكفاءة عاليه ولكن في الفترة الأخيره اصبح لا يعمل واصبح التاريخ لا يقف عند 60 سجل بل يواصل وكأن لم يكن هناك كود
If DCount("*", "tblDates", "DateReceipt=txtDateReceipt") + 1 > 60 Then
MsgBox " ÚÝæÇð" & vbCr & vbCr & "ÊÚÏì ÊÇÑíÎ ÇáÊÓáíã 60 Úãíá ÇÏÎá ÊÇÑíÎ ÊÓÌíá ÌÏíÏ", 0 + 16 + 1572864, "äÙÇã ÇáãæÇÚíÏ"
Cancel = True
Me!txtDateReceipt.Undo
End Ifما ادري ليش الكتابة العربية ماتطلع في الكود
تحياتي لكم
