طباعة تقرير مكتوب عليه الاصل

hema212006 كتب:

كيف يمكنني طباعة تقرير محدد برقم فريد

اذا طبع لاول مرة يكتب عليه الاصل

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

وشكرا لكم سلفا

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

re.rar

الاخ الكريم ايهاب عثمان المحترم

اشكرك لسرعة ردك ولمرورك الكريم

ولكن يبدو انني لم استطع ايصال المبتغى المطلوب بشكل صحيح

ماتفضلت به انا كنت هيك عامل بل كنت احدد التقرير المراد طباعته واخزنه بجدول كما تفضلت

ولكن المشكلة تكمن في انني احيانا اعاين هذا التقرير وانا كنت اضع الحدث عند فتح التقرير يتم تخزين الرقم في الجدول

وانت وضعته عند التنشيط

ولكن المشكلة انه احيانا اعاين التقرير ولا ارغب حينها بطباعته

الذي اريده ان يكتب اصلي اذا طبعت الورقة

اما اذا لم تطبع وعاينتها اكثر من مرة ان تبقى الكلمة اصلي

اما اذا طبعتها مرة واحدة ان يظهر فقط نسخة

وشكرا سلفا

طيب لماذا لا تنقل الأمر برمته الى زر طباعة بدلا من زر المعاينة ت

فبمجرد ضغطك على زر الطباعة هذا يتم تنفيذ المطلوب

فكرت بالموضوع

ولكن ايمكن تنفيذ ما ذكرت سابقا ام صعبا؟

هيما يا حبيبي...

لا يخفى عليك أننا نحتاج هنا لا إالى كود بل إلى حدث نضع تحته الكود (بحد علمي لا يوجد)

ومما يقوي وجهة نظري أنك أنت لم تصل إلى الحل إذاً الحل غير موجود :lol:

أستاذنا العزيز إيهاب

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

في المثال الاجنبي المرفق توجد إحدى تلك الطرق وهناك طريقة أخرى أفضل ولكن ليس لدي مثال جاهز لتوضيحها ولكنها تعتمد على عمل نموذج ينبثق من قائمة فرعية أو من قائمة اوامر في التقرير يقوم هذا النموذج بعمل مربع خيارات الطباعة بحيث يحتوي على خيارات نوع النسخة مثلا (أصل فقط - أصل + نسخة - أصل + نسختين ) وزر امر طباعة يتغير كوده بتغير قيمة الخيار هذا ... يعني هذه فكرة ممكنة من وجهة نظري.

تحياتي,,,,

ReportCopies.rar

الاخ الحكيم ايهاب عثمان

شكرا لك على الاهتمام وهذه شهادة اعتز فيها من خبير مثلك

منتصر الانسي كتب:

أستاذنا العزيز إيهاب

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

في المثال الاجنبي المرفق توجد إحدى تلك الطرق وهناك طريقة أخرى أفضل ولكن ليس لدي مثال جاهز لتوضيحها ولكنها تعتمد على عمل نموذج ينبثق من قائمة فرعية أو من قائمة اوامر في التقرير يقوم هذا النموذج بعمل مربع خيارات الطباعة بحيث يحتوي على خيارات نوع النسخة مثلا (أصل فقط - أصل + نسخة - أصل + نسختين ) وزر امر طباعة يتغير كوده بتغير قيمة الخيار هذا ... يعني هذه فكرة ممكنة من وجهة نظري.

تحياتي,,,,

اخي الكريم

شكرا لمرورك

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

في النظام المحاسبي مثلا سند الصرف تكون النسخة الاولى اصلية وما تبقى يجب ان يكون نسخة

واذا سمحنا بطباعتها مرة اخرى ويكون مكتوب عليها اصلي مصيبة

Ok اخي اذا حلك سيكون هو الخيار الثاني الذي ذكرته لك .

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

تحياتي,,,

تحياتي للجميع..

اسمحوا لي ان امر بفكرتي في عجالة

متواضعة جدا امام ما تقدمونه

1- عمل نسختين من التقرير والكود يحدد النسخة، الاولى مكتوب عليها اصل.. والثانية مكتوب عليها نسخة، ولكن يجب وضع متغير قيمته 1 او 0.. حيث اذا صفر.. يطبع اصل.. ويزيد 1 ليصبح بعدها طبع نسخة.. جملة IF بسيطة

2-ذات النسخة من التقرير وضع Label وتغيير قيمتها من خلال النموذج، بنفس الطريقة السابقة يسال عن قيمة المتغير هي 0 او 1، تعبا في حقل النموذج او الجدول وترسل الى التقرير..

