لدي نموذج باسم معاينه يوجد به زر امر لطباعة تقرير مسمى باسم تقرير مبني على استعلام باسم استعلام1 و قد وضعت الكود الأتي خلف الزر و يظهر لدي تقرير بدون بيانات عند معاينة التقرير
Dim strDocName As String
Dim strFilter As String
strDocName = "تقرير"
strFilter = "رقم الموظف =forms!معاينه!رقم الموظف"
DoCmd.OpenReport strDocName, acPreview, , strFilter
:o