كيفيه اظهار نفس الاسم الموجود فى النموذج فى القرير

اخي الفاضل

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

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

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

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

لم ارغب في ادراج الملف واكتفيت بالشرح فقط بناء على طلبك

اختكم

زهره

الاستاذة الفاضله زهرة هذا الكود يعطى debug فى السطر DoCmd.OpenReport "ورقة1", acViewPreview, , stLinkCriteria وكذلك فى السطر DoCmd.OpenReport "ورقة1", acViewNormal, , stLinkCriteria