rudwan

قد ينجح معك اصلاح الأوفيس ,

السلام عليكم اخواني أثناء تصفحي لموقع الفريق العربي لبرمجة الأوراكل وجدت فيه قسما خاصا لتحليل النظم , و من بين مواضيع ذلك القسم وجدت موضوعا فيه تحليل كامل لمشروع برنامج عيادة طبية متكاملة , و هو من تصميم العضو Admin05 و اسمه الحقيقي اسامة موسى البسومي من الأردن الشقيق . و الملف حقيقة فيه تحليل ووصف كامل لنظام العيادة المقترح , و الذي يتصفح الملف المرفق يعلم مدى أهمية هذه المرحلة من مراحل صنع البرنامج ألا و هي تصميم النظام الكثير منا عندما يطلب منه تصميم برنامج , يبدأ مباشرة بتصميم الجداول المطلوبه جنبا الى جنب مع بناء النماذج , ثم يعود ان اضطره الأمر لاعادة بناء الجداول أو العلاقات و هكذا الى أن يتم انجاز البرنامج مما يطيل مدة انجاز البرنامج ناهيك عن دقة التصميم . و قد يغيب عن أذهاننا , و غالبا نكون على عجلة من أمرنا , أن نجاح أتمتة المشروع يعتمد اعتمادا كليا على دقة تحليل النظام و تصميمه بالشكل الصحيح تحليل النظام يعتمد اساسا على الخطوات التالية بشكل اجمالي : 1 - تحليل نظام العمل و كيفية سيره على أرض الواقع اي آلية العمل الفعليه للنظام المراد وضع برنامج له و يكون ذلك بوصف دقيق من قبل من هو مختص بهذا المجال و يعايشه بشكل واقعي , فكم رايت من برامج محاسبية فيها ثغرات محاسبية فادحة , و بسؤالي عن مصمميها يتبين أنهم من غير ذوي الاختصاصات المحاسبيه أصلا . 2- وضع منهجية العمل الآلية للبرنامج الذي سيستخدم في هذا المجال 3- وضع المخطط التدفقي للمشروع و تصور النماذج و التقارير المطلوبه 4- في ضوء المخطط التدفقي يتم وضع تصور للجداول المطلوبه 5- وضع تفصيل الحقول المراد استخدامها في بناء الجداول لن أطيل عليكم , أترككم مع الملف بكامل تفاصيله , بعد أن استاذنت الأخ اسامه في عرض الملف على أعضاء المنتدى فرحب بذلك . و ان أردتم أن يكون هذا التصميم مناسبا لعمل مشروع جماعي فنرجو ابداء آرائكم و مقترحاتكم , و ان وصل عدد المؤدين لفكرة المشروع الجماعي الى عشرة سنبدأ به ان شاء الله , و لكن بشرط الالتزام الكامل من جميع من يرغب بالمتابعه , فالكثير من المشاريع الجماعية يتوقف بسبب انسحاب أو تقاعس أعضاء الفريق . لذلك أرجو ممن لديه الاستعداد للانضمام لفريق العمل و لديه الالتزام الكامل , فليبدي رايه و بارك الله فيكم جميعا __________.zip

أخي حاول عكس كود الأخ شاهر أي ضع الكود في حدث قبل التعديل للنموذج الفرعي بحيث private sub form_before_undate(cancel as integer) if datediff("d",[MyDate],me.parent.mydate)>0 then cancel=true else cancel=false end if end sub جرب الكود و أخبرني فانا لم أجربه , و اذا احتاج تعديل نعدله ان شا الله

أخي قم بتعديل الكود بحيث تجعل الشرط أكبر من واحد بدلا من أكبر من صفر أي استبدل السطر If DCount("rty", "gez", "[no]=" & g) > 0 Then ب : If DCount("rty", "gez", "[no]=" & g) > 1 Then

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

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

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

الاستعلام لن يعطيك النتيجة المطلوبة طالما أنه لايوجد سجل لذلك الموظف في جدول ابناء الموظفين لذل عليك استخدام دالة لحساب عدد الموظفين , و يمكن أن تكون كذلك : اسنخ الدالة التاليه في وحده نمطية جديده Function ChildCount(G As Long) As Long If Not IsNull(DLookup("Person", "Childs", "Person= " & G)) Then ChildCount = DCount("Person", "Childs", "Person= " & G) Else ChildCount = 0 End If End Function طبعا مع تعديل أسماء الحقول حيث : Childs هو اسم جدول الأبناء Person هو اسم حقل الأب في جدول الأبناء الآن اعمل استعلام على جدول الموظفين فقط , و اختر فيه اسم الموظف و رقمه ( EmpID ) ثم أضف حقل ثالث غير منضم و سمه عدد الأبناء و اسند اليه القيمة التالية E:ChildCount([EmpID])

