ابوخليل

تأكد من صحة مثالك المرفق مثلا الحقل [k_1] غير موجود والماكروا محذوف مؤكد كثير من اخوانك جربوا .. لذلك لم يتفاعلوا .. ولم تتلق رد

تفضل تقريبا التقارير كما خططتها انت بالنسبة للنماذج حين استغربت عدم ظهور البيانات ، فالنماذج صممت للادخال فقط وليس العرض ايضا يمكنك تحويل نماذج الادخال الى نماذج مفردة بدلا من مستمرة مسألة العرض .. التقارير تقوم بالمهمة اذا اردت التعديل على البيانات يمكنك عمل نموذج واحد خاص للتعديل على جدول العمليات Data5.rar

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

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

test (3).mdb

تفضل يابو محمد اذا احتجت مخرجات اخرى يمكنك عرض طلبك هنا ولن يألوا جهدا اخوانك هنا من الخبراء والاعضاء في مساعدتك ملحوظة : للدخول على التصميم اضغط على مفتاح الشيفت متزامنا مع فتح البرنامج DataFarm.rar

انا اضفت هذه الأسطر فقط داخل الحدث

استفسارين : 1- هل كل المزارعين مثل بعض متساوين في نصيبهم من هذه المساحة ؟؟ ام يوجد اختلاف في الحصص ؟؟ 2- في الصورة المرفقة يتضح باقي الأفدنة بالسالب .. هل هذا حقيقي ؟؟ يعني هل يحق للمزارع زراعة مساحات اكبر من نصيبه المقرر ؟؟ التصميم يعتمد على اجابتك الدقيقة

If IsNull(Me.mont) Then msgbox "معلومات غير مكتملة" Exit Sub Else DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير DoCmd.RunCommand acCmdPrint End If

كل شيء ممكن باذن الله اللي فهمته : عندنا مزارع / منتج / مساحة حاول تشرح الفكرة مفصلا كي تجد المساعدة من اخوانك الاكسس يختلف في التصميم وتنفيذ الفكرة عن اكسل لذا اشرح العملية بإسهاب

عليكم السلام If IsNull(Me.mont) Then msgbox "معلومات غير مكتملة" Exit Sub Else DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير 'DoCmd.OpenReport "table1", acViewNormal ' طباعة مباشرة End If الشرط.accdb

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

تمام امسح بيانات الجدول ثم اعد ادخال بيانات من جديد ثم تعامل مع هذه البيانات في استعلاماتك وتقاريرك لاحظ ان المعيار بين التبرعات والنفقات هو رقمي 1 ، 2

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

هذه المرة الثانية تذكر انه لا يفتح الملف مضغوط يجب ان تفك الضغط عنه اولا الملف يعمل بكفاءة 100% .. جربته اكثر من مرة تفضل هذا ملف غير مضغوط test13.accdb

الحقيقة جلست وقت طويل من اجل تنظيم وترتيب الجداول اي مشروع يجب ان تكتمل جميع الجداول في البداية قبل الانتقال الى غيرها الق نظرة وتفحص جيدا عملية التصميم 6 جداول تم اختزالها في 3 بيانات الانفاق في الجدولين الفرعيين بحاجة الى اعادة نظر لانها متشابهه Data1.rar

تفضل ' من روائع ابي هادي مع بعض تصرف '-------------------------------------- Const YearAvg = 365.25 Dim vDays As Long '---------------- Dim vyy As Integer Dim vmm As Integer Dim vdd As Integer Dim alldays As Integer, halfdays As Integer alldays = DateDiff("d", date1, date2) halfdays = alldays \ 2 If Me.Frame1 = 1 Then vDays = alldays Else vDays = halfdays End If vyy = Fix(vDays / 365) If Fix(vyy * YearAvg) > vDays Then vyy = vyy - 1 End If '------------------------------- vDays = vDays - Fix(vyy * YearAvg) '------------------------------- vmm = Fix(vDays / 29.5) If IIf(vmm > 2, CLng((vmm - 2) * 30.6) + 59, CLng(vmm * 30.6) + Int(vmm > 1) * 2) > vDays Then vmm = vmm - 1 End If '------------------------------- vdd = vDays - IIf(vmm > 2, CLng((vmm - 2) * 30.6) + 59, CLng(vmm * 30.6) + Int(vmm > 1) * 2) Me.m_d = vdd Me.m_m = vmm Me.m_y = vyy test13.rar

تفضل اتمنى يحقق مطلوبك test12.accdb

انظر ان كان هذا مطلوبك Aziz2.rar

امامك طريقتين الاولى : ان تجعل السجل هذا في جدول خاص لا يشمله التفريغ .. وبعد التفريغ تعمل استعلام الحاق .. لنسخ السجل الى الجدول المطلوب الثانية : ان تكون بيانات السجل مكتوبة في الكود داخل محرر الفيجوال .. وبعد التفريغ تشغل الكود لنسخ هذه البيانات الى الجدول في المرفق ادناه طبقت الطريقة الثانية : DoCmd.RunSQL "INSERT INTO tbl1 ( id, sUser, sName ) SELECT ""15"" , ""0547812356"" , ""احمد فهمي"" " test.rar

تفضل treeView.rar

التبرع العيني يجمع حسب النوع لذا يلزم وجود جدول فرعي للمواد العينية اين الجداول التي طلبت منك؟

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

المرفق بدون ضغط teste2.accdb

المرفق teste2.rar