احتاج اظهار رسالة بتخطي حفظ اكثر من 3 سجلات بنفس التاريخ

[التميمي 2009]

السلام عليكم

احتاج اظهار رسالة بتخطي حفظ اكثر من 3 سجلات بنفس التاريخ

مثلا

احمد  4-7-2018

علي 4-7-2018

سعد 4-7-2018

وعند اضافة السجل الرابع يظهر مسج

تنبيه لقد تجاوزت 3 سجلات بنفس التاريخ

123456.rar

[king5star]

اخى تفضل ولكن نصيحة من اخ قم بكتابة اسماء الحقول والجداول باللغة اللاتينية لكي تتزن الاكواد وتتقي شر الاخطاء .

 

123456.mdb

 

[Shivan Rekany]

اذا تريد ان يقبل الحفظ بعد اظهار الرسالة استخدم طريقة استاذ @king5star 
واذا تريد ان يرفض الحفظ استخدم هذا الكود هو نفس الكود فقط غيرت المكان و اضفت كانسيل

Private Sub التاريخ_BeforeUpdate(Cancel As Integer)
    Dim Q As Integer
        Q = DCount("[التاريخ]", "جدول1", "[التاريخ]=[التاريخ]")
            If Q >= 3 Then
                MsgBox "لقد قمت بتسجيل اكثر من 3 مرات "
                Cancel = True
            End If
End Sub

123456.mdb

تم تعديل يوليو 7, 2018 بواسطه Shivan Rekany

[التميمي 2009]

كل الشكر لكن لا اريد التكرار في نفس التاريخ

[محمد احمد لطفى]

استاذ shivan-rekany بعد اذنك اذاى عدم تكرار نفس الاسم مرتين فى نفس الشهر