سهل احمد العريشي

شكرا لك عزيزي اكسس ولكن المثال لا يمكن تطبيقه على القاعده لان حقل الحاله لدي هو عباره عن مربع سرد وتحرير ارجو تحميل المثال اذا لم يكن لديك وان كان ارجو التطبيق عليه ولك جزيل الشكر

عذرا لعدم وضوح الخط العربي لا اعرف لماذا المهم اضافة الى مثال الاخ اسامه المميز هذا مثال وضع من فترة لاحد الاخوه ولكني لا اذكر اسمه الشكر لصاحب المثال على مثاله وانا اعيده هنا بناءا على طلبك ولتعم الفائدة للاخوه رابط التنزيل http://www.arabteam2000-forum.com/index.ph...=post&id=218554

اخي بأمكانك ذلك بطريق وضع كو د في حقل رقم الغرفة اولا Private Sub ÑÞã_ÇáÛÑÝÉ_AfterUpdate() Dim mm As Variant mm = DLookup("[åá_ÇáÛÑÝÉ_ãÍÌæÒÉ]", "ÌÏæá_ÇáäÒáÇÁ", "[ÑÞã_ÇáÛÑÝÉ]=[forms]![äãæÐÌ_ÇáÍÌÒ]![ÑÞã_ÇáÛÑÝÉ]") If Not IsNull(mm) Then MsgBox "ÚÐÑÇð ÇáÛÑÝÉ ãÍÌæÒÉ", vbCritical + vbMsgBoxRight, "ÅÚÊÐÇÑ" Me![ÑÞã_ÇáÛÑÝÉ] = Null DoCmd.CancelEvent Exit Sub End If End Sub الثاني Private Sub ÑÞã_ÇáÛÑÝÉ_Exit(Cancel As Integer) If IsNull(Me![ÑÞã_ÇáÛÑÝÉ]) Or Me![ÑÞã_ÇáÛÑÝÉ] = "" Then Cancel = -1 End If End Sub وضعنا كود على رقم الغرفة في حدث بعد التحديث كي يمنع أن تؤجر الغرفة أثناء ما تكون مؤجرة0 وضعنا كود على رقم الغرفة عند الخروج على شأن يبقى التركيز في رقم الغرفة

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

اولا كل الشكر لك اخي العزيز والله لم اجد تجاوب الا منك فجزاك الله خيرا اخي ما اريده هو اذا اختيرت احد القيم الثلاثة فيتم تنفيذ الثلاثة استعلامات وهذه محاولة شرح ورابط لتنزيل المثال ()Private Sub ComboBox1 _AfterUpdate DoCmd.SetWarnings False Dim stDocName As String If Me.ComboBox1 = ([("1")] Or [("2")] Or [("3")]) Then اظهار رسالة تفيد بانه سيتم حذف الموظف من السجلات الرسميه DoCmd.SetWarnings False DoCmd.OpenQuery "set_gop" DoCmd.SetWarnings False DoCmd.OpenQuery "set_gop1" DoCmd.SetWarnings False DoCmd.OpenQuery "set3" DoCmd.SetWarnings False Else End If End Sub هذا ما اريده هو اذا اختير احد القيم 1 او 2 او 3 فيقوم باعطاء رسالة تنبيه وعند الموافقه يقوم بتنفيذ الاستعلامات الثلاثة دفعه واحدة المشكلة انه يقوم بتنفيذ الاستعلام الاول والثاني اما الثاني فلابد من اعادة الاختيار مره اخرى لنفس الموظف حتى يتم حذفه اي لاينفذ الا استعلامين الالحاق في اول مره ولان الاستعلام الاخر الثالث حذف فلا ينفذه الا عند اعادة المحاولة http://www.arabteam2000-forum.com/index.php?showtopic=44734

لدي مربع سرد وتحرير به القيم التالية متقاعد فصل للغياب تقديم استقالة مكلف على الوظيفة منتدب ولدي ثلاثة استعلامات الاول لالحاق بيانات من جدول الموظفين الى جدول 1 مثلا للموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة الثاني لالحاق بيانات من جدول الموظفين الى جدول 2 مثلا للموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة الثالث استعلام حذف لحذف الموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة اريد عند اختيار احد القيم بعاليه مثال عند اختيار متقاعد او فصل للغياب او تقديم استقاله ان يقوم باعطاء رساله بانه سوف يتم حذف الموظف من السجلات الرسميه هل تريد المتابعة وعند اختيار نعم يقوم بتنفيذ الاستعلامات الثلاثة فورا اوردت المثال على هذا الرابط http://www.arabteam2000-forum.com/index.ph...=post&id=216345

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

