[تمت الاجابة] سؤال فى هذه الكود

[فرهاد كريم]

بسم الله الرحمن الرحيم
تحية طيبة للجميع
اساتذة لديه هذا الكود و هو لعمل تصفيه ( Filter ) على البيانات و اضهار نتيجة التصفية فى التقرير
هذا هو الكود

Option Compare Database
Private Sub Command8_Click()
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFilterBySelection
Me.Caption = "FilterBy Selection"
DoCmd.OpenReport "Report Name", acViewPreview, , Me.Filter
End Sub

المشكلة عندما اريد تنفيذ الكود من خلال الزر تضهر علامة Error فى سطر DoCmd.RunCommand acCmdFilterBySelection فلا اعرف هل هناك مشكلة فى الكود

[منتصر الانسي]

اخي العزيز

لاتظهر اي مشكلة في الكود

ولكن بحسب مكان ظهور الخطأ وبحسب الكود فإنه يقوم بالعودة إلى عنصر التحكم السابق

Screen.PreviousControl.SetFocus

ثم القيام بالتصفية بحسب ماهو محدد في هذا العنصر وبالتالي يتطلب ذلك مايلي :

- ان يكون العنصر السابق (مربع نص)

- أن يكون في مربع النص البيانات المراد التصفية بموجبها

- أي أنه يجب تحديد النص المراد التصفية بموجبة ثم النقر على الزر دون الانتقال الى اي عنصر تحكم اخر بينهما (مربع النص ----> الزر)

فإذا كنت مراعيا لهذه الملاحظات فقد تكون المشكلة مرتبطة بالمراجع أو غيرها

تحياتي,,,

[فرهاد كريم]

شكرا لك استاذى العزيز و الله استاذى العزيز لقد عملت كما قلت ولكن المشكلة تضهر فى هذا السطر من الكود

DoCmd.RunCommand acCmdFilterBySelection

و اذا امكن يا اساتذة كود اخر يقوم بنفس عمل التصفية اشكركم جزيل شكر

تم تعديل أبريل 10, 2014 بواسطه أبا عمر

[منتصر الانسي]

اخي العزيز

اذا كان الغرض هو فتح تقرير على سجل محدد فيكفي ان تضع مسار مربع النص في معيار الاستعلام المبني عليه التقرير

للتوضيح مرفق لك مثال بسيط

تحياتي

db1.rar

[فرهاد كريم]

شكرا استاذى العزيز ان شاء الله موفق

[أبا عمر]

ينقل 

...........