فرز وطباعة التقرير

[samisalim]

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

أولا اشكر استاذي @محمد أبوعبدالله على مساعدتي في كود الفرز في الموضوعي السابق على الرابط

هذا هو الكود المستخدم

On Error Resume Next
    Dim myCriteria As String

    myCriteria = myCriteria & "("
    myCriteria = myCriteria & "[CNAME]= '" & Me.cmbcname.Column(1) & "'"
    myCriteria = myCriteria & ")"
    
    Debug.Print myCriteria
    Me.Filter = myCriteria
    Me.FilterOn = True

المطلوب

أريد عندما أقوم بعملية الفرز وتحديد السجلات والضغط على زر الطابعة يتم طباعة السجلات المحددة فقط

أي شخص لديه الحل الرجاء المساعدة

 

Test_It.rar

تم تعديل أغسطس 1, 2021 بواسطه samisalim

[محمد أبوعبدالله]

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

تفضل اخي الكريم

 DoCmd.OpenReport "EMPDEVMENU", acViewPreview, , myCriteria

Test_It1.rar

تحياتي

[samisalim]

1 ساعه مضت, محمد أبوعبدالله said:

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

تفضل اخي الكريم

 DoCmd.OpenReport "EMPDEVMENU", acViewPreview, , myCriteria

Test_It1.rar 824.84 kB · 1 download

تحياتي

شكرا استاذي ولكن مربع الاختيار لايعمل بعد التعديل

[د.كاف يار]

5 ساعات مضت, samisalim said:

    Dim myCriteria As String

اجعل المتغيير عام Public و استدعيه عند فتح التقرير 

تفضل التعديل

 

Test_It.rar

[samisalim]

39 دقائق مضت, د.كاف يار said:

اجعل المتغيير عام Public و استدعيه عند فتح التقرير 

تفضل التعديل

 

Test_It.rar 832.86 kB · 1 download

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

[د.كاف يار]

6 دقائق مضت, samisalim said:

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

لا توجد مشكلة

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

اختر Ok و سيتم عرض التقرير 

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

[samisalim]

33 دقائق مضت, د.كاف يار said:

لا توجد مشكلة

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

اختر Ok و سيتم عرض التقرير 

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

تم ضبط القياسات واختفت الملاحظة تبقى في عملية الفرز

[د.كاف يار]

تفضل التعديل

 

 

 

Test_It.zip

[samisalim]

8 ساعات مضت, د.كاف يار said:

تفضل التعديل

 

 

 

Test_It.zip 996.82 kB · 2 downloads

استاذي العزيز @د.كاف يار لايوجد مشكلة عند تحديد من مربع الاختيار بشكل فردي  ولكن عند الضغط على (تحديد الكل) يقوم بطباعة كل السجلات في النموذج والمفترض يطبع السجلات الظاهرة في الفرز فقط .

[د.كاف يار]

13 دقائق مضت, samisalim said:

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

غير واضح مقصدك 

انت تحدد الكل لكي تطبع الكل / لكن في نفس الوقت لا تريد طباعة الكل 

تم تعديل أغسطس 2, 2021 بواسطه د.كاف يار

[samisalim]

دائرة تقنية المعلومات يوجد بها قسمي (الدعم الفني والشبكات) 

مثال:عند اختيار من مربع التحرير والسرد التالي

1- الدوائر = تقنية المعلومات 

2 الاقسام =الدعم الفني 

الحين راح يظهر ناتج فرز سجلات الدعم الفني 

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

عند الضغط على زر الطابعة يتم طباعة جميع الاقسام في الدائرة  من ضمنها قسم الشبكات كان يجب طباعة سجلات الدعم الفني فقط

اتمنى يكون شرحي مفهوم.