كود عدم التعارض بجدول المحاضرات

[عبدالله**]

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

عندي قاعدة بيانات لجدول الحصص والمطلوب عند تنظيم جدول الحصص او المحاضرات مايكون فيه تعارض مثلا يوم الاحد : عندي مادتين حطيت الاولى بقاعة 209 الساعه 10   .. والماده الثاني حطيتها الساعه عشره بنفس الساعه ونفس القاعه هنا وقتها ابي يطلع لي رسالة توضح حدث تعارض .. وهذي العملية اكيد بكود وانا ضعيف بالاكود فارجو المساعده 

وهذا مرفق 

جدول المحاضرات.rar

[عبدالله**]

[رمهان]

اخ عبدالله

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

 

هذا للعلم والامل في الاخوة الاعزاء !

 

تحياتي 

[عبدالله**]

الله يعطيك العافيه . حصلت كود وتقريبا ينفذ الي ابيه لاكن الي فاهم الكود ياليت يشرح لي سطر سطر 

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst![كود اليوم] = Me![كود اليوم] And rst![الفترة] = Me![الفترة] And rst![القاعة] = Me![القاعة] And rst![الدكتور] = Me![الدكتور] Then

MsgBox " يوجد تعارض بالجدول ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
DoCmd.CancelEvent
[كود اليوم].SetFocus
Exit Do
End If
rst.MoveNext
Loop
rst.Close

[رمهان]

اوك اخي عبدالله

لم اعرف انك تحتاج المساعدة فقط في جدول "تنظيم الجدول" عذرا" ونعوضك في شرح الكود !

اولا اتوقع ان الحدث هو قبل التحديث للنموذج 

ثانيا الشرح :

''تعريف كائن مجموعة السجلات
Dim rst As Recordset
''اسناد قيمة للكائن وهي مجموعة سجلات النموذج الحالية
Set rst = Me.RecordsetClone
''اذهب لاول سجل لانه يريد المرور على جميع السجلات
rst.MoveFirst
'' احد الجمل التي تساعد على الدوران - حلقة - وبالعربي لف حتى النهاية
Do Until rst.EOF
 ''والتي هي تمثل بيانات الموجودة  وبين البيانات التي بالنوذج الجديدة rst'هنا مربط الفرس فبدأ يقارن ماهو موجود بمجموعة السجلات
'' فعند تطابق جميع الشروط ادناه تظهر رسالة ويعمل تراجع والخروج من الدوران والذهاب لامر الانتقال للسجل الثاني
If rst![كود اليوم] = Me![كود اليوم] And rst![الفترة] = Me![الفترة] And rst![القاعة] = Me![القاعة] And rst![الدكتور] = Me![الدكتور] Then
''الرسالة
MsgBox " يوجد تعارض بالجدول ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
''التراجع والغاء الحدث
Me.Undo
DoCmd.CancelEvent
''نقل التركيز لكود اليوم لتعديل البيانات
[كود اليوم].SetFocus
''الخروج من الدوران حيث وجد التكرار
Exit Do
End If
'' الانتقال الى سجل جديد لفحصه
rst.MoveNext
Loop
''اغلاق الكائن
rst.Close

ولو حبيت ترفق النموذج ونضع لك حل رمهاني مختزل ومختصر واسهل !!

 

بالتوفيق

تم تعديل مايو 13, 2015 بواسطه رمهان

[عبدالله**]

الله يعيطيك العافيه وانا الحين برفق شغلي كله وانت شوفه طبعاً الكود ابيه بنموذج تنظيم الجدول وانا بعد بحاول اعدل من عندي 

 

 

 

 

 

 

اكسس.rar

[رمهان]

اخي عبدالله

الصق كودك السابق في حدث قبل التحديث للنموذج !! سيفي بالغرض !

 

بالتوفيق

[عبدالله**]

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

[رمهان]

المشكلة ان هناك الامر movefirst كأمر بالانتقال وليس هناك سجلات

كالعموم ضع الامر التالي في اول الكود وهو بمثابة حل مبدئي . لاني اكتب من الموبايل.

On error resume next

بالتوفيق

[رمهان]

على فكرة !! الكود جميل .. ولكن فيه فخ بسيط !

جرب ان تعدل الشعبه ! او المادة! حيث ليسا ضمن الشرط ..

حبيت اعرف مصدر الكود اخي عبدالله من وين..

تحياتي

تم تعديل مايو 13, 2015 بواسطه رمهان

[عبدالله**]

ما فهمت وين الفخ ممكن توضح اكثثر 

 

ومصدر الكود من نفس المنتدى وهذا رابطه http://www.officena.net/ib/index.php?showtopic=27332

[رمهان]

السؤال الان : هل الشعبة ورمز المادة داخلة في شرط عدم التكرار ؟ ام فقط المقارنة تتم مع كود اليوم والدكتور والفترة والقاعة ؟؟

تم تعديل مايو 14, 2015 بواسطه رمهان

