ahmed draz

أخي وليد لن يحدث ماتطلبه فعند اختيار (border style :sizable) سيظهر اسم النموذج اتوماتيكيا لأن اختيار الخيار (border style :None) أو (border style :sizable) تظهران في نفس القائمة فعليك الاختيار بينهما لامحالة

الشرح لم يكن لإخفاء شريط اسم النموذج ولكن لفتح النموذج مباشرة عند تشغيل الاكسس تفضل .... مع اخفاء شريط اسم النموذج (الفورم) https://www.raed.net/file?id=885190

السلام عليكم ورحمة الله أخي الكريم هل نسيت تحميل ملف الاكسس كمرفق من فضلك قم يتحميل الملف كمرفق للتعديل علية وشكراً جزيلا لك

السلام عليكم ورحمة الله أخي الكريم (وليد) تم وضع النموذج الرئيسي ليفتح في بداية تشغيل الاكسس وهذه هي الطريقة رابط للتعديل بكل المطلوب https://www.raed.net/file?id=885144

السلام عليكم ورحمة الله أخي الكريم (تامر عجور) سأقوم بشرح الكود لحضرتك كنجدة لحضرتك و إلا في المنتدى من هو أقدر مني على ذلك تم تعريف المتغيرات aa, bb, xx, y, v على أنها مصوفة Dim aa, bb, xx, y, v تم وضع هذا الحدث (Event) في شريط رأس الصفحة في التقرير (PageHeaderSection) Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) ثم قمنا بتعريف المتغيرات التالية وقمنا بإسناد قيم صفرية لها أي قيم ستسند لها ستكون صحيحة (Integer) بدون كسور أو أعداد سالبة aa = 0 bb = 0 xx = 0 y = 0 v = 0 تم وضع حلقة تكرارية أولى (FOR- NEXT ) عندما يكون المتغير Y مسند اليه قيمة من واحد الى 9 For y = 1 To 9 إجعل المتغير v يساوي المتغير Y زائد المسافة 2 v = y & "2" ثم وضع شرط إذا كان المتغير V غير مسند اليه أي قيمة أو فارغ If Not IsNull(Me(v)) Then ثم حلقة تكرارية جديدة للمتغير bb عندما يكون بين القيمة 1و 2 For bb = 1 To 2 أجعل المتغير aa يساوي المتغيران y و bb aa = y & bb واحعل المتغير aa الحالي الذى أقف عليه يساوي قيمة المتغير xx زائد 800 Me(aa).Top = 800 + xx ٌإقفل الحلقة التكرارية الأولى إذا وصلت قيمة المتغير xx ثم إيقاف الحركة التكرارية Next عند وصول المتغير aa للأعلى xx = Me(aa).Top و إلا أبتدأ الحلقة التكرارية الثانية حيث قيمة المتغير bb مسند له القيمة من 1 الى 2 For bb = 1 To 2 إجعل القيمة للمتغير aa يساوي قيمة المتغير y والمتغير bb aa = y & bb إجعل حالة المتغير aa الحالى الذي أقف عليه (غير مرئي) Me(aa).Visible = False ثم إيقاف الحركة التكرارية Next ثم إغلاق الشرط End If أرجو أن أكون قد أوضحت قليلا مايعنيه الكود

السلام عليكم ورحمة الله عند عملي على القاعدة المرفقة وجدت هذه الرسالة قل اعملوا فسيرى الله عملكم ورسوله والمؤمنون '............................................... إذا فتحت هذه القاعدة فأتقى الله وتعلم ولكن لاتسرق مجهود الأخرين '............................................... فإذا سرقت عملى وانسبته إليك فإنى خصيمك ليوم الدين '............................................... استفد واقتبس ولاتنسانا بالدعاء '............................................... أخوك فى الله / محمد هانى فأذكرك أخي (أنور حسن) أن لا تأتي يوم الفيامه وعليك دين لأحد أوخصوماً نسيتهم في الدنيا فوجدتهم عند الله فعليك أخي الكريم الأستئذان من الاستاذ / محمد هانى قبل العمل على هذه القاعدة ولأن القاعدة غير محمية قمت بتعديل الخطوط فقط لتظهر ازرار الانتقال . user pass admin 123 رابط خارجي للقاعدة لأن حجمها كبير ويخالف قواعد المنتدى https://www.raed.net/file?id=885026

