اخواني
لدي برنامج فواتير متواضع صادفني مشكلة في التقرير وهي عندما اقوم بالطباعة فان التقرير يطبع جميع السجلات
فمثلا لو قمت باصدار فاتورة رقم 1 وبعدها قمت باصدار فاتورة ثانية باصناف ثانية فان التقرير يقوم بطباعة اصناف الفاتورة 1 والفاتورة 2 مع بعضها
المطلوب هو طباعة التقرير كل فاتورة باصنافيها فقط في التقرير
اخي العزيز biskra
المشكلة كما هي
جرب عن طريق ادخال فاتورة جديدة ثم أطبع,لأن أمر الطباعة يتضمن أمر بحفظ البيانات قبل طباعتها, و لكي تتأكد أكثر أحذف جميع البيانات القديمة و قم بادخال بيانات فاتورة ثم طباعتها و تنقل الى فاتورة جديدة و قم بنفس العملية.
بعد إذن الاستاذ الكريم والمشرف / biskra
لدي محاولة لعلها تنفع أخينا الهدار
تفضل الملف مرفق بعد التعديل لعلة يفي بالطلب
نع خالص التحيات ،،،
عبدالمانع
اخي العزيز عبدالمانع
نعم هذا هو المطلوب
بس ممكن تشرح لي كيف تم عمليه الفصل بين الفواتير حتى تعم الفائدة للجميع وحتى اتحاشها في المستقبل
مع خالص شكري وتقدير لك والى اخينا الاستاذ الكريم والمشرف / biskra
اخي العزيز عبدالمانع
نعم هذا هو المطلوب
بس ممكن تشرح لي كيف تم عمليه الفصل بين الفواتير حتى تعم الفائدة للجميع وحتى اتحاشها في المستقبل
مع خالص شكري وتقدير لك والى اخينا الاستاذ الكريم والمشرف / biskra
ولا يهمك أخي الكريم ،
تفضل شرح مختصر
هذا الكود :
[Forms]![inv]![inv_no]
تفتح التقرير >>> ثم مصر السجل >>> اذا كان الاستعلام ليس موجود مسبقا تطلع رسالة هل ترغب ، تختار نعم >>> ثم تذهب الى رقم الفاتورة وتضع الكود في مكان المعايير ،
هذا الاسم الرقم inv_no
وهذا اسم النموذج inv
---------------------------------------------------------------
ويوضع الكود التالي في النموذج الذي فية زر الطباعة وهو inv
كود :
On Error Resume Next Dim stDocName As String stDocName = "BoxList" DoCmd.OpenReport stDocName, acPreview
هذا كل شي ،،،
مع خالص التحيات ،،،
عبدالمانع
اخي العزيز عبدالمانع
ما ادري شنو اقول اليك بمساعدتك الي والى اخواني في المنتدى ما اقول الا ان يجعله في ميزان اعمالك وجزالك الله الف خير
اخوك
الهدار
حياك الله أخي الكريم ،،،
وموفق إن شاء الله ،،،
مع خالص التحيات ،،،
عبدالمانع
معذرة .. من الاخوة ..
ولكن هل يمكن تبسيط الشرح أكثر ؟؟
أخونا عبدالمانع الله يمنع عنه كل سوء ما قصر ..
لكني لم أفهم المقصود بقوله :
[ تفتح التقرير >>> ثم مصر السجل >>> اذا كان الاستعلام ليس موجود مسبقا تطلع رسالة هل ترغب ، تختار نعم >>> ثم تذهب الى رقم الفاتورة وتضع الكود في مكان المعايير ،
هذا الاسم الرقم inv_no
وهذا اسم النموذج inv ]
وبالذات كلمة مصر السجل !!!
كما أن الكود الأول لم أعرف أين أضعه .
هذا الموضوع مهم بالنسبة لي ..
أرجو المساعدة .
هذا كود كمثال لطباعة السجل الحالي:
Dim strDocName As String Dim strWhere As String strDocName = "اسم التقرير" strWhere = "[ID1]=" & Me!ID1 DoCmd.OpenReport strDocName, acNormal, , strWhere
المعيار هو التعبير strWhere = "[iD1]=" & Me!ID1 حيث أن ID1 هو مثلا الرقم التسلسلي أو الرقم التلقائي, و هو الشرط الذي يحدد أي سجل نريد طباعته, لذلك تجد الشرط هو Me!ID1 أي الرقم التسلسلي الذي نشاهده على النموذج.
يمكنك تغيير هذا الشرط الى اسم الموظف و كل ما هو مطلوب هو تغيير ID1 باسم حقل الموظف.
السلام عليكم ورحمة الله وبركاته
يوجد ثلاثة نماذج مصدر بياناتها استعلام واحد بقيمة معلمة كما انه يوجد لدي ثلاثة تقارير مصدر بياناتها من استعلام واحد بدون قيمة محددة
حيث أن كل نموذج بياناته متناسقه مع تقرير معين
المطلوب عند ضغط أمر عرض أريد عرض السجل الحالي في النموذج فقط بدون ظهور رسالة إدخال قيمة معلمة . وكذلك الطباعة فقد حاولت جاهداً تطبيق الأكواد أعلاه ولم أنجح فيها وعليه تم الرفع لهذا الموقع العزيز على قلوبنا للنظر في الموضوع وإفادتنا
أوردت مثال لنموذج وتقرير واحد حسب شرحي السابق أرجو التعديل عليه
أرجووووو الإفادة ولكم فائق التقدير والإحترام
أخوكم
ثبيت عرب
السلام عليكم
لقد تم حل المشكلة باستخدام كود الاخ biskra الشكر موووووووصووووووووول له وجزاه الله الف خير
كود مضبوط 100% الله يوفقه على ماقدم .
ثبيت عرب
أخي الكريم :
biskra
ممكن تشرح لنا الطريقة بالتفصيل ، هل نضع استعلام أن نكتفي بالكود ؟
أعلم أن سؤالي دون مستواكم ، لكن طالب علم نزل بداركم ،، ينتظر دروسكم لينهل من علمكم
وفقكم الله جميعا ..
الكود يتم ربطه بزر الطباعة أما التقرير فيفترض عند تصميمه يحدد مصدره اما استعلام أو جدول عادي, مع الملاحظة أن الكود ليس من تصميمي و لكن ما تعلمته من أساتذة المنتدى و تصفح بعض المنتديات الأخرى
هذا الموضوع مغلق.