كيفية عمل تقرير لسجل واحد ؟ report

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

وبمثل هذه التساؤلات ستصل بإذن الله لمعرفة تامة لطريقة إنشاء التقارير ...

شكرا لك اخي الكريم ..

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

و شكرا

في الإستعلام المبني عليه التقرير ... في خانة معايير وتحت حقل الفاتورة ضع ما يلي

like[أدخل رقم الفاتورة]

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

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

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

1. لنفرض ان الرقم المعرف الخاص بالترقيم التلقائي في الجدول للسجل هو ID

والتقرير اسمه EMP وهذا التقرير اخذ معلوماته وبياناته من الجدول

ويوجد لديك نموذج .

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

Private Sub View_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "EMP", acViewPreview, , stLinkCriteria
End Sub

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

Private Sub Print_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "EMP", acViewNormal, , stLinkCriteria
 End Sub

وهذا مثال على ذلك

PVCR.rar

اختكم

زهره

الأخت الفاضلة زهرة

السلام عليكم ورحمة الله وبركاته

جزاك الله عنا خير الجزاء ونفع بعلمك وجعله حجابا لك عن النار

شكرا لك اخ حاكم

و لكن بصراحة لم افهم مبدأ عملها بالضبط .

شكرا لك على اي حال

شكرا لك اخت zahrah

لك جزيل الشكر .. و لكن هل من الممكن شرح بسيط عن :

كيف يطبع السجل في الكود الاخير .. مع انه نفس التعليمات الموجودة في موجودة بالاخر .. اي بدون اي تغير .. و مع هذا .. واحد يظهر و واحد يطبع ..

كيف هذا ..

و لك جزيل الشكر

اخي الفاضل

هناك فرق في الكودين دقق النظر في كود المعاينة

DoCmd.OpenReport "EMP", acViewPreview, , stLinkCriteria

وكود الطباعة

DoCmd.OpenReport "EMP", acViewNormal, , stLinkCriteria

الاختلاف هنا

acViewPreview

acViewNormal

اختكم

زهره