ابوخليل

اخي محمد اغبطك على ذوقك الرفيع في التصميم وسوف استعرض المرفق لاحقا على اصدار اوفيس أحدث في الاصدار 2003 يمتنع عرض التقرير من خلال النموذج اقصد بـ من خلال اي : عرض التقرير داخل النموذج مثل النموذج الفرعي

لايمكننا استعراض التقارير من خلال النموذج بينما يمكننا عرض النماذج الفرعية من خلال التقرير

السلام عليكم لا يمكنني الاطلاع على المرفق بسب الاصدار بالنسبة للراتب : هل يتم الاحتفاظ بقيم الرواتب القديمة ؟ اذا نعم : نستخدم استعلام الحاق ( الراتب القديم +500) اذا لا : يمكنك عمل ذلك باستخدام استعلام التحديث لحقل الراتب اما الاجازات فعادة لا يتم تثبيت المستحق من الاجازة داخل الجدول وانما يتم تثبيت ما تم صرفه حيث يتم احتسابها بناء عللى تاريخ المباشرة وحتى اليوم الحالي ويطرح منها ما تم التمتع به فمثلا اذا كانت مباشرة الموظف قبل سنة فاستحقاقه من الاجازة 12*5= 60 يوما يطرح منها ما تم صرفه ليتبقى له رصيده من الاجازة

يمكن تطبيق ما تفكر به كالتالي : 1- اعمل استعلام تحديد تجميعي وضع داخله المعيار المذكور 2- اجعل حقول البيانات في التقرير غير منضمة داخل مقطع الراس او التذييل كالتالي : الحقول الافقية بعدد السنوات والحقول الرأسية بعدد نوع ترك العمل 3- اجلب البيانات من الاستعلام الى التقرير بواسطة الدالة dlookup بمعلومية شرطين : - السنة - نوع ترك الخدمة

شكرا لاخي رضوان والشكر موصول ايضا لاخي اسير الشروق الاعمال التي يقوم بها المشرفون لتنظيم المنتدى لا يراد منها العقاب وانما هي اعمال تنظيمية بحتة تم فصل مشاركة الاخ الكريم في موضوع مستقل هنا http://www.officena.net/ib/index.php?showtopic=58958#entry376036

للرفع

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

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

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

عندي .. التقرير يعرض الاوائل انظر الصورة

تفضل مطلوبك db.rar

Private Sub Form_Open(Cancel As Integer) If CurrentProject.Name = "myName.mdb" Then Else DoCmd.Quit End If End Sub

تفضل تم التعديل حسب رغبتك جعلنا هذا المعيار في حقل التاريخ داخل الاستعلام >Year(Date())-10 الرقم 10 يعني السنوات التي سيتم عرضها تنازليا قاعدة البيانات11.rar

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

على ماذا يحتوي جدول العملاء ؟ اشرح العملية التي تجري بالتفصيل

ثانيا تطبيق الفكرة داخل الاستعلام نحتاج الى صنع وحدة نمطية عامة تقوم بالعمليات المشروطة السابقة ومن ثم نقوم بتوظيفها داخل الاستعلام وما يهمنا هنا هو الحقل الرابع والذي هو حقل اسم العائلة اما الحقل الاول فقد تمكنا منه من خلال اول مشاركة وستكون الوحدة النمطية على هذا الترتيب Public Function qsplit4(FullName As String) On Error Resume Next Dim x As Integer x = Len(FullName) - Len(Replace(FullName, " ", "")) qsplit4 = Split(FullName, " ")(x) End Function تجزئة النص في الاستعلام حسب التحديد.rar

للشرط النصي Text1 = DLookup("[ID]", "Table1", "[SName]='" & [TextName] & "'") للشرط الرقمي Text1 = DLookup("[ID]", "Table1", "[id]=" & me.id ) بدون شروط اذا كان الجدول يحتوي على سجل واحد فقط Text1 = DLookup("[ID]", "Table1")

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

أولا : تطبيق الفكرة داخل النموذج في حقول غير منضمة On Error Resume NextDim x As Integer x = Len([txtNm]) - Len(Replace([txtNm], " ", "")) 'هذا السطر لعد الفواصل بين الأسماء name1 = Split(txtNm, " ")(0) ' الصفر يعني ما قبل الفاصلة الأولى ​ 'اذا كان عدد الفواصل=1 يعني اسمين فقط سيتم تعييين الاسم الثاني كاسم عائلة If x = 1 Then name4 = Split(txtNm, " ")(1) If x = 2 Then name4 = Split(txtNm, " ")(2) ' If x = 3 Then name4 = Split(txtNm, " ")(3) ' If x = 4 Then name4 = Split(txtNm, " ")(4) ' وفي المثال غنية عن زيادة المقال يتبع .. _تجزئة النص في النموذج حسب التحديد .rar

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

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

انظر هنا فالفكرة مشابهة http://www.officena.net/ib/index.php?showtopic=50808&p=314783#entry314783

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

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

اخي الكريم : لاحظ انك كنت سببا رئيسيا في عدم استجابة الاعضاء السؤال مخالف لقواعد المشاركة يجب ان تحتوي المشاركة على استقسار واحد فقط xxxxxxx يغلق الموضوع xxxxxxx يمكنك انشاء موضوع جديد يشتمل على سؤال واحد فقط فإذا حصلت على الاجابة انشء موضوعا آخر وهكذا تعدد الاسئلة والعنواين مطلب ، وعلامة صحية .