عبدالله**

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

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

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

قبل التحديث

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

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

السلام عليكم معليش على التاخير انا صاحب الموضوع هذا http://www.officena.net/ib/index.php?showtopic=58942 ماعرفت اضيف مرفق غير بموضوع جديد المهم بنزل الحين المشروع الي سويته ومعه مرفق بور بونت يوضح الشكل الي ابيه وعلى فكره ماعندي اي خلفيه عن برمجة الفجول بيسك كل الي اعرفه ان الاكواد توضع بالوحده النمطية وعطوني رايكم بالشغل كمبتدى ويعطيكم العافيه مقدما مشروع.rar

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

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