تم حل مشكلة عدم تكرار التسجيل باستخدام دالة
If DLookup("date()", "Dwam_Emp_ALL", "Dwam_Date=date()") = Me.Date_today Then
MsgBox "áÞÏ ÓÈÞ ÇáÊÓÌíá åÐÇ Çáíæã ãä ÞÈá", vbCritical, "ÇäÊÈå"
Else
مش عارف اذا كان هناك اشياء افضل من هذا لكن ده ال قدرة افكر فيها الان