Accessna

تم التعديل (على قدر فهمي للمطلوب) Curr_EXCHA28NGE_02.rar

هذا السطر عبارة عن أمر لتنفيذ عبارة SQL بغرض تنظيف/حذف كل السجلات من ملف الأيام قبل إضافة السجلات الجديدة . وبدونه سوف يتم إضافة السجلات الجديدة على السجلات السابقة .

جرب هذا الأمر : DoCmd.SendObject acReport, "Report Name"

المثال بعد التعديل 52.rar

أهلا وسهلا = تعني يساوي Like تعني يشبه في مثالكم هذا يمكنكم استخدام أي منهما فلا فرق .. ولكن: عندما نريد أن نبحث عن أي جزء من نص فسنحتاج قطعا استخدام Like ولا يمكن لـ = أن تقوم بهذه المهمة . أما للبحث فنحن نحتاج إلى بعض العلامات لتحديد نوع القيمة التي نريد نبحث عنها فنحصر القيمة بين علامتين من نفس النوع فمثلا: ' نحتاجها للبحث عن نص . # نحتاجها للبحث عن تاريخ . أما الأرقام فلا نحتاج لهذه العلامات . ومع ذلك أنا أتجنب استخدام التاريخ كتاريخ في البحث فأقوم بتحويل التاريخ إلى أصله كرقم باستخدام الدالة CLng فأتجنب كثير من المشاكل . يبقى البحث عن القيم نعم/لا، Yes/No, True/False فهي في الأصل عبارة عن أرقام كذلك وتعامل معها في البحث كأرقام باستخدام 0 لـ لا و -1 لنعم . ويما أنها كأرقام فلن نحتاج بحصرها بأي من العلامات الموضحة أعلاه .

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

مرفق المثال بعد التعديل date2.rar

المثال بعد التعديل BetweenDatesProblem2.rar

يجب استيراد الموديول الموجود في المثال إلى برنامجك أولا فبدون الموديول أنت تستدعي دالة غير موجودة ! حاول بنفسك . لذلك لن أنزل مثالك .

مثال مرفق NameSplit.rar

http://www.officena.net/ib/index.php?s=&am...ost&p=18979

http://www.officena.net/ib/index.php?s=&am...ost&p=21396

مثال بسيط وصغير .. قد يفيدكم Attachment.rar

مرفق المثال مع فكرة ثالثة . يعاب على الفكرة لزوم إظهار جميع الحقول بالقائمة . إن أمكن سأقوم بعمل فكرة رابعة يوم الجمعة إن شاء الله . Developedsorting2.rar

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

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

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

محاولة .. جربها وشوف تم عمل جدول جديد .. ابحث عنه . تم عمل 4 استعلامات .. ابحث عنهم . تم عمل نسخة أخرى لجدول الموظفين بإسم الموظفين2 ، وتم تبديل بعض الحقول .. ابحث عنهم . طلب "ابحث" حتى تجهد نفسك في البحث والمقارنة والفهم ثم التطبيق دون حاجة لطلب الشرح . Data2.rar

شكرا لك أخي محب العلم الفكرة من تصميمي والتصميم من تفكيري

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

شكرا عمار زيد على المرور . شكرا محب العلم على الشرح . شكرا لتفاعلكم وبارك الله فيكم جميعا .

مثال على التحكم في قسم التفاصيل . - التحكم بعدد الأسطر في الصفحة لـ Dream_Works . - التحكم في الصفحة الأخير من التقرير لـ Accessna . - تصميم المثال ابتداء وبياناته لـ ابوابراهيم . أفكار جميلة وأكواد قوية ، احرصوا على الإطلاع عليها . ReportDetailSectionControl.rar

نعم هو الحل الأمثل أخي محب العلم بارك الله فيكم . ولم تكن الفكرة بعيدة عن ذهني ولكن هذا ما قيدني .

مع كل الشكر والتقدير لمحب العلم تم عمل الحل بالإستعلامات . فميزة الإستعلام سوف تغني عن تخزين النتائج ، يعني مساحة أقل . وعيبها أنك لا يمكن إضافة البيانات من نفس النموذج ، يعني ستحتاج إلى عمل نموذج آخر لإدخال البيانات . يمكن اختصار الإستعلامات من 3 إلى 2 ولكني أحببت أن تكون مفهومة أكثر مع جعلها 3 . judge_Queries.rar

كل عام وأنتم بخير بعد إضافة الأخ Dream_Works الجميلة قمت بإضافة لإجبار قسم التفاصيل بالظهور بإرتفاع واحد بمعنى لو كانت الصفحة الأخيرة من التقرير أقل من عدد السجلات أو الصفوف المطلوبة فستظهر سجلات فاضية أي خالية من البيانات آخر الصفحة . الفكرة ليست لهذا المثال فقط حيث يمكن تطبيق الكود على أي تقرير دون أي تعديل فيه . والحقيقة أنا كنت محتاجه ولكني كنت مكسل أعمله وعند رؤيتي لهذا الموضوع دب الحماس وخرجت بهذا الحل . الحل به مشكلة واحدة ولكنها غير مهمة وهي لم أتمكن من حذف الجدول المنشأ من قبل الكود فهل لدى أحدكم الحل ؟. لا تسألوني عن شرح الكود فأنا لم أتعود أن أشرح أكوادي وحتى لو أردت أن أشرحه فلن أستطيع لأني مش فاهمه . قد أفتح موضوع جديد لهذا الكود فحسب اعتقادي أنه يستحق مع وجود عنوان يدل على محتواه ويسهل الوصول إليه عند الحاجة . ReportRowsControl.rar