وضعت كود في نموذج الموظفين في حقل الحاله واريده ان يعمل وفق التالي اذا كانت الحالة المختاره فصل للغياب او تقاعد او تقديم استقاله يقوم بتنفيذ الاستعلام استعلام الالحاق للجدول tmp_1 وحذف من جدول الموظفين والحاق الى جدول الموظفين4 وتكون الحالة في هذا الجدول ثابته اي ان الوظيفة شاغره ( وضع الحالة شاغرة بغض النظر اذا كانت فصل للغياب او تقاعد او تقديم استقاله ) ما اريده عند حذف موظف ان تكون بياناته موجوده في جدول اخر والوظيفة ترحل الى جدول الموظفين4 وهو جدول الشواغر وعند اظافة موظف جديد تتم اظافته على وظيفة من الوظائف الموجودة في الجدول الموظفين4 وحذفها من الجدول عند شغلها بموظف جديد اما اذا كانت الحالة المختاره غير ذلك مثال على رأس العمل او مكلف على الوظيفة فلا يتم عمل شئي اطلاقا وهذا رابط للمثال http://www.arabteam2000-forum.com/index.ph...=post&id=216345

اخواني شكرا على تعاونكم وارجو ان يكون المثال واضحا لكم وتحياتي وشكري مسبقا لكم ابو نعيم

لتحميل المثال http://www.arabteam2000-forum.com/index.ph...=post&id=213987

بسم الله الرحمن الرحيم الاخوه الأعزاء السلام عليكم ورحمة الله وبركاته لدي جدول للموظفين يحتوي على التالي 1-رقم الموظف وهو المفتاح الرئيسي للعلاقة التي تربطه بالجداول الأخرى 2-اسم الموظف 3-مسمى الوظيفة مربع سرد وتحرير 4-رقم الوظيفة مربع سرد وتحرير 5-حالة الموظف مربع سرد وتحرير 6-رقم السجل المدني الحقلين رقم 3 و4 هما حقلين ثابتين ومرتبطين ببعض أي عند اختيار رقم الوظيفة لأي موظف تظهر الوظيفة تلقائيا المشكلة تكمن في أن عدد الوظائف هو مائة وعشرة وظيفة طبعا مربع التحرير والسرد جعلت نوع مصدر الصف قائمة القيم ومصدر الصف هو رقم الوظيفة ومسماها هكذا عامل;"234/15"; مراسل; "234/16" ولكن لأن العدد كبير كما ذكرت سابقا تظهر رسالة لعدم اتساع الحقل لذلك لقد قبل مني فقط 75 موظف بأرقامهم هل هنالك إمكانية لتوسيع الحقل عند اختيار حالة الموظف مثال استقال أو فصل أو تقاعد أريد إما حذف بيانات الموظف جميعها ما عدا رقم الوظيفة ومسماها ويضع على هذه الوظيفة في حقل الاسم كلمة شاغرة وعند ترقية موظف على وظيفة يتم تحديث البيانات في أي جدول مرتبط أرجو أن أكون وفقت في شرح المشكلة

شكرا لك وبارك الله فيك الكراك شغال وميه ميه الله يوفقك امين

هذا البرنامج هو لعمل سيت اب وارجو من الجميع محاولة تجربته ومن ثم شرحه للجميع لتعم الفائده وقد قمت بتعريبه فمن يريد التعريب يرسل لي رسالة على jizaan@hotmail.com وسوف اقوم بارسال تعريبه فورا البرنامج هو CreateInstall والرابط هنا http://www.shareup.com/getfile.php?v=&file...l.com/ci/ci.exe

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

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

هذا برنامج اسمه Access Developer ارجو من الاخوان انزاله من الرابط التالي ومن يعرف له شرح فليزودنا به وشكرا http://download.com.com/3000-2210-10262009...tml?tag=lst-0-4

بسم الله الرحمن الرحيم اخي العزيز لادخال التاريخ الهجري كما ذكر الاخ اشرف في التنسيق ادخل yyyy/mm/dd"هـ" لاحظ ان حرف الهاء يكون في التنسيق قبل حرفي الدي وليس كما هو هنا لاختلاف الادخال وفي قناع الادخال 0000/00/00"هـ" اعمل نسخ للقيمتين من هذه الصفحه ثم لصق وتلاحظ النتيجه ثم اذهب الى ادوات اكسس ثم خيارات واختر التاريخ الهجري

كيف يمكن التعديل على النماذج بعد التحويل الى mde لو امكن ترسل المثال حتى تتضح الصوره

ابو هادي وابن مسقط الله يعطيكم العافيه انا اتمنى القى كود حذف بعد مرور سنه بمعنى جدول الغياب للموظف الموظف عنده عدد 13 يوم غياب وتاريخ التعيين للموظف 03/03/1421هـ المطلوب في تاريخ 03/03/1422هـ يقوم بحذف الغياب لهذا الموظف وايضا عند وصول غياب موظف 20 يوم منفصله او 10 ايام متصله اما يعطي رساله او لا يدخل اي غياب هل هذا ممكن ارجو المساعده ولو امكن جعله موضوع عام اكون شاكرا

شكرا لك اخي العزيز ولو كان هنالك شرح للبرنامج اكون شاكر لك

اريد من الاخوه كود لحذف جميع الغياب لموظف بعد مرور سنه من تاريخ التعيين مثال الموظف عين بتاريخ 11/11/1423هـ اي انه في يوم 11/11/1424هـ يتم حذف جميع الغياب تلقائيا علما بان تواريخ التعيين مختلفة للموظفين ارجو مساعدة الجميع