hh88 قام بنشر أكتوبر 16, 2017 مشاركة قام بنشر أكتوبر 16, 2017 السلام عليكم ورحمة الله ويركاتة اساتذتي الأعزاء عندي نموذج وعملت فيه فرز لكل حقل ماهو الكود المناسب لجعل نتائج الفرز تكون بتقرير معد سابقا عند الضغط على زر عرض ولكم الشكر 🌹🌹 رابط هذا التعليق شارك More sharing options...
يوسف أحمد قام بنشر أكتوبر 16, 2017 مشاركة قام بنشر أكتوبر 16, 2017 و عليكم السلام و رحمة الله و بركاته تفضل الكود اخي العزيز If Me.FilterOn = False Then DoCmd.OpenReport "rpt1", acViewReport Else DoCmd.OpenReport "rpt1", acViewReport, , Me.filter End If حيث ان rpt هو اسم التقرير تفضل مثال على ذلك بالتوفيق filter.rar رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر أكتوبر 18, 2017 الكاتب مشاركة قام بنشر أكتوبر 18, 2017 On ٢٦/٠١/١٤٣٩ at 6:55 PM, يوسف أحمد said: و عليكم السلام و رحمة الله و بركاته تفضل الكود اخي العزيز If Me.FilterOn = False Then DoCmd.OpenReport "rpt1", acViewReport Else DoCmd.OpenReport "rpt1", acViewReport, , Me.filter End If حيث ان rpt هو اسم التقرير تفضل مثال على ذلك بالتوفيق filter.rar اخي واستاذي العزيز يوسف السلام عليكم ورحمة الله وبركاتة حاولت اطبق الكود على قاعدة بيانات لدي ولم يضبط آمل تحديد المشكلة في مطابقة نتائج الفرز مع مخرجات التقرير مرفق المثال وتقبل خالص شكري وتقديري طلب استفسار.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة يوسف أحمد قام بنشر أكتوبر 18, 2017 أفضل إجابة مشاركة قام بنشر أكتوبر 18, 2017 (معدل) و عليكم السلام و رحمة الله و بركاته الطريقة تحتاج الى تغيير خاصية النموذج FilterOn الى True عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج . نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى بالتوفيق طلب استفسار.rar تم تعديل أكتوبر 18, 2017 بواسطه يوسف أحمد 2 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر أكتوبر 18, 2017 الكاتب مشاركة قام بنشر أكتوبر 18, 2017 1 hour ago, يوسف أحمد said: و عليكم السلام و رحمة الله و بركاته الطريقة تحتاج الى تغيير خاصية النموذج FilterOn الى True عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج . نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى بالتوفيق طلب استفسار.rar الف الف شكر استاذي الكريم يوسف الله يجزاك كل خير ويكتب لك الاجر ان شاء الله فعلا تم حل المشكلة , وهو المطلوب تقبل خالص الشكر والتقدير حبيبنا رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر أكتوبر 22, 2017 الكاتب مشاركة قام بنشر أكتوبر 22, 2017 On ٢٨/٠١/١٤٣٩ at 8:44 PM, يوسف أحمد said: و عليكم السلام و رحمة الله و بركاته الطريقة تحتاج الى تغيير خاصية النموذج FilterOn الى True عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج . نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى بالتوفيق طلب استفسار.rar استاذي العزيز يوسف اسال الله ان يكتب لك الاجر حبيبنا عندما اسوي فرز للتاريخ تظهر رسالة البيانات غير مطابقة هل يتطلب تغير في كود الفرز او نحوه شاكر ومقدر تعاونك حبيبنا طلب استفسار - التاريخ.rar رابط هذا التعليق شارك More sharing options...
يوسف أحمد قام بنشر أكتوبر 24, 2017 مشاركة قام بنشر أكتوبر 24, 2017 بارك الله فيك اخي العزيز و جزاك خير الجزاء على دعواتك الطيبة ... و لك بمثل ما دعوت به و زيادة تم تغيير الكود و استخدام مصدر بيانات النموذج في الفلترة بحيث يتم تعيين اسم مربع التحرير و السرد كمعيار للمصدر و عند فتح التقرير يتم تعيين مصدر بيانات التقرير ليساوي مصدر بيانات النموذج و بذلك يتم فتح التقرير على نفس سجلات النموذج . ليصبح الكود بحدث بعد التحديث لمربع التحرير و السرد الخاص بسرعة الخدمة و المسمى comboSearch كالتالي : Me.RecordSource = "SELECT tbl1.التسلسل, tbl1.[سرعة الخدمة], tbl1.sDate FROM tbl1 WHERE " _ & "(((tbl1.[سرعة الخدمة])=[forms]![فرز]![comboSearch]));" و الكود بحدث بعد التحديث لمربع التحرير و السرد الخاص بالتاريخ و المسمى kk كالتالي : Me.RecordSource = "SELECT tbl1.التسلسل, tbl1.[سرعة الخدمة], tbl1.sDate FROM tbl1 WHERE " _ & "(((tbl1.sDate)=[forms]![فرز]![KK]));" و كود فتح التقرير سيكون امر الفتح العادي للتقرير كالتالي : DoCmd.OpenReport "rpt1", acViewPreview و عند فتح التقرير سيتم تعيين خاصيتة مصدر البيانات RecordSource لتساوي خاصية النموذج مصدر البيانات و ذلك يتم في حدث عند الفتح للتقرير كالتالي : Me.RecordSource = Forms!فرز.Form.RecordSource ملاحظة : تم تغيير اسم الجدول الى tbl1 و اسم حقل التاريخ الى sDate ... وا كرر نصحي لك اخي بعدم اعطاء كائنات الاكسس اسماء عربية تفضل المرفق بعد التعديل بالتوفيق طلب استفسار - التاريخ.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.