هل من معدل؟؟؟؟ لهذا الكود

اخي الفاضل شوقي

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

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م] =" & Me![م]
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

هذا الكود خاص بمعاينة السجل الحالي على النموذج

ما هو المطلوب بالضبط كي نسنتطيع مساعدتك

اختى ومعلمتى زهرة الحجاز كل عام وانتى بخير

المطلوب هو معاينة كل السجلات الموجوده على الفورم بمعنى لو كان عندى 500 سجل يتم معاينتهم على التقرير

اى بدل من السجل الحالى جميع السجلات الموجوده في النموزج

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

Private Sub print_Click()
DoCmd.OpenReport "Report1", acViewNormal
End Sub

حيث print هو اسم رز امر الطباعة قم بتغييره لما هو لديك

و Report1 هو اسم التقرير المراد طباعته قم بتغييره حسب اسم التقرير لديك

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

معادلة : عدد سجلات النموذج = عدد سجلات التقرير

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

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

وارجوا ان اكون قد اوضحت

بعد أذن الأخت زهرة

يمكنك استخدام نفس الجملة التي ذكرتها الأخت زهرة خلال إجابته فقط أضف filtername

DoCmd.OpenReport (reportname, [view], [filtername], [wherecondition])

بحيث تستبدل filtername الذي يمثل سلسلة نصية تحدد التصفية المطلوبة

إذا لم تتمكن من التطبيق يمكنك كتابة جملة البحث الخاصة بالنموذج وسأقوم بإكمال اللازم.

تحياتي للجميع.