الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن سوال فى هذه الكود

بدأه Farhad Karim في 13 أبريل 2011 · 3 رد · 353 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

تحية طيبة للجميع

اساتذة لديه هذا الكود و هو لعمل تصفيه ( 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 فلا اعرف هل هناك مشكلة فى الكود

#2

ضع مثال في قاعدة مستقلة وبه الكود

ثم جرب واذا لم ينفع قم برفعه للمنتدى وستجد الحل ان شاء الله

سيد الاستغفار

{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}

من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري

#3

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

DoCmd.RunCommand acCmdFilterBySelection

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

#4

هذا يعنى انك تستخدم الكود فى نموذج غير مرتبط بجدول على الاغلب

ضع مثالك لنتبين ما سبب المشكلة

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

مواضيع مشابهة