سؤال بخصوص التقرير Report في Access

هذه طريقة أسهل:

DoCmd.OpenReport "Report1", acViewPreview, , "ID Like " & Me.ID

حيث Report1 = إسم التقرير.

bollbol

شكرا لك

لكن وين أكتب هذا السطر؟

اقتباس

لدي نموذج وأريد وضع زر فيه بحيث عندما يضغط عليه اليوزر

في حدث عند النقر لهذا الزر.

اقتباس

ثم يعرض تقرير فيه

record

الخاص بالطلب السابق فقط

وهذا ما سيقوم به الـ Code.

bollbol

عندما وضعته في on click event

يطلع رساله تقول انه

'DoCmd' is anew macro or macro group, make sure you have saved it and that you have typed name coorectly

السؤال وين احفظ الماكرو DoCmd???

وشكرا جزيلا لتعاونك

في حدث عند النقر قم باختيار منشيء التعليمات البرمجية،

وفي شاشة Visual Basic قم بلصق الـ Code مع تغيير ما يزم،

إذا إستصعب عليك عمل هذا، فأرفق المثال.

أعتذر منك ,

شوف الصورة بالمرفقات الي عملته لكن يطلع لي نفس رسالة الخطأ

واضح من الصور أنك اخترت Expression Builder (منشيء التعابير)

المفروض أن تختار Code Builder (منشيء التعليمات البرمجية)

لذلك إمسح كل ما كتبته، ومن جديد إذهب إلى: Event: On Click

ومن النافذة المنبثقة قم باختيار Code Builder .

جزاك الله خير الجزاء ووفقك

لمن وضعت الكود في مكان الكود بعد ماعملت له تشغيل

طلع لي

run time error

syntax error (missing operator) in query expression 'CenterID like 00 KSA 0001"

حيث

00 KSA 0001

هي القيمة التي تم البحث عنها

نرجع للـ Code:

DoCmd.OpenReport "Report1", acViewPreview, , "ID Like " & Me.ID

Report1 = إسم التقرير.

ID = إسم الحقل الموجود في النموذج والذي سيتطابق مع إسم الحقل الموجود في التقرير.

إذا المطلوب تغيير ما لونه أزرق:

DoCmd.OpenReport "Report1", acViewPreview, , "ID Like " & Me.ID

أي حرف زائد أو ناقص سيؤدي إلى خطأ!

كما يجب عليك إستخدام الـ Double Quotation إستخدام صحيح وكما هو موجود بالـ Code أعلاه،

وأغلب ظني أنك استخدمت Single Quotation (') بدلا من Double Quotation ('').

أعتذر من كثرة اسئلتي يا bollbol

لكن كل ماقلته عملته , وأتوقع أن الخطأ عندما أضغط على الزر فإنه لا يطلب مني تحديد قيمة CenterID

يعني علطول ينفذ الكوماند

بالفعل هذا الـ Code لن يطلب منك قيمة CenterID

لأنه سيأخذه مباشرة من النموذج،

وسيفتح التقرير بناء على قيمة CenterID الموجود بالنموذج.

حاول أن تنسخ الـ Code كما هو وتلصقه بمحرر التعليمات البرمجية،

ثم غير ما يلزم كما سبق ذكره.

نعم فهمت

شـــــاكرة ومقدرة لك تعاونك

وجزاك الله خيرا ووفقك لمافيه خيرا لك

إذا لا تحب البرمجة فإليك طريقة أخرى.

1- إنشي إستعلاما جديدا للبيانات المرادة طباعتها،

في المعايير تحت عامود CenterID أكتب التالي:

[أدخل رقم المركز]

إحفظ الإستعلام ثم أغلقه.

2- إفتح التقرير، واجعل مصدر سجلات هذا التقرير الإستعلام الذي أنشأته لتو،

إحفظ التقرير ثم أغلقه.

3- إفتح النموذج وأدرج زر أمر طباعة التقرير، إحفظ وأغلق.

ما الذي سيحدث؟

الذي سيحدث هو عندما يقوم المستخدم بالضغط على زر طباعة تقرير،

سيظهر له مربع حوار يطالبه بإدخال رقم المركز،

بعدما يقوم المستخدم بادخال رقم المركز،

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

بالنسبة لي فأنا أفضل الطريقة الأولى،

حيث يقوم المستخدم بالضغط على زر طباعة تقرير،

ويقوم الـ Access تلقائيا بفتح التقرير على السجل المطلوب.

بالفعل الطريقه البرمجيه افضل

لدي سؤال اخر في التقرير.

هل استطيع طباعه البيانات المعبأه فقط

أي not null value ??

لا يوجد أسهل من ذلك،

في حدث عند التحميل للتقرير، نكتب الكود التالي:

If IsNull(Me.txt1) Then
Me.txt1.Visible = False
Else
End If

حيث txt1 = إسم الحقل.

اخ bollbol

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

لكن لما عملتها مرة اخرى لم يحدث أي شيء عندما أضغط على الزر,, لماذا؟؟؟

سأشرح لك ماذا فعلت بالتفصيل لعلك تعرف الخطأ

اضفت زر واخترت من categories -> Report Operation

ومن actions -> open report

ثم next, next , finish

ثم اخترت من عند الخصائص on event -> on click -> code procedure وكتبت الامر السطر التالي

DoCmd.OpenReport "Operations", acViewPreview, , "ID Like " & Me.ID

حيث اسم الريبورت = Operations

واسم الحقل =ID

ووضعت الحقلID

في النموذج والتقرير بنفس الاسم

ولكن عندما اضغط على الزر لا يحدث شيء :(

لماااذا؟؟؟؟

ارجو الرد بسرعه

وشكرا جزيلا

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