تصفية عناصر من التقرير قبل طباعته

[Abdelaziz Osman]

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

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

اريد طريقة من خلالها اختيار بعض العناصر فقط من بيانات التى ظهرت بالتقرير هى التى يتم خروجها فى الطباعة دون غيرها 

بمعنى طريقى بها اعمل علامة او اختيار نعم بجانب الصف بحيث هو اللى يظهر فقط ورقة الطباعة 

 

او بمعنى اخر هل يوجد طريقة لتصفية نتائج الاستعلام قبل التقرير عن طريق الضغط بالماوس على العنصر المراد اظهاره فى التقرير للطباعة 

bayan.accdb

تم تعديل يناير 9 بواسطه Abdelaziz Osman

[safaa salem5]

1 hour ago, Abdelaziz Osman said:

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

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

اريد طريقة من خلالها اختيار بعض العناصر فقط من بيانات التى ظهرت بالتقرير هى التى يتم خروجها فى الطباعة دون غيرها 

بمعنى طريقى بها اعمل علامة او اختيار نعم بجانب الصف بحيث هو اللى يظهر فقط ورقة الطباعة 

 

او بمعنى اخر هل يوجد طريقة لتصفية نتائج الاستعلام قبل التقرير عن طريق الضغط بالماوس على العنصر المراد اظهاره فى التقرير للطباعة 

bayan.accdb 680 kB · 2 downloads

لتحقيق ذلك، يمكنك اتباع الخطوات التالية:

1. قم بإنشاء نموذج في الاكسيس واجعل مصدره جدول البيانات الذي ترغب في طباعته.
2. أضف زرًا للطباعة على النموذج. يمكنك القيام بذلك عن طريق الانتقال إلى علامة التبويب "إنشاء" واختيار "زر الأمر" من مجموعة أزرار النموذج.
3. افتح نافذة تصميم النموذج وحدد الزر الذي قمت بإنشائه.
4. انتقل إلى خصائص الزر من خلال النقر بزر الماوس الأيمن على الزر واختيار "خصائص".
5. في نافذة خصائص الزر، انتقل إلى علامة التبويب "حدث" واختر "النقر" من قائمة الأحداث.
6. انقر فوق زر "المنشئ" المجاور لحقل الحدث لإنشاء معالج حدث جديد.
7. في محرر الشفرة، قم بإضافة الشفرة التالية:

```
Private Sub CommandButton_Click()
    Dim selectedItems As String
    Dim ctl As Control
    
    ' Loop through all controls on the form
    For Each ctl In Me.Controls
        ' Check if the control is selected
        If ctl.Value = True Then
            ' Add the control's name to the selectedItems string
            selectedItems = selectedItems & ctl.Name & ";"
        End If
    Next ctl
    
    ' Print the selected items
    DoCmd.OpenReport "اسم_التقرير", acViewPreview, , "اسم_الحقل IN (" & selectedItems & ")"
    
End Sub
```

تأكد من استبدال "اسم_التقرير" بالاسم الفعلي للتقرير الذي ترغب في طباعته، واستبدال "اسم_الحقل" بالحقل الذي تستخدمه لتمييز العناصر المختارة.

8. قم بحفظ النموذج وأعد تشغيله.
9. ، عند النقر على زر الطباعة، ستتم طباعة العناصر المحددة فقط.

 

[Abdelaziz Osman]

انا حاولت اعمل الى قدرت افهمة  موضح بالمرفق

ارجوا المساعدة

bayan _ prin.accdb

لكن اين دور الاستعلام فى هذا الحل !

[kkhalifa1960]

تفضل أخي @Abdelaziz Osman محاولتي . ووافني بالرد .

bayan _ prin.rar

[Abdelaziz Osman]

استاذنا kkhalifa1960    اشكرك بكل تقدير على هذا العمل الرائع

ولكن لم اصل الى النتيجة المطلوبة

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

1- مطلوب عملية تصفية على محتويات الجدول من خلال استعلام به بعض الاسئلة ليس على حقل واحد ولكن ثلاث حقول او اكثر لكل حقل سؤال .

2- النتيجة التى ستظهر بعد الاستعلام سيتم اختيار منها بعض السجلات وليس كلها عن طريق عمل سلكت على السجل المراد اختياره.

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

ولك منى كل تحية وتقدير

[Foksh]

مشاركة مع الأستاذ @kkhalifa1960 ، وإن كنت قد فهمت المطلوب بشكل صحيح إليك هذه الفكرة .
أولا سنقوم بإنشاء جدول بشكل تلقائي ؛ وسيكون اسمه Tbl_Rep كمثال .

ثانياً سنقوم بإدراج نتيجة الفلترة والتي تمت حسب ما يلي :-

• التاريخ من - إلى
• اسم الصنف

 - داخل هذا الجدول مع العلم أن الجدول هو مصدر التقرير Bayan .

ثالثاً سنقوم بعرض التقرير بناءً على السجلات التي تم اختيارها .

وأخيراً المرفق 

bayan _ prin.accdb

تم تعديل يناير 10 بواسطه Foksh

[Abdelaziz Osman]

اختنا الكريمة safaa salem5   بالغ التقدير والتحية

اخى الفاضل ومعلمنا kkhalifa1960  لك جزيل الشكر

اخى الفاضل واستاذنا Foksh  لك جزيل الشكر