كل الاحترام والتقدير للجميع!

همام..

على العموم الحل في المرفق..

ارجو ان يكون المطلوب

جرب اضافة سجل جديد

عاين لاول مرة ستظهر كلمة اصلي

عاين ذات السجل مرة اخرى ستظهر كلمة نسخة

تحياتي

HammamSelctCopy.rar

منتصر الانسي كتب:

Ok اخي اذا حلك سيكون هو الخيار الثاني الذي ذكرته لك .

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

تحياتي,,,

الاخ منتصر الانسي

شكرا لمروك

ما تفضلت به صحيح ولكن ما زالت ضالتي قائمة بحيث

انني استخدم زر طباعة من شريط القوائم المختصرة مدرج عليه زر طباعة فكيف يمكن ان ادخل عليه الكود او ان اتحكم في خصائصه ... وهنا المعضلة 

وتحياتي لك

همام ابوعرقوب كتب:

على العموم الحل في المرفق..

ارجو ان يكون المطلوب

جرب اضافة سجل جديد

عاين لاول مرة ستظهر كلمة اصلي

عاين ذات السجل مرة اخرى ستظهر كلمة نسخة

تحياتي

الاخ العزيز والمشرف الكبير همام ابو عرقوب

اشكرك على مرورك يا طيب

ولكن ما تزال المشكلة قائمة

بحيث فرضا انني عاينت التقرير واغلقته بالخطأ ولم اقم بطباعته فإذا عاينته مرة اخرى تصبح "نسخة" وليست اصليه

وحينها نقع بمشكلة حيث نريد النسخة الاصلية

تحياتي الحارة لك

فعلا..

طيب بنفس الاسلوب

نضع زرين.. واحد للمعاينة واخر للطباعة

وتغيير القيمة حسب الزر المضغوط

اذا كان زر الطباعة.. نضع اصلي.. ومرة اخرى يصبح نسخة

اذا كان زر المعاينة نضع نسخة. واذا مرة اخرى.. يصبح نسخة.. اي ذات الكود للزرين..مع مراعاة بعض النواحي

تحياتي

اخي العزيز

امهلني بعض الوقت لاجد لك مثال يوضح قصدي

تحياتي,,,

تفضل اخي العزيز

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

عموما اخي المثال المرفق يحتوي على أربعة كائنات ماخوذة من المثال الاجنبي وهي (الفورم "frmPrintReportSettings" + الماكرو "makPrintReport" + المدول "mdlPrintReportSettings" + شريط الادوات "PrintReport") بالإضافة إلى ما قمت بإضافته (الجدولين "Table1+Table2" + التقرير "Report1+Report2")

تم وضع التعديلات التالية على المثال الأجنبي

1 - إضافة متغير عام من النوع "Integer" "رقم" على مستوى البرنامج ضمن المدول بإسم "glbPrintReport" وفائدته أنه تتم تحديد قيمته عند فتح التقرير وبناء عليه يتم تحديد جملة التحديث اللازمة للاستفادة منها في حال تعدد التقارير

2- تعديل كود حدث "On Click" "عند النقر" لزر الامر "موافق" في الفورم ليقوم بعملية التحديث عند النقر عليه "أي عند الطباعة فقط" بناء على قيمة المتغير العام ولهذا السبب قمت بعمل جدولين وتقريرين لتلاحظ ان ماتم على التقرير الاول لم يؤثر على التقرير الثاني

خطوات الاستفادة من المثال

إذا أردت تطبيق المثال في أي برنامج اخر ماعليك سوى إستيراد الكائنات (الفورم "frmPrintReportSettings" + الماكرو "makPrintReport" + المدول "mdlPrintReportSettings" + شريط الادوات "PrintReport") الى اي قاعدة البيانات ومن خصائص التقرير في خاصية "Toolbar" أو "مربع الادوات" إختر "PrintReport" من القائمة وفي حدث "OnOpen" أو "عند الفتح" للتقرير حدد قيمة للمتغير العام لتشير إلى التقرير المفتوح "مع مراعاة أن كل تقرير له قيمة فريدة لا تتكرر مع التقارير الاخرى" ومن حدث "On Click" "عند النقر" لزر الامر "موافق" في الفورم "frmPrintReportSettings" قم بوضع الكود الذي تريده لكل تقرير وقد أستخدمت دالة "Select Case" وذلك لتتمكن من وضع أي عدد من التقارير تريد.

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

