معاينة التقرير بتحقيق شرط في حقل

[shatat]

مرحبا

لدي سؤال في فتح التقارير من نموذج بالنقر على زر من خلال النموذج

بشرط

ان يقوم بفتح القيمة المطابقة لمربع نص موجود في النموذج

لقد حاولت كثيرا وكانت آخر محاولاتي طباعة التقرير، ولكن اريد معاينة التقرير قبل الطباعة

ارجو المساعدة

وهذا الكود الذي وضعته على زر فتح التقرير

Private Sub report_Click()
On Error GoTo Err_report_Click

    Dim stDocName As String

    stDocName = "tabel1"
    stLinkCriteria = "[no]=" & Me![نص]
    DoCmd.OpenReport stDocName, , , stLinkCriteria

Exit_report_Click:
    Exit Sub

Err_report_Click:
    MsgBox Err.Description
    Resume Exit_report_Click
    
End Sub

المثال في المرفقات(اضغط هنا)

[rudwan]

استبدل الجمله

DoCmd.OpenReport stDocName, , , stLinkCriteria

بالجمله

DoCmd.OpenReport stDocName,acViewPreview
 , , stLinkCriteria

[shatat]

شكر رضوان

لقد حلت المشكلة