اريد زر طباعة في الform يظهر نفس ال record

اربط التقرير باستعلام

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

اذا اردت المويد من التفاصيل

ارفق ملفك

اعرف انه ليس حلا جذرياً ولكن يمكن استخدامه :

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

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

print.rar

ايهاب عثمان كتب:

اربط التقرير باستعلام

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

اذا اردت المويد من التفاصيل

ارفق ملفك

←

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

تحياتى لك :)

alibukheet كتب:

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

←

شكرا جزلا لك alibukheet دائما تعبك معي .....الكود يعمل بشكل ممتاز .... :)

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

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

تحياتى لك :)

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

===================

علي فرض ان الاستعلام query اسمه "query1" والتقرير اسمه "report1"

1-عمل تقرير للحقول المراد طباعتها

2- عمل استعلام Query للحقول المراد طباعتها الظاهرة في التقرير الذي صممته مسبقا...

3-في الاستعلام اربط في الشرط criteria تحت الحقل المميز للسجل مثلا رقم الفاتورة اربطه بنفس الحقل في الفورمform رقم الفاتورة (وليس الجدول)

4-ضع هذا الكود في زر امر Command button في الفورم

اقتباس

Dim strDocName As String

   

    strDocName = "query1"

    ' Preview delord report, using print query to print

    ' delord for current order.

    DoCmd.OpenReport strDocName, acViewNormal, "report1"

واذا اردت عمل preview قبل الطباعة ضع acViewPreview بدل acViewNormal في الكود

وشكرا لكم ....

اخي العزيز shrsm اذا امكن ترفق مثال لما عملته حتى يمكننا الاستفاده منه اكثر ولك جزيل الشكر و التقدير.

اخي العزيز shrsm اذا امكن ترفق مثال لما عملته حتى يمكننا الاستفاده منه اكثر ولك جزيل الشكر و التقدير. اما بالنسبة الى قولك : "ان الكود يطبع نفس الفورم" فهو لا يطبع نفس الفورم و انما يطبع فورم اخر معد كهيئة التقرير و فيه فائدة استخدام الفورم كتقرير حيث ان الفورم كما تعلمون وسيله ادخال بيانات و اخراج ( اظهار) نتائج بينما التقرير وسيلة لاخراج النتائج فقط . اما بالنسبة الى اقتراح الاخ ايهاب فهو حل ممتاز و لكني اردت ان ابين حل اخر بالاستفادة من ميزة الفورم بادخال و اظهار النتائج على شكل نافذة او تقرير .

أخي الكريم ،،،

معاك حق النموذج له مميزاته والتقارير لها مميزاتها

تفضل أخي هذا المثال فيه ما تريد

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

أرجو أن يعجبك

test.rar

اخي الكريم

هذا كود معاينة السجل الحالي

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

حيث ان ID هو الرقم المعرف للسجل الحالي و EMP هو اسم التقرير تحتاج لتغيير المسميات حسب ما لديك

وهذا كود طباعة السجل الحالي فقط

Private Sub ÃãÑ23_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "EMP", acViewNormal, , stLinkCriteria  
End Sub

وهذا مثال مرفق

PVCR.rar

مشكور فني2 على المثال الرائع و هو مشابه لما طرحته المشرفه زهره فشكرا لجهودها و شكرا لك .