ظهور الترتيب فى التقرير كما تم ترتيبه فى النموذج

[محمد احمد لطفى]

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

ظهور الترتيب فى التقرير كما تم ترتيبه فى النموذج
اذا غيرنا ترتيب النموذج فكيف يظهر الترتيب بالتقرير

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

 

test2000.rar

تم تعديل مارس 8, 2019 بواسطه محمد احمد لطفى

[عبدالقدوس48]

الترتيب في التقرير لا يتغير إذا غيرت ترتيب نموزج وكذلك العكس

 

[jjafferr]

وعليكم السلام 🙂

 

هنا ترى احد الطرق:

 

جعفر

[محمد احمد لطفى]

أستاذى @jjafferr
لم أتوصل الى شيى لأن تقريبا النموذج المعروض محمى أو لم أجده 
لى سؤال بعد اذنك 

اعمل على نموذج تصفية البيانات من خلال النموذج 
وهذا الكود يعمل 
 

    stDocName = "َQ1"
    DoCmd.OpenReport stDocName, acPreview, , sub.Form.Filter

حيث يعرض البيانات بعد التصفية (التصفية من خلال النموذج )
هل يمكن التعديل على الكود 
 

DoCmd.OutputTo acOutputReport, "Q1", acFormatPDF, ("RateCard" & Format(Now(), "mmmyyyy hhmmss") & ".pdf"), True

أريد تطبيق الفلتر عليه حتى لا يعرض جميع السجلات بعد التصفية ( يعرض فقط السجلات بعد التصفية كما بالنموذج )

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

[jjafferr]

تفضل 🙂

 

الطريقة هي:

فتح التقرير للمعاينه (بطريقة مخفية) ،

في التقرير ، في خانة الفرز ، نرسل اليه فرز النموذج الفرعي ، ثم نعطي التقرير الأمر بالقيام بالفرز ،

(وفي سطر آخر كذلك يمكننا ان نرسل اليه تصفية النموذج الفرعي Filter ، ثم يجب ان نعطي التقرير الأمر بالقيام بالتصفية FilterOn) ،

ثم نطبع التقرير ، ثم نغلق التقرير .

 

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

    DoCmd.OpenReport "Q1", acViewPreview, , , acHidden
    Reports!Q1.OrderBy = Me.SUB.Form.OrderBy
    Reports!Q1.OrderByOn = True
    
    Dim PauseTime, Start
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    DoCmd.OutputTo acOutputReport, "Q1", acFormatPDF, ("RateCard" & Format(Now(), "mmmyyyy hhmmss") & ".pdf"), True
    
    DoCmd.Close acReport, "Q1", acSaveNo
   

.

وعلى هذا القياس تستطيع عمل تصفية كذلك 🙂

 

جعفر

1027.test2000.mdb.zip

[محمد احمد لطفى]

أستاذى @jjafferr

أسف أستاذى ولكن هذا ما أقصده حيث أنه لا يعمل 
حيث أنه لا يعمل بتصفية البيانات فى هذا النموذج 
ع

 

 

 

6000.rar

تم تعديل مارس 8, 2019 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

عودة حميده أستاذى @jjafferr

في ٨‏/٣‏/٢٠١٩ at 22:54, محمد احمد لطفى said:

أستاذى @jjafferr

أسف أستاذى ولكن هذا ما أقصده حيث أنه لا يعمل 
حيث أنه لا يعمل بتصفية البيانات فى هذا النموذج 
ع

 

 

 

6000.rar 58.48 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

 

[محمد احمد لطفى]

للرفع

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

جرب هذا:test2000.mdb

[محمد احمد لطفى]

أستأذنك أستاذى @أبو إبراهيم الغامدي
بتنفيذه على هذا النموذج 
 

في ٨‏/٣‏/٢٠١٩ at 22:54, محمد احمد لطفى said:

أستاذى @jjafferr

أسف أستاذى ولكن هذا ما أقصده حيث أنه لا يعمل 
حيث أنه لا يعمل بتصفية البيانات فى هذا النموذج 
ع

 

 

 

6000.rar 58.48 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 7 downloads

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

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

طلبك كان بخصوص الترتيب! هل تريد الآن طبيق التصفية أيضا؟

في النموذج الفرعي لديك مصدران للبيانات.. هل تريد أن يكون الترتيب والتصفية وفقا لهذين المصدرين؟ وتطبيق ذلك على التقرير؟

 

[محمد احمد لطفى]

أستاذى @أبو إبراهيم الغامدي
فى النموذج الاول عند استخراج تقرير PDf كان لا يطبق الفلتر فأستاذ جعفر ساعدنى فى استخراجه مع الترتيب 

ولكن حاولت تطبيقه فى النمذج التانى و لم أفلح فى ذلك

[أبو إبراهيم الغامدي]

48 دقائق مضت, أبو إبراهيم الغامدي said:

في النموذج الفرعي لديك مصدران للبيانات.. هل تريد أن يكون الترتيب والتصفية وفقا لهذين المصدرين؟ وتطبيق ذلك على التقرير؟ 

عزيزي محمد أرجو أن تجيب على السؤال أعلاه رجاءً

 

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

راجع التعديل وحاول التبديل بين عرض مصدر البيانات وإجراء التصفية والفرز على كلا المصدرين..

6000.mdb

[محمد احمد لطفى]

أستاذى  @أبو إبراهيم الغامدي

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

    stDocName = "َQ1"
    DoCmd.OpenReport stDocName, acPreview, , sub.Form.Filter

و لكن لا يعمل على المثال الثانى 
لأن تصفية البيانات و الترتيب من النموذج نفسه وليس الاستعلام

[محمد احمد لطفى]

للرفع أستاذى @أبو إبراهيم الغامدي

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

في الواقع انت بحاجة إلى التأكد من إعادة الترتيب التنازلي بعد التصفية فقط !

ملاحظات:

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

.. زر أمر الفرز مكانه الصحيح في رأس النموذج بجانب عنوان حقل التاريخ.

[محمد احمد لطفى]

أستاذى @أبو إبراهيم الغامدي
جزاك الله كل خير خيراً
تم التعديل على المرفق  وهو يعمل 
و لكن عنده نقله الى برنامجى عند الضغط على الزار لا يعمل نهائى 
وعند وقفت عمل الأمر التالى 
 

XReport.Auto_Header0.Caption = Me.All1F.Form.RecordSource

يعمل فارغ ويختفى 
فهل هناك مقترحات لحضرتك و ما فائدة هذا الكود
 

6000 (4).rar

[أبو إبراهيم الغامدي]

اهلا @محمد احمد لطفى

هذا السطر والسطر الأول أيضا كانا من أجل أزرار التبديل التي في الصورة التالية، وبناءً عليه يمكنك حذفهما إن شئت.

 

بالنسبة لبرنامجك أنا لا أعرف آلية العمل فيه! فاعذرني