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

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

ولكم جزيل الشكر على ماتبذوله من جهد فى الرد على اسئلة الاعضاء وبالاخص السيدة الاستاذة زهرة

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

وشكرا جزيلا على الاهتمام

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

اختكم

زهره

تم تحرير المشاركة بواسطة zahrah: Aug 23 2006, 10:28 AM

نظام تعديل كامل

تعديل سريع

zahrah Aug 23 2006, 11:04 AM مشاركة #2

مشرفة قسم قواعد بيانات مايكروسوفت أكسس

المجموعة: المشرفين

المشاركات: 2,883

التسجيل: 13-July 03

رقم العضوية: 15,367

اخي الفاضل

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

تم ازالة الملف المرفق بعد تحميله بناء على طلبك

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

1. اعرض النموذج في وضع التصميم

2. اضغط من لوحة المفاتيح على المفتاحين ALT + F11 وستجد نفسك في محرر الفيجول بيسك

3. استعرض الاوامر حتى تصل الى امر طباعة تقرير

4. قم بمسح كامل الكود وضع بدلا عنه هذا الكود

كود

Private Sub معاينة_تقرير_Click()

Dim stLinkCriteria As String

stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"

DoCmd.OpenReport "ورقة1", acViewPreview, , stLinkCriteria

End Sub

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

كود

Private Sub طباعة_تقرير_Click()

Dim stLinkCriteria As String

stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"

DoCmd.OpenReport "ورقة1", acViewNormal, , stLinkCriteria

End Sub

تم تنفيذ هذا الكود ولكن النتيجة ( التعبير الذى ادخلته هو نوع بيانات خاطئ لاحدى الوسائط ) يثلاعل