اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

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

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

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

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

المطلوب

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

أي شخص لديه الحل الرجاء المساعدة IT_2021_08.01_12h01m55s_006_.jpg.1793b9579f2156a5cb1903c4fff247a3.jpg

 

Test_It.rarFetching info...

تم تعديل بواسطه samisalim
قام بنشر
  في 1‏/8‏/2021 at 12:08, محمد أبوعبدالله said:

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

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

 DoCmd.OpenReport "EMPDEVMENU", acViewPreview, , myCriteria

Test_It1.rar 824.84 kB · 1 download

تحياتي

Expand  

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

قام بنشر
  في 1‏/8‏/2021 at 14:19, د.كاف يار said:

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

تفضل التعديل

 

Test_It.rar 832.86 kB · 1 download

Expand  

شكرا لك استاذي على المشاركة مربع الاختيار يعمل ولكن عند الفرز وطباعة التقرير يطبع كل السجلات وتظهر هذه النافذةErorr_2021_08.01_18h57m20s_001_.jpg.9d8ca942bc2cf4a1c7b0e4a4d00a22e7.jpg

قام بنشر
  في 1‏/8‏/2021 at 15:02, samisalim said:

شكرا لك استاذي على المشاركة مربع الاختيار يعمل ولكن عند الفرز وطباعة التقرير يطبع كل السجلات وتظهر هذه النافذةErorr_2021_08.01_18h57m20s_001_.jpg.9d8ca942bc2cf4a1c7b0e4a4d00a22e7.jpg

Expand  

لا توجد مشكلة

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

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

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

قام بنشر
  في 1‏/8‏/2021 at 15:10, د.كاف يار said:

لا توجد مشكلة

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

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

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

Expand  

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

IT_2021.08.01_12h01m55s_006_.jpg

قام بنشر
  في 2‏/8‏/2021 at 00:48, د.كاف يار said:

تفضل التعديل

image.png.0fb17d6647f55ce7660e02e4fc9fca77.png

 

image.png.1aecefe8a91c415eb2b576bdccdd47f5.png

 

 

Test_It.zip 996.82 kB · 2 downloads

Expand  

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

1750483062__2021_08.02_13h19m30s_002_.jpg.784bcc121a8cd5e26f2fb4eceb9fd003.jpg

قام بنشر (معدل)
  في 2‏/8‏/2021 at 09:25, samisalim said:

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

Expand  

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

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

تم تعديل بواسطه د.كاف يار
قام بنشر

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

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

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

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

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

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

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

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

 

 

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