ارجو المساعد

اتبع ما يلي :

1- إنشئ جدول بأسماء التقارير وضع اسم التقرير سليم كما هو .

2- انشئ نموذج وضع به مربع قائمة وسمه وليكن التقرير مصدر بياناته جدول التقارير .

3- لمشاهدة التقارير إنشئ زر وضع به الكود التالي .

Dim DocName As String

       

       DocName = Me![التقرير]

    

        DoCmd.OpenReport DocName, A_PREVIEW

4- لطباعة التقرير إنشئ زر وضع به الكود التالي :

Dim DocName As String



    DocName = Me![التقرير]

    DoCmd.OpenReport DocName, A_NORMAL

يمكنك وضع الكود الأول على حدث عند النقر لمربع القائمة فتتيح للمستخدم أنه عند النقر على أي تقرير يقوم بمشاهدته تلقائيا .

أشرف خليل

ملحوظة على الكود افصل كل أمر لحاله

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

اذا كان هناك مثال ممكن ان يساعدني ارجو اطلاعي علية وشكرا لتعاونك يا اخي

كتبت الكود وعند الانتهاء من كتابت الكود اعطاني خطاء في الرسالة وعند ماقلت موافق طلع لون ازرق على (docname) بنسبة للكود الاول

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

ارجو منكم التوضيح وشكرا

اذا كنتم متضايقين من اسئلتي فانا اسف وعذروني

أخي

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

http://mypage.ayna.com/qqq3/TB.zip

وبالتوفيق .

الأخ العزيز sa41s41 ولو أني مش عارف اسمك إيه ، المهم

ليه نزعل أو نتضايق من أسئلتك هو أنت أجبرت أحد على أن يساعدك .

عموما لا نريدك أن أن تزعل وهذه ما شرحته سلفا على هذا الرابط .

http://www.libya.ly/user/ashrafk/reoprt.zip

أكسيس 2000 .

أشرف خليل

اخي وعزيز انا لست زعلان منكم وانتم اغلى ماعندي بعد الله

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

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

ياخوان

اخوكم محمد

اخي اشرف انت رهيب في النثال الذي اخذته منك بالمس طبقت المثال

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

ملاحوضة

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

الرقم والطلب مشاهدة او طباعة وينفذ طوالي؟؟؟؟؟؟؟؟

ارجو منك ذالك يا اخي العزيز اشرف

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

اخوك/// محمد

:confused:

الأخ العزيز :

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

MsgBox " ... عفواً ..... لم تختار أي تقرير للطباعــة .. !!!!", vbOKOnly, "اختيار تقرير"

أما بالنسبة لإضافة تقرير فى مربع القائمة فذلك عن طريق إضافة اسمه بالضبط فى الجدول ولكن مع مراعاة ضع أن الاسم الأول انجليزي والآخر عربي كما مذكور فى المثال .

ويمكنك أن تغير من الجدول بوضع حقل واحد فقط ولكن أنا عملت هكذا لأنه كنت بدأت الأسماء بالبرنامج كلها أنجليزي والمفروض أن تظهر للعميل بالشكل العربي لذلك وضعت الحقلين .

أشرف خليل

الامر اليس كذالك يا اشرف

زر الامر لاينفذ حتى والو الغيت امر الرسالة الاينفذ عارف ان اخر امر رسال

للمستخدم في حالة عدم الاختيار وهذ شي جميل لتذكير المستخدم

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

اسوال الثاني

قصدي اني احتاج الى تقرير لعميل معين وطبعا يجب ان اوضع التقرير بالاستعلام وعند ماختار التقرير لازم على اكتب الاختيار الي بالاستعلام

انا ابغا اضع مربع سرد بموجب استعلام معين منة اختار الاختيار الي

يطلع بة التقرير بالاسم اوبرقم حسب مافي الاستعلام

ارجو كيف اعمل ذالك واسف على كثرة الاسئلة

اخوكم// محمد (f)

أنت عارف المشلكة في إيه إن الأسئلة غير مترابطة مع بعضها فالسؤال الآن غير السؤال المطلوب أولا :

عموما : بالنسبة لطلبك هذا يمكنك أن تربط نموذج بتقرير معين وذلك عند فتح التقرير يفتح النموذج أولا وتأخذ من مربع التحرير والسرد اسم العميل المطلوب ثم تنفذ التقرير فيتم عرض التقرير بناء على اختيارك من قائمة مربع السرد .

أشرف خليل

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