اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by kha9009lid,

الردود الموصى بها

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

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

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

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

 

عمل الفراز.rar

رابط هذا التعليق
شارك

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

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

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

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

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

تسلم يداك 

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

 cmdFilter_Click

بدلا من

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

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

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

 

عمل الفراز.accdb

  • Like 1
رابط هذا التعليق
شارك

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 تنزيلات

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

سؤال الثاني

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

سؤال الثاني

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

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

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

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

 

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

عمل الفراز.accdb

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

تم تعديل بواسطه فايز..
  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة
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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

 

 

 

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information