طباعة تقرير بشرطين

[ayman14]

السلام عليكم

طلب من الاخوة  

كود لطباعة التقرير بشرطين

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

[essam rabea]

If الشرط الأول And الشرط الثانى Then
    DoCmd.OpenReport "Report1", acViewPreview, "", "", acNormal
    DoCmd.RunCommand acCmdPrint

Else
MsgBox "لم تتحقق الشروط"
End IF

 

تم تعديل أكتوبر 11, 2019 بواسطه essam rabea

[ayman14]

بارك الله فيك اخي الكريم على التجاوب

ليس هدا المطلوب 

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

بشرط ان يكون حقلين متشابهين في نمودج وتقرير

مثال بشرط واحد لكن اريده بشرطين

 

"[DoCmd.OpenReport "Report1", acViewNormal, , "[txtid]=[Forms]![Search1]![Text2
 

[AlwaZeeR]

DoCmd.OpenReport "Report1", acViewReport,, "txtid =" & Forms!search1!Text2 & " And ScndCndtion = " & ScndCndtion

مع تغيير : 

ScndCndtion

لحقل الشرط الثاني 

[ayman14]

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

الكود كان به خطأ بسيط وهي الفاصلة الزائدة

وهو يعمل 

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

مرتبطة بنمودج فرعي يوجد فيه عدة  مواد

فعند اختيار مادة محددة من النمودج يثم طباعة كل المواد

لم يقم بطباعة سجل واحد من النمودج

[AlwaZeeR]

أي فاصلة زائدة؟

ارفق مثال بسيط للتعديل عليه

 

[ayman14]

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

ثم طباعة كل السجلات التابعة لرقم الفاتورة

[AlwaZeeR]

ارفق مثال بسيط 

لان الكود يعمل بمعيارين وقد تكون أخطأت في وضع معايير تقريرك

::

🙁

[essam rabea]

أ.ayman14

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

DoCmd.OpenReport "Report1", acViewNormal, , "[Field1]=[Forms]![form1]![Field1] And [Field2]=[Forms]![form1]![Field2]"

 

[ayman14]

ليس شرط بمعرفة اسم النمودج او الحقول

المهم حقلين سميهم ما شأة ونمودج سميه ما شأة

المهم يعمل الكود

_____________

ثم ايجاد الحل 

وأشكر كل من ساهم في هدا الموضوع

[ابو جودي]

 طيب سمى النموذج نموذج والحقل الاول جودى والثانى احمد انت بقه معلش عاوز تعمل ايه ؟

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

ساعد نفسك انت اولا كى تجد المساعدة المنشودة

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

انت الان تجعل من كل اساتذتى الكرام  كمن يشترى السمك بالماء

او يحرث بفأسه فى النهر

 

[ayman14]

ليس شرط بمعرفة اسم النمودج او الحقول

المهم حقلين سميهم ما شأة ونمودج سميه ما شأة

المهم يعمل الكود

_____________

ثم ايجاد الحل 

وأشكر كل من ساهم في هدا الموضوع

[ابو جودي]

سم الحل ما شئت او لا تسمه

وجدت الحل كما شئت او لم تجده 

ارفع المرفق او لا ترفعه

المهم انك تتعب الناس وتطلع عنيها سمه كما اسميته او سمه كما شئت 

بزمتك فهمت على انا ما فهمت عليك ولا انت فهمت على ولا حد فهم عليك ولا انت فهمت على اى حد 

[ayman14]

السلام عليكم

ردا على رسالتك السيد  محمد عصام

ليس من شيمتي ان اهين شخصا حتى لو أخطأ في حقي

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

فكان الاجدر ان تسأل ما المقصود من كلامي

ما قصدته في تعليقى على كلام  الاستاذ  عصام عبدالحكيم

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

ويعمل كود مطابق للمعيار 

وبدوري ساقوم بتغيير مسميات الحقول والنمودج 

فهدا المقصود  

 

[AlwaZeeR]

جميل انك وجدت الحل 

هل لك ان تشاركنا إياه كي يستفيد الجميع منه 

فالمعلم عندما يقول انه متعلم فقد جهل

وكلنا هنا نتعلم ولسنا معلمين

قد نجهل أمورا يعلمها اصغر مبتدئ في عالم البرمجيات

احترامي وتقديري

 

[ayman14]

استادي ومعلمي الاستاد Abu Elkaram

ماقصدته استادي العزيز بهده الجملة

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

وسميت المعلم فهو للمعلم السيد ابا جودي

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

حشى لله ان نخطأ في حق اجد الصغير له احترامه والكبير فهو اخ واب نتعلم منه

لا اعرف رغم  نحن عرب ولغتنا واحدة ومشكلتنا لا نفهم عن بعضنا 

 

[kha9009lid]

الحمد لله انك وجدت الحل

اخي بارك الله فيك معرفة الحقل ونوعة امر مهم لتحصل على الاجابة الصحيح

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

DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode)

DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'")

DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#")

لذا فان ما طلبة الاساتذة الكرام ليس تطفل وانما امر مطلوب لوضع الحل الصحيح

وايضا الاكواد التي وضعها الزملاء صحيحة وربما لم تعمل معك لاختلاف المعيار

اسأل الله لي ولك التوفيق والسداد

[ayman14]

بارك الله فيك السيد خالد

فهمت قصدك

لان حقل الرقم يختلف عن حقل النص قمت بتجربتها فلم تنفع ممكن المشكل معي انا لم افهم طريقة التعامل 

بتغيير الكود

فالتجأة الى الحل الاسهل 

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

فهو يعمل جيدا

فهدا ماكنت استخدمه

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

من اجل تقرير واحد استعمله لثلاثة نمادج

دون تصميم ثلاثة تقارير

فهذا هو المقصود من طلبـــــــــــــــــــي

وشكرا 

 

[kha9009lid]

الحمد لله انك وجدت الحل وهذا هو المطلوب

وجود الامثله امر ضروري لك ليكون التعديل على نموذجك مباشرة

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

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

 

[AlwaZeeR]

احسنت القول اخي خالد

[kha9009lid]

بارك الله فيك بعض ماعندكم

والله اخي الكريم اننا نتعلم منكم ونستفيد من خبراتكم

[ابو جودي]

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

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

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

[kha9009lid]

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

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

دمت اخي الحبيب .