لا أعلم السبب , و لكن لعلك أخطأت في مكان الكود , أو في اسم مربع العنوان , و المهم أنك نجحت أخيرا

اذا كان مربع التسميه الذي أنشأته اسمه مثلا h انشخ الكود التالي و الصقه كما هو في محرر أكواد النموذج Private Sub Form_Timer() Me.h.Caption = Now() End Sub

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

أنظر الرابط التالي http://www.officena.net/ib/index.php?showtopic=10102

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

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

لابأس أختي فالمواضيع كلها مرتبطه بنفس الموضوع أولا بالنسبه لاختبار عدد الفرص , يمكنك استخدام الكود التالي : if Dcount("MyText","MyTable","[MyText]=" & me.MyID) >5 THEN PUT UR CONDISTION HERE END IF حيث : MyTEXT هو الحقل المراد عده MY TABLE الجدول المعني ME.MYID هو اسم الحقل في النموذج الذي يحتوي المعرف mYtEXT أما بالنسبة للفلتره يمكنك استخدام الكود التالي Me.Filter = "Country = 'USA'" Me.FilterOn = True مع تعديل اسماء الحقول

انظر مثالك بعد التعديل _____________.rar

ضع الكود في حدث قبل الادخال لحقل الكميه و ذلك كما يلي : Private Sub Borrow_Amount_BeforeUpdate(Cancel As Integer) If barrowamount.Value <= amount.Value Then amount.Value = amount.Value - barrowamont Cancel = False Else MsgBox " Quantity Not Aloowed Here " Cancel = True End If End Sub حيث في هذه الحاله يتم الغاء ادخال القيمه في حال عدم توفر الشرط

استخدم دالة المجموع في تذييل التقرير اي أضف مربع نص جديد ( غير منضم ) واكتب فيه =sum([MyText]) على فرض أن الحقل الذي تريد جمعه اسمه MyText

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

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

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

السلام عليكم عذرا أخينا فهذه أول مره أدخل فيها بعد العيد , و كل عام و أنتم بخير تم الغاء موضوعك الجديد , و هذا تعديل على ملفك انظر الجديد فيه : تم تعديل جدول الاستعاره و اضافة حقلي book in - Book out Book In ليسجل فيه رقم 1 في حال تم اعادة الكتاب Book Out ليسجل رقم 1 في حال تم استعارة الكتاب تم اضافة الجدول Book TrANS ليسجل فيه حركة الكتب التي لا تخص الاستعاره , حيث يسجل فيه الرصيد الابتدائي للكتب ( و عليه ستحذف حقل عدد الكتب في جدول الكتب ) . اضافة الى حركات أخرى مثل شراء كتب جديده أو ترحيل تالف و كله يسجل ايضا في حقلي الداخل و الخارج الآن لديك الاستعلام Book Transactions هذا يعطي الحركة الكاملة للكتب من رصيد ابتدائي و شراء و اعارة و استرجاع و أخير الاستعلام Book Balances يعطيك الرصيد التلقائي لكل الكتب الآن بمجرد أدخلت أي حركة اعارة أو استعاره ( بشرط ادخال قيمة 1 في جدول الاعارة و الاستعاره ) سيظهر لك الرصيد تلقائيا في استعلام الأرصده اذا كان لديك أي استفسار لا تتردد في ذلك BookNew.rar

خذي راحتك أختي , و اسألي مابدا لك و لا تترددي

بالنسبة لجدول احتياجات المدارس و ماهي أهميته اذا كان لديكي في كل مدرسه عشر اختصاصات مطلوبه , فكيف سيتم وضعها في حقل ضمن جدول المدارس ؟ ان وجود جدول تفصيلي ( احتياجات المدارس ) يعطيكي امكانية ادراج عدد لامحدود من الاختصاصات لكل مدرسه ( أي كل اختصاص سيكون له سجل مستقل ) ثانيا بالنسبة للاستعلامات لايمكن عرضها الآن الا عندما تقومي بتحميل الملف , و عندها يمكن أن نبين لك طريقة عمل تلك الاستعلامات , و هي أسهل من عملية بناء الجداول التحميل يكون في القسم المؤقت - الصفحة الرئيسيه للمنتدى

اطلع أخي على الموضوعين التاليين ففيهما مشابه لسؤالك http://www.officena.net/ib/index.php?showt...760entry45760 http://www.officena.net/ib/index.php?showtopic=4391