سلاما يا عراق

الاخ الغالي ازهر .. بداية شكرا لك على الردود وجزاك الله خيرا . واعتذر عن تسميتك ازهار سهوا نعم لقد قمت بالتجربة عشرات المرات حتى وصلت الى النتيجة جزاك الله خيرا .

الاخت الفاضلة زهراء السلام عليكم هذا مرفق للمثال عملته كما وصفتِ لي ولكن مع الاسف لا يعمل معي انتظر الرد وشكرا . Database161.zip

الاخت الفاضلة السلام عليكم شكرا للاجابة وهذا فضل منكم . وانا بامس الحاجة لهذا المثال وجربت الشرح الذي ارفته بالصورة وبنفس الوقت لم يعمل معي النوذج شكرا مرة اخرى

اللاخ الفاضل صاحب الموضوع .. الاخوة الافاضل السلام عليكم ورحمة الله . كيف يتم فتح الفورم ذاتيا عند تشغيل البرنامج . عملت نفس تصميم البرنامج الذي عملته انت ( في المرفق ) بالضبط وبنفس المسميات وعملت الكود البرمجي التالي ولكن عند تطبيقه لا يقوم بفرز الجدول كما في مثالك انا اعتقد ان الخطأ في الكود راجيا منك ايجاد الخطأ وتوضيحه ومعالجته واعلامي واكون لك شاكرا وممتنا الكود الذي كتبته انا نقلا عن كودك Private Sub combo1_AfterUpdate() Dim r As String r = combo9 Me.RecordSource = " select table.1* from table1 where (((table1.dd)='" & [Forms]![frma]![combo9] & "'));" r = combo9 End Sub

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