كوماندير

السلام عليكم ورحمة الله وبركاته اخوتي الكرام : الموضوع هو برنامج لبقالة هناك خصم حسب كل فاتورة وهو مبلغ معين ( لسبب مأ جعلته رقم وليست نسبة مئوية من اجمالي قيمة الفاتورة). وهناك خصم اخر حسب كل بند من بنود الفاتورة .( وهو نسبة مئوية من قيمة السلعة) المطلوب هو في تقرير الفاتورة (التقرير الفرعي ): ان يتم اضافة الخصم حسب الفاتورة الى مربع نص (مجموع الخصم حسب البند الذي في تذييل التقرير الفرعي) . وبالتالي يتم طرح (الخصم حسب الفاتورة و مجموع الخصم حسب البند ) من اجمالي قيمة الفاتورة . في مربع نص الاجمالي الذي بتذييل التقرير الفرعي . كما في الاستعلام التجميعي Q2 واليكم المرفق : ALBISANMARKET.rar

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

الف الف الف شكر اخي عبدو وفي انتظار باقي الدروس وياريت لو ترفعهم بصيغة Rar ( مضغوطين )

السلام عليكم ورحمة الله وبركاته إخوتي الأعزاء لدي مجموعة أفكار وأود مساعدتكم في بناء الجداول لقاعدة بيانات استقبال عيادة طبية لمرضى يتبعون العديد من شركات التأمين وكل شركة لديها تأمين مع مجموعة جهات حكومية : المعطيات : 1. بعض هذه الشركات نظامها : كل فرد من اسرة الموظف له بطاقة مستقلة برقم تأميني مستقل تصرف كل عام تقريبا تحوي بيانات المتعاقد من بيانات كحصة المتعاقد في الدفع في العيادات الخارجية وحصته في الدفع داخل العيادات ( كالعمليات ). 2. البعض الأخر من الشركات هذه تعطي كل أفراد أسرة الموظف بطاقة لكن كل أفراد هذه الأسرة لهم رقم تأميني واحد أي مكرر وهنا يسمى رقم الملف الطبي وليس الرقم التأميني . 3. كل شركة تعطيها العيادة نسبة خصم خاصة بهذه الشركة دون غيرها ، هناك العديد من انواع الخصم الممنوح من العيادة فهناك نسبة خصم في الخدمات ، وخصم في الأدوية ، وخصم في العمليات ، وخصم في المستلزمات الطبية ( كالنظارات والعدسات .... الخ ). 4.لدينا سبعة انواع من الخدمات المقدمة كالتالي : معاينة تحاليل طبية التصوير بالاشعة خدمات الاسنان العمليات الأدوية المستلزمات الطبية تفاصيل حسابية : طبعا الشركة 1 والشركه 2 والشركة 4 حصة الموظف في الدفع تشمل كل الخدمات وكذلك الخصم الممنوح من العيادة . بينما الشركة 6 تكون حصته في الدفع لا تشمل المعاينة بينما تشمل بقية الخدمات والشركة 5 والشركة 7 بعض الادارت التي تتبعها ، حصة الموظف فيها 0% عدا الادوية على الموظف ان يدفع فيها 20% فقط ، و الخصم الممنوح من العيادة يشمل كل الخدمات . الشركة 8 لا يوجد هناك خصم ممنوح من العيادة ولا يجب على الموظف تسديد أي مبلغ فشركة التأمين تقوم بدفع كل فواتير الموظف. والشركه 9 لايوجد هناك أي حصة في التحمل الا اذا كانت صفة قرابة المريض بالموظف هو والد او والدة الموظف في هذه الحالة عليه دفع 40 % من اجمالي التكاليف ، واذا كانت زيارة المريض لعيادة الاسنان ( أي خدمة اسنان ) في هذه الحاله على الموظف دفع 30% من تكلفة الخدمات المقدمة بغض النظر عن صفة القرابة . عدا ذلك لا يدفع شيئا علما ان هذه الشركة يمنع صرف الأدوية لهم إلا في حالة كانت للمريض عمليات . ملحوظه : لسبب ما يتم توقيف احدى الادارات برسالة فاكس او بريد الكتروني من شركة التأمين لفترة زمنيه حتى يأتي إشعار من شركة التأمين . مشكلتي اخواني تكمن في نسب حصة الموظف في التسديد والنسب الممنوحه من العياده في الخدمات والادوية : وهذا المرفق : SAFAPOLYCLINIC.rar

اشكرك ايها المبدع دوما جعفر لكن الكود call Forms!Mfrm!Form_Btn2_Click ليس ك الكود الثاني الذي استخدمته في مثالك : call Form_Mfrm.Btn2_Click عموما اكرر شكري وتقديري لمجهودك . والمهم ان الفكرة وصلت .

الى كل من حاول عموما والى الاخ جعفر خصوصا الف الف شكر وبالنسبة لكود استدعاء امر الزر فلم يضبط وقد جربت الكود التالي فعمل جيدا Call Me.Parent.Btn2_Click وبهذا تكون المشكلة قد حُلت لكن هل لي ان اعرف ماهو الفرق بين Private و Public ؟

السلام عليكم ورحمة الله وبركاته : اذا كان لدي زر امر Btn2 على النموذج الرئيس Mfrm واردت استدعائه ( النقر عليه ) من النموذج الفرعي SubFrm

