طباعة جميع بيانات القائمة المنسدلة

هلا وضعت مثالاً ليتم التعديل عليه

ناصر المصاروة

شوف المرفق ،،،،، طبعا مثال للتوضيح وليس البرنامج نفسه لأن البرنامج موجود في العمل وليس في البيت

1233334343432.rar

هلا القيت نظرة على المرفق ؟؟

ناصر المصاروة

المرفق شغال استاذي الكريم

على 2007

للاسف انا استخدم 2003 وليس لدي 2007

ناصر المصاروة

أولا أشكرك على تفاعلك

وأتمنى من الأعضاء الإفادة في هذه المشكلة

اخي nonar

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

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

بالتوفيق

LoopToPrintAllComboboxItems.rar

يوسف ....عمرك اطول من عمري سباق الى الخير

تحياتي الى الجميع على هذه الردودالسريعة :

المثال المرفق هو المطلوب بالظبط

ولكن لم يعمل معي ولا أعرف السبب ((( أكيد عندي خطأ معين

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

افتح الضغط وانقل مجلد maar95 الى c ثم شغل القاعدة ( كشوفات )

ولك جزيل الشكر ((( وأتمنى أن تشرح لي ماذا فعلت لكي أستفيد ولا أسأل مرة أخرى )))

تحياتي مرة أخرى

123.rar

بارك الله فيك اخي الغالي ناصر

اخي nonar

تصدق انك حيرتني .. كيف

اقتباس

المثال المرفق هو المطلوب بالظبط

ولكن لم يعمل معي ولا أعرف السبب

كيف عرفت اذاً انه هو المطلوب ..

ملفك المرفق على 2007 .. الرجاء اذا امكن عمل مثال مبسط لما تريد على اكسس 2003 ليتم التعديل عليه

عموماً ساشرح لك الطريقة

تم عمل الآتي :

1: عمل جدول اسمه table1 مكون من حقلين EmployeeId و EmployeeName وتم ادراج اربع سجلات به.

2: تم عمل تقرير يعتمد على هذا الجدول اسمه rpt1

3: تم عمل نموذج اسمه frmPrint به مربع تحرير وسرد مصدر الصف له عبارة عن جملة اسكيوال وهي كالآتي :

SELECT Table1.EmployeeName FROM Table1 ORDER BY Table1.EmployeeName;

ليتم اختيار اسماء الموظفين من جدول Table1 مع فرزها تصاعدياً

4: تم عمل زر امر على النموذج وفي حدث عند النقر لزر الامر هذا تم وضع الكود ادناه

Dim i As Integer
	For i = 0 To Me.ComboChoose.ListCount - 1
		Me.ComboChoose.Value = Me.ComboChoose.ItemData(i)
		DoCmd.OpenReport "rpt1", acViewNormal, , "[employeename]=forms!frmprint!ComboChoose"
	Next i

شرح الكود

السطر الاول : تعريف متغير ( متحول ) من نوع رقم اسمه i

السطر الثاني : ابتداء تنفيذ حلقة تكرارية بإستخدام عبارة For..Next حيث يكون المتحول i هو المتحول الذي يمثل عدّاد الحلقة

القيمة صفر هي القيمة الاولى ( Start ) للعدّاد ....

الكلمة To تعني الى

الجملة Me.ComboChoose.ListCount - 1 تعني العدد الكلي للعناصر بمربع التحرير والسرد ComboChoose بالنموذج الحالي الممثل بالكلمة Me .. وجود القيمة -1 يرجع الى ان فهرسة العناصر بمربع التحرير والسرد تبدأ من القيمة صفر ، والجملة بأكملها تمثل القيمة النهائية ( End )

السطر الثالث : يتم تحديد قيمة لمربع التحرير والسرد بإختيار عنصر معين وهذا العنصر سيكون هو قيمة المتحول i وبما ان الحلقة التكرارية ستبداً من الصفر اذاً ستكون قيمة هذا الفهرس صفر وتمثل العنصر الاول ( الاسم الاول بجدول الموظفين )

السطر الرابع : هذا السطر خاص بطباعة السجل الحالي ( السجل الحالي هو الموظف الاول )

السطر الخامس : امر لإعاد تنفيذ الكود وهذه المرة سوف تزيد قيمة المتحول i بالمقدار واحد وسوف يكون العنصر الثاني هو القيمة الحالة

ملاحظة : ستستمر الحلقة في تنفيذ امر الطباعة الى ان تصل قيمة العداد الى العدد الكلي لعناصر مربع التحرير والسرد وعندها سيتوقف تنفيذ الحلقة. ايضاً يمكن استبدال Next i

بـــ Next ويؤدي ذلك الى تسريع تنفيذ الحلقة ... ولكن لتسهيل قراءة الكود تم اضافة اسم المتحول بعد الكلمة Next

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

تحياتي لك أخي العزيز يوسف ،

وأعتذر لأني حيرتك

ما كنت أقصده :

أن المثال هو نفسه ما أريد ولكن عندما عملت مثله في برنامجمي لم يعمل ( ويعني أنني قد أصبح عندي خطأ لم أفهمه )

وأعتذر لأني أرفقت ملف على 2007

وإليك المثال في 2003

أكرر اعتذاري أخي يوسف

على العموم شرحك وافي جداً

لكن خذ نظرة على المثال

تحياتي

1235.rar

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

اقتباس

الرجاء اذا امكن عمل مثال مبسط لما تريد على اكسس 2003 ليتم التعديل عليه

مع الشكر

هذا مثال مبسط على نفس الفكرة

تحياتي لك أخي يوسف

123456.rar