طريقة طباعة تقرير لسجل معين وبمواصفات اخرى

[cocacola7]

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

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

اريد طباعة سجل بشرط ان يكون هو السجل الحالي المعروض في النموذج , واريد ان يكون عدد النسخ بعدد الطرود بحيث يكون عند طباعة  النسخة الاولى يكتب فيها 1 من كذا .

فمثلا عند يكون معروض في النموذج العميل محمد اليافعي ذات الرقم 10001 والذي عدد طروده 3 . فعند الضغط على زر الطباعة يتم طباعة هذا العميل فقط وايضا يكون عدد النسخ المطبوعة بعدد طرود العميل بحيث تكون النسخة الاولى مكتوب فيها 1 من 3 والنسخة الثانية 2 من 3 والنسخة الثالثة 3 من 3.

وهكذا بالنسبة لبقية العملاء .

 

ارجو منكم التكرم بمساعدتي , ولكم جNEW FROM NUM.accdbNEW FROM NUM.accdbزيل الشكر والامتنان 

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

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

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

NEW FROM NUM.rar

تحياتي

[cocacola7]

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

شكرا لك اخي , ولكن المرفق لا يعمل ...

في ٢٦‏/٦‏/٢٠٠٦ at 04:36, zahrah2016 said:

اخي الفاضل شاهر

هذا هو الكود المسئول عن طباعة عدد من النسخ للتقرير حسب طلبك

الكود موجود تحت زر امر الطباعة

CopyN_Report.rar

 

اختكم

زهره

 

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

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

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

NEW FROM NUM.rar 48.2 kB · 0 تنزيلات

تحياتي

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

شكرا اخي , ولكن المرفق لا يعمل

[cocacola7]

في ٢٦‏/٦‏/٢٠٠٦ at 04:36, zahrah2016 said:

اخي الفاضل شاهر

هذا هو الكود المسئول عن طباعة عدد من النسخ للتقرير حسب طلبك

الكود موجود تحت زر امر الطباعة

CopyN_Report.rar

 

اختكم

زهره

 

 

صباح النور عليكم جميعا 

هل ممكن تتكرموا وتنظروا الى طلبي ايها المبرمجين العباقرة . 

 

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

تم تعديل يوليو 2, 2020 بواسطه cocacola7

[cocacola7]

السلام عليكم 

اعتقد انني لم استطع ايصال الفكرة لكم بالشكل الصحيح, لذا فقد عدلت على المرفق بحيث يكون واضح للجميع .

وفقكم الله واسعدكم , واتمنا من سعادتكم حل هذه المشكلة التي لدي.

 

لكي تفهموا اكثر افتحوا المرفق وبإذن الله سوف تفهوا المطلوب.

NEW FROM NUM.accdb

تم تعديل يوليو 2, 2020 بواسطه cocacola7

[اشرف]

السلام عليكم cocacola7

جرب كدة اتمني ان يكون المطلوب

NEW FROM NUM (1).accdb

تم تعديل يوليو 2, 2020 بواسطه اشرف

[cocacola7]

25 دقائق مضت, اشرف said:

السلام عليكم cocacola7

جرب كدة اتمني ان يكون المطلوب

NEW FROM NUM (1).accdb 704 kB · 0 تنزيلات

اشكرك اخي الاستاذ اشرف 

الطباعة للسجل الحالي تمام  ولكن  باقي ان يكون مكتوب على النسخة الاولى 1 من كذا والثانية 2 من كذا وهكذا استنادا على عد الطرود .

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

4 ساعات مضت, cocacola7 said:

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

شكرا اخي , ولكن المرفق لا يعمل

هل الكود لا يعمل ام الملف نفسه الذي لا يعمل

رفع لك الملف مرة اخرى بدون ضغط

NEW FROM NUM.accdb

تحياتي

تم تعديل يوليو 2, 2020 بواسطه محمد أبوعبدالله

[cocacola7]

منذ ساعه, محمد أبوعبدالله said:

هل الكود لا يعمل ام الملف نفسه الذي لا يعمل

رفع لك الملف مرة اخرى بدون ضغط

NEW FROM NUM.accdb 432 kB · 0 تنزيلات

تحياتي

فعلا هو المطلوب , اشكرك كثيرا  وربنا ينفع بعلمك الجميع ويجزيك الخير 

 

ممكن تشرح لي ماهي الطريقة التي استخدمتها ؟

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

تم استخدام for i >>> next لتكرار امر الطباعة حسب العدد الموجود بحقل CARNUM

    For i = 1 To Forms!cusform!CARNUM
        DoCmd.OpenReport "cusreport", acViewNormal, , "CUSNUM = " & Forms!cusform!CUSNUM
    Next

ثم استخدمنا المتغيير العام i في خقل X5 الموجود في التقرير ليكتب عدد النسخ

 

Public i As Integer

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

    Me.x5 = i

End Sub

تحياتي

 

[cocacola7]

51 دقائق مضت, محمد أبوعبدالله said:

تم استخدام for i >>> next لتكرار امر الطباعة حسب العدد الموجود بحقل CARNUM

    For i = 1 To Forms!cusform!CARNUM
        DoCmd.OpenReport "cusreport", acViewNormal, , "CUSNUM = " & Forms!cusform!CUSNUM
    Next

ثم استخدمنا المتغيير العام i في خقل X5 الموجود في التقرير ليكتب عدد النسخ

 

Public i As Integer

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

    Me.x5 = i

End Sub

تحياتي

 

فعلا خبير وتستاهل اكثر من ذلك الاسم , وفقك الله 

وشكرا لك مرة اخرى

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

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

وغفر الله لنا ولك

دمت بخير

تحياتي

[cocacola7]

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

كيف اخي محمد    اتمنا ان تكون في صحة جيدة .

اريد على المثال السابق ان يكون هناك حقل نصف  لكتابة ملاحظة معينة في الصفحة الاولى من التقرير فقط . فهل ممكن ذلك ؟ وكيف ؟

طبعا حقل النص  موجود في النموذج وعند الطباعة اريدة ان يكون مكتوب في النسخة الاولى فقط.

شكرا لك مقدما .

تم تعديل يوليو 14, 2020 بواسطه cocacola7