أحمد العيسى

السلام عليكم فيما يلى بالمرفقات جدولين مرتبطين أحدهما للمحافظة وكود المحافظة القومى tbl_Town ، والآخر للإدارات التعليمية التابعة لتلك المحافظة tbl_Kind مطلوب تكرماً من كل زميل مراجعة تلك الإدارات بمحافظته بالتصويب أو الإضافة أو الحذف لتصحيح تلك المعلومات لأنه تم جمع أسماء تلك الإدارات ( 255 إدارة ) من مصادر مختلفة .. التى قد تكون صحيحة أو خطأ تحياتى وشكرى لكم مقدماً db.rar

ما أسلفته حضرتك هو نسخة معدلة من تطبيق " مساعد جداول العرف 7 النسخة السعودية" التى قمت بتصميمه على الأكسس فى الماضى البعيد بالتعاون مع السعودى حسين21 هذا التطبيق مرفق مع البرنامج الأصلى "الجداول المدرسية 7 لشركة العرف بالسعودية" فى الرابط التالى https://cloud.mail.ru/public/CpVv/AwEswPva2 ومعه النسخة المصرية ، والشرح للبرنامج والتطبيق يمكنك الإطلاع عليه بعد تحميل ما سبق

بارك الله فيك أخى جعفر كان درساً دسماً .. لك تحياتى وتقديرى

معلش "على رأى المصريين" .. تعبتك معايا أضفت بيانات إضافية للجدول فى الملف المرفق للإختبار ما زال الخطأ فى استخلاص النتائج موجوداً فى تخصصى الملابس والزخرفة الوحيد الذى نتائجه صحيحة هو استعلام التوحيد 853.1.db2.rar

لو استطعت الاستفادة من استعلام التوحيد فى طباعة تقرير منه لتم حل المشكلة الآن لجأت لأسلوب آخر أكثر تعقيداً فى استخلاص نتائج مفصلة .. لكن للأسف أول 5 خانات من الجدول التالى صحيحة ويتطابقوا مع استعلام التوحيد ، والباقى ليست صحيحة .. أين الخطأ ما لجأت إليه فى السطور التالية مسيحى_ت: Count(IIf([Trshh]="تبريد" Or ([Trshh]="تبريد" Or [Trshh] Is Null) And ([SumTotal]>=[A]) And ([Wrship]="مسيحى") ;"")) مسلم_ت: Count(IIf([Trshh]="تبريد" Or ([Trshh]="تبريد" Or [Trshh] Is Null) And ([SumTotal]>=[A]) And ([Wrship]="مسلم") ;"")) مستجد_ت: Count(IIf([Trshh]="تبريد" Or ([Trshh]="تبريد" Or [Trshh] Is Null) And ([SumTotal]>=[A]) And ([Case]="مستجد") ;"")) منقول_ت: Count(IIf([Trshh]="تبريد" Or ([Trshh]="تبريد" Or [Trshh] Is Null) And ([SumTotal]>=[A]) And ([Case]="منقول") ;"")) باق_ت: Count(IIf([Trshh]="تبريد" Or ([Trshh]="تبريد" Or [Trshh] Is Null) And ([SumTotal]>=[A]) And ([Case]="باق") ;"")) مسيحى_م: Count(IIf([Trshh]="ملابس" Or ([Trshh]="ملابس" Or [Trshh] Is Null) And ([SumTotal]>=[B] And [SumTotal]< [A]) And ([Wrship]="مسيحى") ;"")) مسلم_م: Count(IIf([Trshh]="ملابس" Or ([Trshh]="ملابس" Or [Trshh] Is Null) And ([SumTotal]>=[B] And [SumTotal]< [A]) And ([Wrship]="مسلم") ;"")) مستجد_م: Count(IIf([Trshh]="ملابس" Or ([Trshh]="ملابس" Or [Trshh] Is Null) And ([SumTotal]>=[B] And [SumTotal]< [A]) And ([Case]="مستجد") ;"")) منقول_م: Count(IIf([Trshh]="ملابس" Or ([Trshh]="ملابس" Or [Trshh] Is Null) And ([SumTotal]>=[B] And [SumTotal]< [A]) And ([Case]="منقول") ;"")) باق_م: Count(IIf([Trshh]="ملابس" Or ([Trshh]="ملابس" Or [Trshh] Is Null) And ([SumTotal]>=[B] And [SumTotal]< [A]) And ([Case]="باق") ;"")) مسيحى_ز: Count(IIf([Trshh]="زخرفة" Or ([Trshh]="زخرفة" Or [Trshh] Is Null) And ([SumTotal]<[B]) And ([Wrship]="مسيحى") ;"")) مسلم_ز: Count(IIf([Trshh]="زخرفة" Or ([Trshh]="زخرفة" Or [Trshh] Is Null) And ([SumTotal]<[B]) And ([Wrship]="مسلم") ;"")) مستجد_ز: Count(IIf([Trshh]="زخرفة" Or ([Trshh]="زخرفة" Or [Trshh] Is Null) And ([SumTotal]<[B]) And ([Case]="مستجد") ;"")) منقول_ز: Count(IIf([Trshh]="زخرفة" Or ([Trshh]="زخرفة" Or [Trshh] Is Null) And ([SumTotal]<[B]) And ([Case]="منقول") ;"")) باق_ز: Count(IIf([Trshh]="زخرفة" Or ([Trshh]="زخرفة" Or [Trshh] Is Null) And ([SumTotal]<[B]) And ([Case]="باق") ;""))

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

