عبدالله**

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

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

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

قبل التحديث

اول شي الله يعطيك الف عافيه وماقصرت . بنسبة للمواد والشعب لا ماهي داخله بالمقارنه لان من الممكن نفس الشعبة ونفس الماده تدرس على قاعتين ودكتورين اذا كان عدد الطلاب كثير لكن انا عدلت بالكود وسويت اكثر من شرط عشان مايصير فيه تعارض لا بالقاعات ولا الدكاتره وهذا الكود اشتغل معي تمام بنزله للفايده للجميع واذا فيه تعديل عدلو لكن اانا اشتغل معي تمام 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

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

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

الله يعيطيك العافيه وانا الحين برفق شغلي كله وانت شوفه طبعاً الكود ابيه بنموذج تنظيم الجدول وانا بعد بحاول اعدل من عندي اكسس.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

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

البرنامج بقوقل اكتب TimeTables وشوفه معروف وله اصدرات

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

أخيراً سويتها يعطيكم العافيه لاكن سؤال كيف اعكس اتجاه حركة النص بنسبه للكود هذا Me.t.Caption = " " + Me.t.Caption "بسم الله الرحمن الرحيم"= If Len(Me.t.Caption) = 100 Then Me.t.Caption

السلام عليكم أخواني ابي شرح طريقة عمل شريط متحرك مثلا رسالة ترحيب وابيه يكون بالصورالشرح لاني عجزت ماقدرة اسويه حاولت اطبق من الشروحات الي قريتها وحاولت نسخ الاكواد لاكن مافي فايده وهذا مرفق الي ابي اسويه زيه نص متحرك (1).zip