السلام عليكم
لدي في نموذجي الكود التالي لفتح تقرير بعد تصفيته بحس الكود التالي
Dim SF As String 2 SF = "([الشهادة_الحالية]='" & "ماجستير" & "')" 3 DoCmd.OpenReport "الذاتية", acViewPreview, , SF
اي فتح التقرير المسمى الذاتية بعد تصفية الشهادة على معيار ماجستير مثلا
مذا لو اردت التصفية ان تكون كالتالي
على فرض جعل الكود يصفي التقرير باظهار الشهادة لكل من ماجستير دكتوراه وبكلوريوس
بتكون زي كذا
Dim SF As String
SF= "[ الشهادة_الحالية]=" & ("ماجستير" Or "دكتوراه" Or "بكالوريوس")
DoCmd.OpenReport "الذاتية", acViewPreview, , SFتم تعديل هذه المشاركة بواسطة البراااق في 12 يناير 2012 في 00:14
شكرا اخي لكن تظهر لدي رسالة خطاء
type missmatch
هذا مثال للتصفية اذا امكنك التعديل عليه بما يطابق طلبي
اختي الكريمة قصدت في الملف المرفوع للتجربة فقط فهو فيه نفس المبداء
يعني اذا امكن ان يتم التغيير في كود الملف المرفوع ليقوم بالتصفية للجنسيتين او اكثر بدل الجنسية الواحدة
وانا اطبقه على برنامجي لكبر حجمه لااستطيع رفعه
وشكرا
تفضل احي الكريم
شكرا اخي الكريم بارك الله بيك تمت الفائدة