فعلاً .. ما زلت فى حاجة للمساعدة بخصوص استعلام التوحيد ، كيف أأخذ منه بياناته فى تقرير أرفقت لك مثال بهذا الاستعلام ومعه تقرير باسم"تقرير_إحصائية_مفصلة" رجاء التعديل عليه مع جزيل الشكر db3.rar

هى محاولة ( لعل وعسى ) بعمل استعلام توحيد كما اشرت باستخدام الاستعلامات الثلاثة كهرباء ، ملابس ، زخرفة فأنتج الاستعلام التالى الأرقام التى بالجدول صحيحة الصف الأول للكهرباء ، الصف الثانى للملابس ،الثالث للزخرفة .. كيف أأخذ تلك الخانات كما تعودت لتقرير حاولت صنع رؤوس مختلفة عند كتابة هذا الـ SQL فأخذ الرؤوس الأولى كعناوين فى أول صف !!! SELECT Count(IIf([Wrship]="مسيحى","")) AS مسيحى_كهرباء, Count(IIf([Wrship]="مسلم","")) AS مسلم_كهرباء, Count(IIf([Case]="مستجد","")) AS مستجد_كهرباء, Count(IIf([Case]="منقول","")) AS منقول_كهرباء, Count(IIf([Case]="باق","")) AS باق_كهرباء FROM كهرباء; union all SELECT Count(IIf([Wrship]="مسيحى","")) AS مسيحى_ملابس, Count(IIf([Wrship]="مسلم","")) AS مسلم_ملابس, Count(IIf([Case]="مستجد","")) AS مستجد_ملابس, Count(IIf([Case]="منقول","")) AS منقول_ملابس, Count(IIf([Case]="باق","")) AS باق_ملابس FROM ملابس; union all SELECT Count(IIf([Wrship]="مسيحى","")) AS مسيحى_زخرفة, Count(IIf([Wrship]="مسلم","")) AS مسلم_زخرفة, Count(IIf([Case]="مستجد","")) AS مستجد_زخرفة, Count(IIf([Case]="منقول","")) AS منقول_زخرفة, Count(IIf([Case]="باق","")) AS باق_زخرفة FROM زخرفة;

شكرى وتقديرى لتجاوبك ومجهودك الكبير الرائع أعترف بأننى أول مرة أتشرف بمقابلة استعلام التوحيد ويبدو أنه يقوم بالعد لمن يحقق شرطين معاً (مسلم+باق) ، (مسلم+مستجد) وهكذا فى حين أننى أريد كم عدد المسلمين فى التخصص الواحد وكم عدد المستجدين فى نفس التخصص و... لقد وصلت لهذه النتيجة ولكن على مستوى الصف الأول بأكمله وليس على كل تخصص على حده .. ووضعت ذلك فى تقرير تبريد: Count(IIf([Trshh]="تبريد" Or ([Trshh]="تبريد" Or [Trshh] Is Null) And ([SumTotal]>=[A]);"")) ملابس: Count(IIf([Trshh]="ملابس" Or ([Trshh]="ملابس" Or [Trshh] Is Null) And ([SumTotal]>=[B] And [SumTotal]<[A]);""))

أعانك الله على كثرة الردود .. المثال تم إرفاقه مع بداية الموضوع ، وقد وصلت فى تعديله لنصف الحل الاستعلام " إحصائية " يأخذ شروطه من جدولين لينتج الأعداد التى سوف استخدمها فى تقرير خاص هل من الممكن إستخراج نفس النتائج من استعلامات التخصص " تبريد - زخرفة - ملابس " بمعنى كم مستجد وكم باقى وكم مسلم وكم مسيحى فى كل تخصص على حده أرجو أن أكون قد أوضحت سؤالى ، وإلا سوف ألجأ إلى وضع الصور بالمرفق التالى ما توصلت إليه فى الإحصاء العام لكامل الجدول وليس لكل تخصص db2.rar

السلام عليكم بالمثال المرفق ثلاث استعلامات تحديد مبنية على توزيع الطلبة بناءاً على مجموعهم إلى ثلاث تخصصات ويوجد استعلام رابع باسم "إحصائية" يستخرج من الجدول الأصلى عدد المسلمين والمسيحيين والمستجدين و... والمطلوب تفضلاً استخراج عدد كل تخصص منفرداً وإلحاقة باستعلام "إحصائية" شكراً مقدماً db1.rar

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

