السلام عليكم
أخي الفاضل
لقد نفذت شرحك وعمل الزر بشكل سليم
لكن في حالة القيمة = 2 لاتظهر نتائج التقرير لوجود خطأ !
If Me.Choice = 2 Then
stDocName = "Frm_report"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "Frm_report"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.ApplyFilter "qry_3"
End If
مع تقديري لك
________________2.rar