وعليكم السلام اخى واستاذى @محمد سلامة
مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا
ومنورين الموقع اساتذتى 💐
ارفق لك مثال لاختنا زهره جزاها الله خيرا
Private Sub Rn_AfterUpdate()
If DLookup("[رقم الملف]", "[الحضور]", "[رقم الملف]=" & Me![Rn] & " AND [التاريخ] =#" & Date & "#") Then
MsgBox "معذرة اخي الكريم .... هذا الرقم سبق ادخاله من قبل", vbCritical, "تنبيه"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close
Else
DoCmd.Requery "الاسم1"
DoCmd.Requery "الوظيفة1"
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
ارجو ان يفى بالغرض معك استاذى
بالتوفيق
za-عدم تكرار الرقم-END.rar