التميمي 2009 قام بنشر يوليو 5, 2018 مشاركة قام بنشر يوليو 5, 2018 السلام عليكم احتاج اظهار رسالة بتخطي حفظ اكثر من 3 سجلات بنفس التاريخ مثلا احمد 4-7-2018 علي 4-7-2018 سعد 4-7-2018 وعند اضافة السجل الرابع يظهر مسج تنبيه لقد تجاوزت 3 سجلات بنفس التاريخ 123456.rar 1 رابط هذا التعليق شارك More sharing options...
king5star قام بنشر يوليو 7, 2018 مشاركة قام بنشر يوليو 7, 2018 اخى تفضل ولكن نصيحة من اخ قم بكتابة اسماء الحقول والجداول باللغة اللاتينية لكي تتزن الاكواد وتتقي شر الاخطاء . 123456.mdb رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يوليو 7, 2018 مشاركة قام بنشر يوليو 7, 2018 (معدل) اذا تريد ان يقبل الحفظ بعد اظهار الرسالة استخدم طريقة استاذ @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 1 رابط هذا التعليق شارك More sharing options...
التميمي 2009 قام بنشر يوليو 7, 2018 الكاتب مشاركة قام بنشر يوليو 7, 2018 كل الشكر لكن لا اريد التكرار في نفس التاريخ رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يوليو 7, 2018 مشاركة قام بنشر يوليو 7, 2018 استاذ shivan-rekany بعد اذنك اذاى عدم تكرار نفس الاسم مرتين فى نفس الشهر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان