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

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


hh88

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

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

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

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

 

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

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

 

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

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

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

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

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

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

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

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

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

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

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

14 hours 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 حقل في النموذج لوضع قيمة كشرط 

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

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

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 حقل في النموذج لوضع قيمة كشرط 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

Untitled.jpg

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information