ابوخليل

للرفع

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

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

لسنا في حاجة الى تثبيت المجاميع او النتيجة ما دمنا نستطيع اظهارها متى شئنا الكود يعمل في حدث تنسيق التفصيل جرب وانقل الكود الى حدث طباعة التفصيل العشرة الأوائل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 يمكنك انشاء موضوع جديد يشتمل على سؤال واحد فقط فإذا حصلت على الاجابة انشء موضوعا آخر وهكذا تعدد الاسئلة والعنواين مطلب ، وعلامة صحية .

الروابط التي وضعتها لك في المشاركة رقم 5 تشرح الطريقة وعلى كل حال : افتح التقرير على التصميم ثم انقر بزر الفأرة الأيمن على المربع StNo واختر : تنسيق شرطي ستتضح لك المسألة امام عينيك

حييت اخي وتفضل تم التعديل على مثالك آمل ان يحقق طلبك Mdbschool.rar

الموضوع مخالف xxxx يجب اختيار عنوان مناسب xxxxxxx يغلق

يا اخوتي الموضوع هذا مخالف لقوانين المنتدي ××××××× حيث أن المواضيع المتعلقة بالكراك والسيريلات ممنوعه في هذا المنتدى ×××××××× يغلق ×××××××× الإدارة

تفضل MO2.rar