مع تحياتي,,,

New Microsoft Office Access Application.rar

منتصر الانسي كتب:

تفضل اخي العزيز

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

عموما اخي المثال المرفق يحتوي على أربعة كائنات ماخوذة من المثال الاجنبي وهي (الفورم "frmPrintReportSettings" + الماكرو "makPrintReport" + المدول "mdlPrintReportSettings" + شريط الادوات "PrintReport") بالإضافة إلى ما قمت بإضافته (الجدولين "Table1+Table2" + التقرير "Report1+Report2")

تم وضع التعديلات التالية على المثال الأجنبي

1 - إضافة متغير عام من النوع "Integer" "رقم" على مستوى البرنامج ضمن المدول بإسم "glbPrintReport" وفائدته أنه تتم تحديد قيمته عند فتح التقرير وبناء عليه يتم تحديد جملة التحديث اللازمة للاستفادة منها في حال تعدد التقارير

2- تعديل كود حدث "On Click" "عند النقر" لزر الامر "موافق" في الفورم ليقوم بعملية التحديث عند النقر عليه "أي عند الطباعة فقط" بناء على قيمة المتغير العام ولهذا السبب قمت بعمل جدولين وتقريرين لتلاحظ ان ماتم على التقرير الاول لم يؤثر على التقرير الثاني

خطوات الاستفادة من المثال

إذا أردت تطبيق المثال في أي برنامج اخر ماعليك سوى إستيراد الكائنات (الفورم "frmPrintReportSettings" + الماكرو "makPrintReport" + المدول "mdlPrintReportSettings" + شريط الادوات "PrintReport") الى اي قاعدة البيانات ومن خصائص التقرير في خاصية "Toolbar" أو "مربع الادوات" إختر "PrintReport" من القائمة وفي حدث "OnOpen" أو "عند الفتح" للتقرير حدد قيمة للمتغير العام لتشير إلى التقرير المفتوح "مع مراعاة أن كل تقرير له قيمة فريدة لا تتكرر مع التقارير الاخرى" ومن حدث "On Click" "عند النقر" لزر الامر "موافق" في الفورم "frmPrintReportSettings" قم بوضع الكود الذي تريده لكل تقرير وقد أستخدمت دالة "Select Case" وذلك لتتمكن من وضع أي عدد من التقارير تريد.

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

مع تحياتي,,,

الاخ منتصر الانسي

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

لقد اصبت واحسنت

وبصراحة غمرتني بكرمك

هذا اكثر مما اريد

بارك الله فيك

والشكر موصول ايضا للمشرف الرائع همام ابو عرقوب

العفو اخي العزيز

الحمدلله ان المثال قد افادك ولتحسين العمل يمكنك إضافة زر إلى مربع الادوات المرفق بالتقرير يقوم باغلاق التقرير بالاضافة الى ترجمة القيم في قائمة "ترتيب النسخ" .

مع تحياتي,,,

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

عزيزي منتصر الأنسي

بارك الله فيك وجزاك اللك كل خير

لك مني أجمل تحية و +1

مشكور اخي hamidymom على رفع معنوياتي "سمعتي" (مع تحفظي على المسمى) رغم عدم فهمي لمعناها وكذلك حالة التحذير التي اراها تحت اسمي

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

مشكور مرة اخرى اخي العزيز

تحياتي,,,,

تستاهل ومني + 1

مشكور اخي

اللهم زيد وبارك

أشكر جميع المشاركين هنا .. وشكر خاص لك أخي منتصر لما أتحفتنا به من مثال جميل وجديد ...

تقبل تحياتي .. +1

مشكور اخي العزيز

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

تحياتي,,,

مجهود رائع و مثال أروع أخ منتصر

و لكن بعد التجربة وجدت مشكلة

انه يمكن التحايل على ذلك باغلاق القائمة و الطباعة من قوائم الاكسس

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

و اعتقد ان ذلك اسهل و افضل

MrNo_copyNo.rar

فعلاً أخي mrnooo2000 حل محترف يستحق التقدير

وملاحظة قيمة تستحق وضعها في الحسبان

لذا مارأيك في المثال الآن...؟

مقترح "وفي إعتقادي لو توصلنا إلى حل يجمع بين الطريقتين فسيكون أنسب حل لجميع مشاكل طباعة التقرير فما رأيك لو حاولنا دمجهما ...؟"

تحياتي,,,

New Microsoft Office Access Application.rar