ابوخليل

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

النموذج الذي انشأته يشتمل على حقل جدولي فارغ وهو ما سبب مشكلة لقاعدة البيانات تم ازالة الحقل الفارغ واعداد زر البحث كما تريد a4b.rar

شكرا استاذ عبدالله على المداخلة زادك الله علما ووفقك لكل خير الاخ السائل يعمل على الاصدار 2003 كما ذكر اعلاه وهذا السطر هو البديل : DoCmd.RunCommand acCmdDocMinimize وانما اردته ان يبحث ليستفيد ويستزيد لان الطرق متعددة ومتنوعة كما تعلم

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

المنتدى مليء بالامثلة والشروحات في هذا الباب فقط ابحث ...

قبل النقر على الملف اضغط على زر shift واستمر بالضغط وانت تنقر على الملف سيفتح اكسس على التصميم

جدول الممون موجود وتقدر تعمل عليه نموذج ادخال بيانات يخص الممونيين اما الضوابط فهي كالتالي : 1- اضافة حقل باسم المكتب في جدول الممون ( لكي يظهر في التقرير مع الموظفين ) 2- المبلغ وتاريخه لا يكون في جدول الممون والسبب ان المبلغ معلوم في جدول العمليات وايضا هو متجدد متعدد ولكن ان اردنا اثبات استلام كفاتورة فيجب صنع جدول خاص بالتسليم مع الفورم يكون فيه رقم الممون وقدر المبلغ وتاريخ الفاتورة وطبعا قدر المبلغ سيظهر آليا ( بدون تدخل ) ويتم جلبه من جدول العمليات خلال الشهر المحدد

برنامج اكسس عالق في الذاكرة اضغط ctrl + Alt + Dell وافتح ادارة المهام واغلق من هناك برنامج اكسس لزيادة الايضاح انظر هنا http://www.officena.net/ib/topic/28557-إليكم-حلاً-لمشكلة-تعليق-قاعدة-البيانات-في-الذاكرة/#comment-139598

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

ما ذا تريد ان تعمل به ؟ الآن مبالغ الممون تخرج مع المجموع الشهري هل تريد ان تعمل تقريرا خاصا للمونيين بمبالغهم الشهرية ؟

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

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

سيكون هكذا : Private Sub trns2_AfterUpdate() On Error GoTo Err_trns2_Click If IsNull(mnth2) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If Dim stDocName As String if trns2 = "ccp" then stDocName = "VIREMENTCCP" else stDocName = "rptTransBnk" end if DoCmd.OpenReport stDocName, acPreview Exit_trns2_Click: Exit Sub Err_trns2_Click: If Err.Number = 2501 Then Resume Exit_trns2_Click Else MsgBox Err.Description Resume Exit_trns2_Click End If End Sub

تعديل العلاقة سهلة جدا مصدر كل تقرير هو استعلام داخلي او ما يسمى فرعي لو فتحت مصدر بيانات اي تقرير سيظهر لك الاستعلام وترى العلاقة بين الجداول تم تعديل مثالك الاخير Karem12up.rar

نعم صحيح حقلي تاريخ الاستفادة ونوع المبلغ ضروريان ولكن يوجد خلل في الاستعلامات الفرعية داخل التقريرين الخلل في العلاقات العلاقة الموجودة حاليا بين حقلي ID والصحيح ان تكون بين حقلي EmployeeID جرب بعد ملىء الحقول الفارغة وتعديل العلاقة

اللهم رب الناس أذهب البأس اشفه أنت الشافي لا شفاء إلا شفاؤك اللهم اشفه وعافه .. شفاء لا يغادر سقما

تم التعديل على كافة التقارير جرب من خلال هذا المرفق Karem11.rar

وحتى التقريرين الآخرين لا يتم التصفية حسب السنة والامر سهل : نعمل حقل في الاستعلام الفرعي في كل تقرير .. نعمل مثل حقل الشهر لان حقل الشهر يخرج رقم الشهر ، فنعمل حقل يظهر رقم السنة ونضع له معيار ناخذه من خلال النموذج

تفضل جرب الآن Karem10.rar

في التقريرين rptTransfer و ptTransferAll استبدل السطر الثاني الموجود في الكود بهذا السطر i = Forms!FrmTransfer!mnth11

نعم فكرة صائبة وهي طريقتك السابقة تم التعديل Karem9.rar

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

يبدوا اننا نسينا معيار الانتقاء الشهري تفضل تم التعديل Karem8.rar

عملك صحيح فقط تختار العمود الثاني بدلا من الاول ايضا انت تستخدم ترجمة خاصة لاستخراج مسميات الشهور بالفرنسية لذا انت بحاجة الى سطرين Dim i As Date i = Forms!FrmTransfer!mnth.Column(1) M1 = FrenchMonth(Month(i)) & " - " & Year(i) Karem7.rar

ما يصير الجدول مليء بالتواريخ اجعله يأخذ القيمة من مربع التحرير الموجود في النموذج