السلام عليكم اخوتي الكرام : لدي محاولة لعمل قاعدة بيانات معمل طبي المشكلة هي طبعا بالتقرير : حيث ان عناصر تفاصيل الطلب تنتمي لمجموعات فرعية والمجموعات الفرعيه تنتمي لمجموعات اساسية كما بالمرفق . فمثلا العناصر : Hb T.WBC Lymphocyte MXD (mono.eosino.baso.) Neutrophil Platelet Count RBC PCV(HCT) تنتمي للمجموعة الفرعية CBC التي تنتمي للمجموعة الاساسية Heamatology . طبعا بالتقرير يظهر اسم المجموعة الاساسية والفرعية اعلى عناصر الطلب . المطلوب عند عدم اختيار كل عناصر المجموعة ، مثلا ادخلت لهذا المريض بعض عناصر المجموعة الفرعية CBC نفرض ان لهذ المريض فقط Hb , T.WBC ما اريده في هذه الحاله هو اخفاء رأس المجموعه الفرعيه في التقرير . واليكم المرفق .NewMySubGrps.rar

الف الف شكر اخي جعفر لقد وجدتها بالاكسس 2007 قبل والمفترض انها تكون

السلام عليكم ورحمة الله وبركاته اعزائي الكرام لا ادري ماذا حدث لجهازي المشكلة هي انني لاحظت انه اثناء التنقل بين سجلات الجداول او معايير الاستعلامات لايتم التركيز على الحقل قبل ذلك كنت عندما انتقل بزر اسفل او اعلى او يمين او شمال على الكيبورد ، يتم تضليل الحقل بحيث لو كانت هناك قيمه موجودة في الحقل لا احتاج لمسحها واعادة الكتابة ثانية ، اقوم بالكتابة مباشرة فيتم مسح ماكان بالحقل تلقائيا عند كتابتي لأول حرف او رقم برأيكم ماهو الحل

السلام عليكم اخواني الاعزاء بالمرفق عند فتح النموذج الرئيس من نموذج البحث عن العميل وطلباته عند التنقل بين زيارات العميل نجحت في اظهار رسالة تطالب المستخدم هل يريد التنقل بين طلبات العميل ( ضمن ال Listbox) عند الموافقة بالانتقال يتم الغاء الفلتر عن النموذج الفرعي . المطلوب هو عند الموافقة يتم ايضاء الغاء الفلتر عن النموذج الرئيسي MainFrm مع البقاء في نفس السجل ( اي دون الرجوع الى اول سجل بالنموذج الرئيسي ). وهذا المرفق FilterOn.rar

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

اخي اسير الشوق لدي اكسس 2007 واكثر نماذج وتقارير البرنامج لاتعمل مثال على ذلك

وصلت الافكار واشكركم كثيرا على تفاعلكم

الف الف شكر اخي رضوان وقد اضفت بعض الاضافات ياريت لو تلاحظها وتبدي رايك Private Sub Form_AfterUpdate() If Me.ItemNo <> 9 And Me.ItemNo <> 8 And IsNull(Me.Result) Then If MsgBox("You Should Post Result", vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNo) = vbYes Then Cancel = True Else MsgBox "You Will Delete this item" DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblOrderDetils.ItemNo, tblOrderDetils.OrderNo, tblOrderDetils.Result " & vbCrLf & _ "FROM tblOrderDetils " & vbCrLf & _ "WHERE (((tblOrderDetils.ItemNo)=[Forms]![MainFrm]![OrdersSubFrm].[Form]![BSubFrm].[Form]![ItemNo]) AND ((tblOrderDetils.OrderNo)=[Forms]![MainFrm]![OrdersSubFrm].[Form]![BSubFrm].[Form]![OrderNo]) AND ((tblOrderDetils.Result) Is Null));" DoCmd.SetWarnings True Me.Requery End If Me.Result.SetFocus End If End Sub

الف شكر اخي ابا حفص لكن الكود يضيف الرقم التالي لاكبر رقم بالحقل ولايبحث عن الارقام المحذوفه فيضيف مكانها

اخي رضوان الف الف شكر مجهود تشكر عليه كثيرا وقد استخدمت الكود للعمل على حدث عند الخروج من النموذج الفرعي لان لدي بالحقيقة عدد من النماذج الفرعية Private Sub BSubFrm_Exit(Cancel As Integer) If Me!BSubFrm.Form!ItemNo <> 9 And Me!BSubFrm.Form!ItemNo <> 8 And IsNull(Me!BSubFrm.Form!Result) Then MsgBox "You Should Post Result" Cancel = True End If End Sub ان كان ذلك ممكنا المطلوب الان بعد ظهور الرسالة ان يتم وضع المؤشر على حقل Result على الصف الذي تم نسيانه فارغا ؟

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

السلام عليكم اخواني الاعزاء هلا حصلت على مثال للترقيم التلقائي بالكود مع الاستفادة من الأرقام المحذوفة ؟

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

اخي اخر الارض يبدو ان هناك خللا في شرحي للمشكلة : بالنسبه للحقل ItemNo لاعلاقة لنا به بخصوص التكرار المشكله اذا كانت قيمة هذا الحقل غير 8 او 9 اريد الزام المستخدم بعدم ترك الحقل Result فارغا ماعلاقة التكرار والمفتاح الاساسي بما ذكرنا ؟

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

اخر الارض بالطبع لا انساه من الشكر فهو اول من حاول ورد مرة اخرى الشكر موصول لكل من حاول

الف الف شكر اخي رضوان هذا المطلوب بالضبط جزاك الله الف خير

السلام عليكم اخوتي الكرام بالمرفق في النموذج الفرعي BSubFrm اذا كان ItemNo لايساوي 8 او 9 يجب عدم ترك الحقل Result فارغا . اريد رسالة تنبهني غند ترك اي حقل Result فارغا عند خروجي من الفورم الفرعي BSubFrm وهذا المرفق : SomeItemsNill.rar