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

[hh88]

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

اساتذتي الكرام 

اريد كود لترتيب عرض بيانات تقرير لحقلين  

 

بحيث لدي (حقل تاريخ)  ان يتم ترتيبه من الاحدث الى الأقدم 

واذا وجد اكثر من سجل لنفس التاريخ ان يتنقل ترتيب السجل حسب (حقل الوقت) من الوقت الأكبر الى الأصغر 

 

امل اني وصلت المطلوب 

ولكم فائق الشكر 

[kaser906]

4 ساعات مضت, hh88 said:

امل اني وصلت المطلوب 

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

لست بحاجة الى كود

من منشأ الاستعلام اختر ف الحقل فرز تنازلي

ايضا يمكنك ذلك عند فتح التقرير في عرض التصميم من خلال كلك يمين الماوس

::بالتوفيق::

تم تعديل أبريل 18, 2018 بواسطه kaser906

[hh88]

14 hours ago, kaser906 said:

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

لست بحاجة الى كود

من منشأ الاستعلام اختر ف الحقل فرز تنازلي

ايضا يمكنك ذلك عند فتح التقرير في عرض التصميم من خلال كلك يمين الماوس

::بالتوفيق::

أشكرك اخي الكريم 

ولكن اريد طريقة الاكواد 

الله يسعدك

[kaser906]

تفضل

كود للاستاذ ابو خليل

strFilter = ("SELECT * FROM tbll ORDER BY tbll.name1 ASC;")
    strFilter2 = ("SELECT * FROM tbll ORDER BY tbll.name1 DESC;")
    If chk.Value = 1 Then
    DoCmd.OpenReport "rep1", acViewPreview, strFilter
    Else
    DoCmd.OpenReport "rep1", acViewPreview, strFilter2
    End If

يمثل الجدول مصدر البيانات  و  rep1 يمثل التقرير  و chk حقل في النموذج لوضع قيمة كشرط 

::بالتوفيق::

[hh88]

48 minutes ago, kaser906 said:

تفضل

كود للاستاذ ابو خليل

strFilter = ("SELECT * FROM tbll ORDER BY tbll.name1 ASC;")
    strFilter2 = ("SELECT * FROM tbll ORDER BY tbll.name1 DESC;")
    If chk.Value = 1 Then
    DoCmd.OpenReport "rep1", acViewPreview, strFilter
    Else
    DoCmd.OpenReport "rep1", acViewPreview, strFilter2
    End If

يمثل الجدول مصدر البيانات  و  rep1 يمثل التقرير  و chk حقل في النموذج لوضع قيمة كشرط 

::بالتوفيق::

الف شكر اخي العزيز لكن كيف اقدر أحط شرط ثاني على حقل ثاني في نفس التقرير 

[kaser906]

8 ساعات مضت, hh88 said:

كيف اقدر أحط شرط ثاني على حقل ثاني في نفس التقرير 

هذا الكود من صنع الاستاذ ابو خليل

ولا أعلم كيف تضيف إليه شرط أخر

اولا لأنك لم تضع مرفق يمكننا التطبيق عليه

وثانياً لأني لا استخدم الاكواد في عمليات الفرز والتصفية الا في حالات نادرة جدا

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

::بالتوفيق::

[ابوخليل]

شكرا  للاستاذ  العزيز kaser906  لما  يبذل من وقته وجهده 

اخي الكريم  في التقرير لست بحاجة الى اكواد ، يوجد خاصية الفرز والتجميع

انظر الصورة تتحدث ، 

في الاصدارات الاحدث ابحث عن الفرز والتجميع  قد لا تجده كما في الصورة 

الأعلى يكون له الاولوية في الفرز ثم الذي يليه .. وهكذا ...

 

[kaser906]

41 دقائق مضت, ابوخليل said:

شكرا  للاستاذ  العزيز kaser906  لما  يبذل من وقته وجهده

استاذي الكريم

الشكرموصول لك اولاً 

ونحاول في اوقات الفراغ أن نرد بعض الجميل في ما نعرفه وتعلمناه 

لهذا الصرح الشامخ منتدى اوفسينا

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

::لك خالص شكري وتحياتي::

 

[عبد الفتاح كيرة]

إذا كنت تفتح التقرير من زر أمر فى نموذج

ضع الكود التالى لفتح التقرير و تمرير اسم الحقل الذى تريد الترتيب حسبه

وهو فى هذا المثال حقل اسمه name

DoCmd.OpenReport "YourReportName", acViewPreview, , , , "Names"

ثم فى حدث عند الفتح للتقرير

ضع الكود التالى
Me.OrderBy = Me.OpenArgs
Me.OrderByOn = True

تم تعديل أبريل 20, 2018 بواسطه عبد الفتاح كيرة

[hh88]

جزاكم الله خير أساتذتي الكرام سيتم بأذن الله تطبيق الطرق المقترحة من قبلكم 

اسال الله ان يكتب لكم الأجر في ماتقدموه