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

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

قام بنشر

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

عباقرة المنتدى 

اخواني الافاضل 

مطلوب نموذج لطباعة عدد محدد من المستندات المرقمة 

قمت بادخال مستندات على سبيل المثال من رقم ١ الى رقم ٤٠ 

المطلوب نموذج 

لتحديد الطباعة من ١ الى ٢٠ 

عبر حقل من الى حقل الى

بنفس طريقة اعدادات الطباعة  تحديد عدد صفحات من الى

ولكم الشكر

قام بنشر

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

 

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

ونعم هناك كود تقدر تحدد فيه عدد السجلات للطباعة ، 

 

جعفر

  • Like 1
قام بنشر

شكرا استاذي الفاضل والعبقر الاستاذ جعفر

لم تفهم قصدي 

عندي اومر صرف نقدي بارقام متتالية 

بدل ما اكتب معيار ادخل رقم امر الصرف للطباعة 

من نموذج اكتب من امر صرف رقم ١٥ 

الى رقم امر صرف رقم ١٥٠ يقو م 

بطباعة جميع اوامر الصرف المحدد بين عدد البداية والنهاية 

حقل البداية  الى حقل النهاية 

من ١٥      الى               ١٥٠ 

يقوم بطباعة او امر الصرف المحدده 

وهذه الطريقة مشابهة لتحديد عدد الصفحات في اعدادات الطباعة 

من صفحة رقم.     الى. رقم

ولكن طلبي ارقام اوامر الصرف واليس الصفحات

قام بنشر

هذه تعملها كما تعمل معيار بين تاريخين:

في الاستعلام ، في حقل رقم امر الصرف ، اكتب في المعيار :

>=Forms!frm_Main!From_A and <=Forms!frm_Main!To_A

 

ويكون عندك في النموذج frm_Main ، حقلي ، من امر صرف: From_A  ، والى امر صرف: To_A

 

جعفر

  • Like 2
قام بنشر
  في 21‏/9‏/2020 at 18:30, jjafferr said:

هذه تعملها كما تعمل معيار بين تاريخين:

في الاستعلام ، في حقل رقم امر الصرف ، اكتب في المعيار :

>=Forms!frm_Main!From_A and <=Forms!frm_Main!To_A

 

Expand  

استاذي الفاضل جعفر اشكر اهتمامك وجزاك الله عني خيرا

تم تطبيق المعيار المرسل ولكنه يظهر صفحة واحده فيها جميع اوامر الصرف من ٩٨١ الى ٩٨٥

في صفحة واحده او امر واحد مثل الكشف وهذا 

هل من الممكن التعديل على المرفق حتى يظهر اوامر الصرف كل امر في صفحة مستقله

الله يبارك في عمرك

تحديد بداية ونهاية اوامر الصرف.rarFetching info...

قام بنشر

اخذ مني وقت الى ان فهمت تقريرك 🙂

 

اجمع جميع كائنات التقرير ، الى قسم "التفصيل" Detail ، وخلاص 🙂

 

يعني ، بدل ان يكون القسم بهذا الارتفاع

image.png.aefb9cd0b7472a09cfd5b48f3d66925a.png

.

خليه يكون

image.png.3159029d66d86dbaad2c47e8c84f49f2.png

.

والنتيجة

image.png.08a4854b9c93d387214c5f7096310957.png

 

جعفر

1271.تحديد بداية ونهاية اوامر الصرف.accdb.zipFetching info...

  • Like 2
قام بنشر

بارك الله فيك استاذي جعفر 

وسدد الله خطاكم 

وضعت معيارين في رقم السند ومعيار  في الترقيم التلقائي 

عند استبعاد المعيار الذي في الترقيم التلقائي وتغيير الارقام من ١ الى ٦ بدلا من ٩٨١ الى ٩٨٥ الذي في الترقيم التلقائي 

ونقرت على زر المعاينة او الطباعة يظهر جميع التقارير خارج التحديد من ١- ٤ وهكذا 

هل يوجد حل 

وجزاك الله عني خير الجزاء استاذ جعفر

مرفق التغيير

المعيار لايطبق.rarFetching info...

قام بنشر
  في 23‏/9‏/2020 at 09:22, jjafferr said:

الاستعلام "امرصرف" مافيه معيار !!

Expand  

وضعت المعيار كما اشرت يطبق عندما يكون في حقل الترقيم التلقائي وهذا مالا اريده

لاني اريده يطبق على حقل رقم السند فقط في  الاستعلام اي واحد منهم

قد تم وضع عمل كود برمجي 

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

اطال الله في عمرك استاذ جعفر 

وبارك الله فيك 

هل تستطيع حل المشكلة 

في الكود 

او في التحديد

تحديد طباعة السندات بين رقمين.rarFetching info...

قام بنشر

برنامجك شغال تمام حسب المعيار اللي استعملته انت ، فما اعرف شو المشكلة !!

 

  في 23‏/9‏/2020 at 11:05, طاهر الوليدي said:

وضعت المعيار كما اشرت يطبق عندما يكون في حقل الترقيم التلقائي وهذا مالا اريده

Expand  

هذا استعلامك، والمعيار موجود في حقل رقم السند ، اما حقل الترقيم التلقائي فارغ ، ونتائج الاستعلام صحيحة !!

image.png.482baf568a396dd892bffd635cdebce1.png

.

 

يجب ان يكون الكود هكذا فقط ، ورجاء حذف جميع الاشياء الاخرى:

للمعاينة
    Dim stDocName As String
    stDocName = "امرصرف"
    DoCmd.OpenReport stDocName,acViewPreview

او فقط
    DoCmd.OpenReport "امرصرف",acViewPreview



للطباعة
    Dim stDocName As String
    stDocName = "امرصرف"
    DoCmd.OpenReport stDocName

او فقط
    DoCmd.OpenReport "امرصرف"


واما اذا اردت طباعة اكثر من نسخة من التقرير (انا اطبع نسختين) بالكود التالي
    Dim stDocName As String
    stDocName = "امرصرف"
    DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
    DoCmd.SelectObject acReport, stDocName
    DoCmd.PrintOut acPages, , , acHigh, 2
    DoCmd.Close acReport, stDocName

.

جعفر

1271.2.تحديد طباعة السندات بين رقمين.accdb.zipFetching info...

  • 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