ظهار التقرير على حسب الفراز من النموذج

[عبداللهM]

إخواني أعضاء أوفيسنا

السلام عليكم ورحمة الله وبركاته

كل عام وأنتم بخير مبارك عليكم الشهر

ارغب في عمل الفراز على حسب السنة  في النموذج والتقرير

 

عمل الفراز.rar

[عفرنس]

وضح أكثر 

هل تريد كل سنة في صفحة مستقلة ؟؟؟ 

تم تعديل مايو 10, 2020 بواسطه فايز..

[عبداللهM]

بارك الله فيك  ابغي اذا تم عمل الفراز السنة 1438 تظهر البيانات للنسة المذكور  فقط من الاستعلام (WWWA) 

[kha9009lid]

جرب المرفق لعله يكون المطلوب

عمل الفراز.accdb

واذا ترغب تشغيل الفرز فقط من خلال زر الامر الفراز

احذف الكود الموجود في حدث بعد التحديث لمبربع التحرير والسرد cmbLocation

[عفرنس]

18 دقائق مضت, kha9009lid said:

جرب المرفق لعله يكون المطلوب

عمل الفراز.accdb 576 kB · 2 تنزيلات

واذا ترغب تشغيل الفرز فقط من خلال زر الامر الفراز

احذف الكود الموجود في حدث بعد التحديث لمبربع التحرير والسرد cmbLocation

تسلم يداك 

تقول العرب : إذا جاء سيل الله بطل سيل معقل .. 

[kha9009lid]

وايديك استاذ @فايز..

ومبارك عليك الشهر

الحقيقة كنت مستعجلة وعملت الكود في زر الفراز وايضا في حدث بعد التحديث للقائمة المنسدلة cmbLocation

وكان الافضل في حالة تكرار كود معين ان نشير اليه فقط بدون اعادة كتابتة مادام الامر ضمن نفس النموذج

اي ممكن استبدال الكود للقائمة cmbLocation

 cmdFilter_Click

بدلا من

Dim myfilter As String
myfilter = "[year_1]='" & [cmbLocation] & "'"
Me.frmOrder.Form.Filter = myfilter
Me.frmOrder.Form.FilterOn = True

ولا توجد مشكله في ترك الامر بدون تعديل

الملف بعد التعديل

 

عمل الفراز.accdb

[عفرنس]

2 دقائق مضت, kha9009lid said:

وايديك استاذ @فايز..

ومبارك عليك الشهر

الحقيقة كنت مستعجلة وعملت الكود في زر الفراز وايضا في حدث بعد التحديث للقائمة المنسدلة cmbLocation

وكان الافضل في حالة تكرار كود معين ان نشير اليه فقط بدون اعادة كتابتة مادام الامر ضمن نفس النموذج

اي ممكن استبدال الكود للقائمة cmbLocation

 cmdFilter_Click

بدلا من

Dim myfilter As String
myfilter = "[year_1]='" & [cmbLocation] & "'"
Me.frmOrder.Form.Filter = myfilter
Me.frmOrder.Form.FilterOn = True

ولا توجد مشكله في ترك الامر بدون تعديل

الملف بعد التعديل

 

عمل الفراز.accdb 548 kB · 1 تنزيلات

جزاك الله خيرا 

وتقبل منا ومنكم 

[عبداللهM]

بارك الله فيك  يا أخي الكريم

 وجزأك الله خير الجزاء الله

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

سؤال الثاني

في حالة إضافة حقل ثانية للفراز

مع السنة هو المدينة

هل ممكن تعديل على الكواد

مع خالص الشكر والتقدير

 

[عفرنس]

51 دقائق مضت, عبداللهM said:

بارك الله فيك  يا أخي الكريم

 وجزأك الله خير الجزاء الله

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

سؤال الثاني

في حالة إضافة حقل ثانية للفراز

مع السنة هو المدينة

هل ممكن تعديل على الكواد

مع خالص الشكر والتقدير

 

انظر المرفق الأول باستخدام زر الفرز .. والمرفق الثاني بدون استخدام زر الفرز .. أرجو أن يكون المطلوب 

عمل الفراز.accdb

عمل الفراز (1).accdb

تم تعديل مايو 11, 2020 بواسطه فايز..

[kha9009lid]

1 ساعه مضت, عبداللهM said:

سؤال الثاني

في حالة إضافة حقل ثانية للفراز

مع السنة هو المدينة

هل ممكن تعديل على الكواد

نعم كل شي ممكن في اكسس

نستبدل الكود السابق بكود فلترة لحقلين

Dim k As String
Dim x As String
k = "taxt_name1 like '*" & city & "*'"
x = "[year_1] like '*" & cmbLocation & "*'"
Me.frmOrder.Form.Filter = k & " and " & x
Me.frmOrder.Form.FilterOn = True

بالامكان الفلترة بالعام فقط او بالمدينة فقط او الفلترة بالحقلين

الملف مرفق مع رجاء التقيد بتعليمات الموقع سؤال واحد حتى مايزعلوا علينا المشرفين ويغلقوا المشاركة

 

 

 

عمل الفراز(1).accdb

[عبداللهM]

بارك الله فيك  يا أخي الكريم

 وجزأك الله خير الجزاء الله

هذا المطلوب 

[kha9009lid]

منذ ساعه, عبداللهM said:

بارك الله فيك  يا أخي الكريم

 وجزأك الله خير الجزاء الله

هذا المطلوب

بالتوفيق اخي عبد الله والشكر لله سبحانه

 

[kha9009lid]

هذه المشاركة رد على استفسار من احد الزملاء

 بعد مشاهدة الموضوع سالني لماذا لم تسهل الامر وتضع معياري الفلترة مباشرة في الاستعلام بدلا الفلترة عن طريق الكود

فطلبت منه ان يجرب وهو لديه خبرة جيدة في اكسس فحاول ولم يستطيع تنفيذ ذلك

والاجابة بكل بساطة ان النموذج الفرعي هنا مبني على استعلام جدولي

وهذا النوع من الاستعلام لا يقبل المعايير بشكل مباشر كباقي الاستعلامات ويتطلب منا عند الرغبة في وضع معايير ان نقوم بانشاء معلمات