أخي الفاضل (أبو خليل) شكراً جزيلا لك

شكراً أخي (أبو خليل) فقد وجدته Text1 = DCount("*", "الرقمية", "[اسم المدرسة]='" & [اسم المدرسة] & "'") فجزاك الله خيراً

يا أخي الحبيب (ابو خليل) أنا غير خبير بالاكسس وكلامك كله صحيح و إلا ماكنت طلبت كل هذ المساعدات منكم و أعلم كل العيوب التي تقولها فأنا دارس لقواعد البيانات ولكن الجهة التي أساعدها في هذه القاعدة خبراتهم بسيطة جدا ولذلك أتعمد أبسط الطرق كما أعتمد اللغة العربية ولا أقوم بتجزئ الجداول ولا عمل أي علاقات بين الجداول رغم أني أعلم أهميتها وتسهيلها للعمل فهذا مقصود. وهل للمتعلم أن يضيق صدره بأستاذه فأنا جالس تحت جبل أنظر إلية بإعجاب

أخونا المبدع السريع (أبو خليل) شكراً جزيلا لك ولكن لم استطع التوصل لكيفية عملها فلا يوجد حدث أو استعلام فأرجو التلميح فقط لكيفية عملها من فضلك وجزاك الله خيرأ

السلام عليكم ورحمة الله السادة الخبراء الكرام ... إخوني الأفاضل أرجو المساعدة في عمل إحصاء بأعداد الطلاب لكل مدرسة داخل التقرير علما ً بأن التقرر يٌظهر مدرسة جديدة في بداية كل صفحة كيف نفعل هذا دون كتابة اسم المدرسة في المعادلة معدل 2.rar

السلام عليكم أيها الاخوة الأعزاء مرحباًبكم في الاستديو التحليلي لطريقة الأخ العبقري الخبير (ابو البشر) قام أخونا العزيز ( أبو البشر ) بإختيار طريقة عبقرية وسهلة لترتيب الكلمات الثلاث (مستجد) و (دمج) و (قرار) وبدلا من أن يستعمل طريقة أخونا (بحار الأكسس) في أول المشاركة واستخدم الحقل الإضافي والشرط في الجدول IIf([الحالة]="مستجد";1;"") & IIf([الحالة]="دمج";2;"") & IIf([الحالة]="قرار";3;"") أو أن يستعمل طريقة أخونا الفاضل (أبو خليل) المشروحة سابقاً فضل أخونا (أبو البشر) استخدام الشرط نفسه IIf([الحالة]="مستجد";1;"") & IIf([الحالة]="دمج";2;"") & IIf([الحالة]="قرار";3;"") ولكن داخل الاستعلام الخاص بالتقرير أظن أنها فكرة عبقرية و سهلة كثيراً وأظن أيضا أن لكل طريقه مميزاتها و إلا لما كانت مايكروسوفت وضعتها في الاكسس ففي طريقتي أخونا (بحار الاكسس) و أخونا (ابو خليل) وهي طريقة الجدول تصلح أذا كان لدينا عدد كبير من الكلمات التي يتم الترتيب من خلالها وليس ثلاث كلمات كما في المثال لدينا. أما طريقة أخونا (ابو البشر) وهي الشرط داخل استعلام التقرير فهي طريق إحترافية لا تصلح للعدد الكبير من الكلمات التى لن يتسع لها حقل الشرط داخل الاستعلام. والله أعلم. وقال ابن الجوزي رحمه الله: "قوله: ﴿ وَفَوْقَ كُلِّ ذِي عِلْمٍ عَلِيمٌ ﴾ أي: فوق كل ذي علمٍ رفَعه الله بالعلم مَن هو أعلم منه، حتى ينتهي العلم إِلى الله تعالى. تحياتي لكل الأخوة الخبراء والأعضاء الكرام في هذا المنتدى العظيم. أخوكم أحمد دراز 4.rar