[عبدالله**]

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

لكن انا عدلت بالكود وسويت اكثر من شرط عشان مايصير فيه تعارض لا بالقاعات ولا الدكاتره 

وهذا الكود اشتغل معي تمام بنزله للفايده للجميع واذا فيه تعديل عدلو لكن اانا اشتغل معي تمام 

Dim rst As Recordset
Set rst = Me.RecordsetClone
On Error Resume Next
rst.MoveFirst
Do Until rst.EOF
If rst![كود اليوم] = Me![كود اليوم] And rst![الفترة] = Me![الفترة] And rst![القاعة] = Me![القاعة] And rst![الدكتور] = Me![الدكتور] Then

MsgBox " يوجد تعارض بالجدول ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
DoCmd.CancelEvent
[كود اليوم].SetFocus

Exit Do
End If
If rst![كود اليوم] = Me![كود اليوم] And rst![الفترة] = Me![الفترة] And rst![القاعة] = Me![القاعة] Then

MsgBox " يوجد تعارض بالقاعات ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
DoCmd.CancelEvent
[كود اليوم].SetFocus

Exit Do
End If
If rst![كود اليوم] = Me![كود اليوم] And rst![الفترة] = Me![الفترة] And rst![الدكتور] = Me![الدكتور] Then

MsgBox " يوجد تعارض بالدكتور ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
DoCmd.CancelEvent
[كود اليوم].SetFocus

Exit Do
End If
rst.MoveNext
Loop
rst.Close
End Sub

[رمهان]

معليش اخوي عبدالله : انت واضع الكود عند اي حدث ؟؟ هل هو على مستوى النموذج وعند حدث قبل التحيث ؟؟ ام اين ؟؟

[عبدالله**]

قبل التحديث

[رمهان]

معناته انت واقع في الفخ !!!!

 

ماهوه انا قلت لك من اول جرب : اعمل تغيير لرمز المادة مثلا او للشعبة لواحد من السجلات بدون ما تغير في حقول المقارنة !! شف ايش يصير معاك !!!!

تم تعديل مايو 14, 2015 بواسطه رمهان

[عبدالله**]

يطلع لي يوجد تعارض حتى لو غيرت اي خانه يطلع لي في تتعارض وهو مافي تعارض وش السبب

[رمهان]

اخيراً ... معناته الآن الكود مش شغال وما ينفعشي في الحدث قبل التحديث للنموذج ! لكي يعمل الكود معك تمام ضعه عند حدث بعد التحديث لكل مربع من مربعات المقارنة اي عند الفترة وكود اليوم والقاعة والدكتور ..

 

او نعطيك حل رمهاني .. سهل ومجاني ..

 

نصلي الفجر .. ونعود ..

 

تحياتي

[عبدالله**]

اوكي صلي الفجر والله يتقبل منك وانا بنتظار الحل الرمهاني السهل المجاني

[رمهان]

اخي عبدالله

تفضل سطر واحد من الكود !!

مع ملاحظة متطلب بسيط : قم بانشاء حقل جديد بالجدول وباسم id   ونوعه ترقيم تلقائي واحفظ الجدول واعرض البيانات سترى تسلسل جديد تلقائي وهو معرف للسجل !

ثم اذهب للنموذج ضع هذا السطر في حدث قبل التحديث للنموذج !

If Nz(DLookup("id", "[تنظيم الجدول]", "[كود اليوم]&[الفترة]&[القاعة]&[الدكتور]='" & كود_اليوم & الفترة & القاعة & الدكتور & "'"), 0) <> id Then Cancel = MsgBox("مكرر")

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

 

بالتوفيق

[عبدالله**]

بسيطه اضافة حقل لكن اكتب لي الكود كامل لان انا يادوب اعدل على الكود مافهم فيها شي 

[رمهان]

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

[رمهان]

اخي عبدالله 

ادخل معي دردشة في اعلى صفحة الموقع

عرفت الحين فائدتها !

[بوعبد الله محفوظ]

في 14‏/5‏/2015 at 02:39, رمهان said:

اخي عبدالله

تفضل سطر واحد من الكود !!

مع ملاحظة متطلب بسيط : قم بانشاء حقل جديد بالجدول وباسم id   ونوعه ترقيم تلقائي واحفظ الجدول واعرض البيانات سترى تسلسل جديد تلقائي وهو معرف للسجل !

ثم اذهب للنموذج ضع هذا السطر في حدث قبل التحديث للنموذج !

If Nz(DLookup("id", "[تنظيم الجدول]", "[كود اليوم]&[الفترة]&[القاعة]&[الدكتور]='" & كود_اليوم & الفترة & القاعة & الدكتور & "'"), 0) <> id Then Cancel = MsgBox("مكرر")

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

 

بالتوفيق

إذا ممكن تتفضل علينا بإعادة كتابة الكود

لكن باستبدال العربية بالانكليزية

حتى نستوعب بناء الجملة