الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف امنع التكرار بالكود

بدأه السرااج في 24 يوليو 2011 · 4 رد · 714 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

هل يمكن أن أمنع التكرار في تسجيل حضور طالب أكثر من مرة في اليوم يعني منع التكرار في حقلين وليس في حقل واحد يعني أن يسجل الطالب في نفس جدول الحضور أكثر من مرة في أيام متعددة وليس في يوم واحد بحيث لا يكون هناك طالب سجل له حضور في أكثر من مرة في يوم .

قد يقول البعض ضع الحقل في الحدول كفتاح اساسي وفي حدث عند الخطأ ضع رسالة تظهر وبهذا تنتهي المشكلة :happy: ولكن بودي هل يمكن وضع ذلك بكود بدل من وضع المفتاح الاساسي .

هناك مثال مرفق

hdooooooor.rar

تم تعديل هذه المشاركة بواسطة السرااج في 24 يوليو 2011 في 01:38

#2

تفضل اخي

هذا الكود

If (Eval("DLookUp(""[raqmtal]"",""[tbl_hdoor_t]"",""[raqmtal] =form![raqmtal]"") Is Not Null")) And (Eval("DLookUp(""[date_In]"",""[tbl_hdoor_t]"",""[date_In] =form![date1]"") Is Not Null")) Then
Beep
    MsgBox "هذا الطالب تم تسجيل حضوره هذا اليوم "
Me.raqmtal = ""

End If

بالتوفيق

تم تعديل هذه المشاركة بواسطة malik2010 في 24 يوليو 2011 في 10:25

سيد الاستغفار

{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}

من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري

#3

يارك الله في أخي الكريم ..::..::.. malik....::.:.:.

ولكن حصلت عندي مشكلة أخرى وهي المفروض عندما ادخل رقم غير موجود يعطي رسالة بأن الرقم غير موجودثم يتم تفريغ حقل الطالب واذا كان الرقم موجود يتم تسجيل التاريخ واليوم والوقت واذا كان قد سجل يعطي رسالة ولا يتم التسجيل

المشكلة عند ادراج الكود وادخال رقم غير موجود يعطي رسالة تفيد بأنه تم كتابة تعبير معقد كما في الصورة ويحدث ذلك عند ادخال الرقم الخطأ كما في المرفقات

انا قدو وضغعت الكود في الملف المرفق هل وضعي له بصورة صحيحة أو خاطئة

ولا حرمكم الله الاجر

والسلام ختام

post-87925-093540100 1311553201_thumb.jp

hdooooooor.rar

المرفقات
بدون عنوان.JPG
#4

Private Sub crn_BeforeUpdate(Cancel As Integer)

If Not IsNull(DLookup("[crn]", "BASIC_DATE", "[crn]= '" & Me![crn] & "'")) Then

MsgBox "ÇáÑÞã" & Me![crn] & " ÓÈÞ ÅÏÎÇáå! íÑÌì ÅÏÎÇá ÑÞã ÃÎÑ.", vbOKOnly, "ÇáÑÞã ãÓÊÎÏã"

DoCmd.CancelEvent

Else

Rem DoCmd.RunCommand acCmdSaveRecord

Rem MsgBox "crn " & Me![crn] & " was successfully saved", vbOKOnly, "crn Saved "

End If

End Sub

حيث BASIC_DATE هو اسم الجدول و crn هو الحقل المراد عدم التكرار بدل المفتاح الرئيسي

769984420.gif
#5

اتذكر سؤالا كهذا...في هذا الرابط نقاش طويل حول مشكلة مماثلة

/index.php?showtopic=124958

تحياتي

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…