شكراً أخى عبد اللطيف لتفضلك بالرد .. لكن أنا أعمل على 2003 أخى جعفر .. عذراً كنت أظن أن الموضوع لا يحتاج إلا نصيحة فى تعديل التنسيق فقط عموماً .. قمت بتعبئة الملف بالبيانات وأرفقته مجدداً لكن لى سؤال أكبر : ألا يمكن تصميم صفحة جدول ثابت بالتقرير ويتم ملئ سطوره بالبيانات مثل ما يحدث بدمج مراسلات وورد شكرى وتقديرى لك db2.rar

جربت من قبل هذا الحل .. ولم يفلح أرسلت لك تصميم التقرير .. وأأمل اكتشاف خطأ التنسيق db1.rar

السلام عليكم احترت كثيراً فى تنسيق هذا الجدول فلم أوفق هل هناك نصيحة غائبة عنى تساعد فى ذلك

تمام .. أشكرك بارك الله فيك

جربت الآن تشغيل التطبيق على أكسس 2007 وباستخدام الأمر : DoCmd.OutputTo acOutputTable, stDocName, acSpreadsheetTypeExcel8, "C:\" & "المدرسين" & ".xls", False 'Excel 2003 ينتج رسالة الخطأ التالية: لكن إذا استخدمت الأمر التالى على أكسس 2007 لا ينتج أخطاء DoCmd.OutputTo acOutputTable, stDocName, "ExcelWorkbook(*.xlsx)", "C:\" & "المدرسين" & ".xlsx", False 'Excel 2007 السؤال : كيف يمكن للتطبيق أن يشعر بنسخة الأكسس ويختار الأمر المناسب له ، أو ما هو الأمر الذى يصلح لجميع النسخ

عندك حق فيما سبق قمت بالطباعة من خلال الطابعة الوهمية pdf Factory التى تقوم بتحويل ما يتم طباعته إلى ملف pdf عندما أعدت الطباعة على طابعة فعلية Samsung ظهر الإطار كما المعاينة وكما -أنت- أسلفت

"مجموعة إضافية " مع إضافة name تصاعدى فى فرز وتجميع .. تمام بارك الله فيكما

السلام عليكم عند طباعة تقرير بأسماء مدرسين باختلاف تخصصاتهم ينتج ترقيم (مسلسل) متصل من أول أسم إلى نهاية الأسماء المطلوب تكرماً شرح كيفية عمل تسلسل منفصل لكل مجموعة منهم يوجد مثال بالمرفقات db1.rar

المتوفر عندي الان أكسس 2003 وتلك الأوامر تستخدم فيه بلا أخطاء، لكن لم أجرب صحة مستخرجات 2007 السؤال بصيغة أخرى: ما الأوامر المستخدمة لديك؟

السلام عليكم الأمر التالى استخدمته لاستخراج جدول إلى ملف أكسل 2003 DoCmd.OutputTo acOutputTable, stDocName, acSpreadsheetTypeExcel8, "C:\" & "المدرسين" & ".xls", False هل لو تم تعديل بسيط على الأمر السابق بالشكل التالى يصلح للتصدير إلى 2007 وما فوق DoCmd.OutputTo acOutputTable, stDocName, "ExcelWorkbook(*.xlsx)", "C:\" & "المدرسين" & ".xlsx" فى انتظار آراءكم

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

لنفرض أن لديك مربع نص الذى سوف تضع فيه الرقم القومى وليكن أسمه : National_Nr ، مربع نص سوف يأخذ معلوماته فى النوع من السابق وليكن أسمه : gender ، مربع نص ثالث سوف يأخذ معلوماته فى المحافظة وليكن أسمه : Mohaftha ، مربع نص رابع سوف يستقطع تاريخ الميلاد وليكن أسمه : birth من مربع النص National_Nr فى خاصية حدث بعد التحديث أنسخ الكود التالى:- Private Sub National_Nr_AfterUpdate() Dim x, y, z, r As Byte Dim xx As String * 2 Dim MyProvinces As Variant x = Left(Me.National_Nr, 1) If x = 2 Then Me.birth.Value = Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2) Else Me.birth.Value = 20 & Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2) End If '======= y = Left(Right(Me.National_Nr, 2), 1) Mod 2 If y = 1 Then Me.gender.Value = "ذكر" Else Me.gender.Value = "أنثى" End If '======= MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "03/بورسعيد", "04/السويس", "11/دمياط", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "31/البحر الأحمر", "32/الوادى الجديد" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "23/الفيوم", "24/المنيا", "25/أسيوط", "34/شمال سيناء", "35/جنوب سيناء" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "88/خارج مسر") z = Mid(Me.National_Nr, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If z = xx Then Me.Mohaftha.Value = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End Sub الكود السابق تم أخذه من هنا بالمنتدى ... الأفضل عمل ملف توضيحي بالمرفقات .. تفضل db1.rar