السلام عليكم ورحمة الله أخي الفاضل (موسى) اسمح لي بشرح الفكرة نيابة عن أخي الخبير (ابو خليل) كان طلبي هو أن يتم طباعة كلمة (مستجد) و (دمج) و (قرار) بنفس هذا الترتيب ولكن الاكسس يقوم بترتيبهم ابجديا فيقوم بطباعة دمج أولا ثم دمج ثم قرار وللتحايل على هذا الأمر قام أخي (ابو خليل) بعمل جدول وقام بإسناد رقم ID للكلمات الثلاث بالترتيب (مستجد) 1 (دمج) 2 (قرار) 3 ثم قام بعمل استعلام داخل property sheet في قسم Row Source ليقوم التقرير بعرضهم بالترتيب حسب رقم ID متجاوزا بذلك الترتيب الأبجدي للأكسس ثم يقوم مربع النص المسمى (الحالة) في التقرير بأخذ النص أو الكلمات (مستجد) و (دمج) و (قرار) بترتيب ID ثم يقوم التقرير بتكرار الكلمات الثلاث في كل صفحاته لأن مربع النص المسمى (الحالة) موضوع في (الحالة Hader) وأي نص يوضع في شريط مكتوب عليه (Hader) أو رأس في التقرير سيقوم التقرير بتكراره في كل الصفحات. كيف يعرف التقرير أين يضع الكلمات (مستجد) و (دمج) و (قرار)؟ يتم ذلك عن طريق من حقل الحالة في الجدول المسمى (الرقمية) حيث يقوم التقرير بعمل مجموعة وفرز عل الجدول ليضع كل حالة أمام الكلمات (مستجد) و (دمج) و (قرار) الخاصة بها. أرجو أن أكون قد أوضحت قدر الإمكان وشكراً لكم جميعاً.

أخي الفاضل (ابو خليل) أحسنت وجزاك الله خير هذا أفصل كثيرا شكراًجزيلاً

السلام عليكم ورحمة الله خبراء المنتدى الكرام كنت قد شاركت أخ فاضل في المنتدى موضوع عن ترتيب عناصر التقرير بالشكل التالي أولا:مستجد ثانيا: دمج ثالثا: قرار فقام مشكورا بحل المعضلة عن طريق إضافة حقل محسوب داخل الجدول ليقوم بترتيب العناصر بالشكل الصحيح واسناد الفيم 1-2-3 للعناصر (مستجد - دمج - قرار) كالتالي: IIf([الحالة]="مستجد";1;"") & IIf([الحالة]="دمج";2;"") & IIf([الحالة]="قرار";3;"") ولكن بعد العمل تبين أن العمل بهذه الطريقة ليس مثاليا . وأظن أنة يمكن لكود VBA حل المشكلة دون إضافة حقل إضافي في الجدول فأرجو المساعدة وشكراً جزيلاً لكم 2.rar

صديقي بحار الاكسس ماوصلت إليه الان يعود لفضل الله ثم فضلك فشكرا جزيلا لك 2.rar

أحسنت ياصديقي بحار الاكسس لو كنت أمامي لقبلت رأسك وسلمت يداك وشكر جزيلا لوقتك الثمين

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

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

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

أخي الفاضل (بحار الاكسس) شكرا جزيلا لسرعة استجابتك أحسنت وجزاك الله خيرا

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

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

السلام عليكم أخي الكريم ليست كل الطلبات قابلة للتنفيذ فطلبك خارج نطاق ما يفعله الاكسس وداخل نطاق نظام التشغيل وغالبا هو نظام ويندوز وهو نظام مغلق ومحمي كما أن معظم خبراء المنتدى لا يعلمون الفائدة من إخفاء نافذة الطباعة وجزاكم الله خيراً

السلام عليكم ورحمة الله للرفع إذا سمحتم وجزاكم الله خيراً