قائمة منسدلة لا تقوم بالتصفية

[محسن سرحان]

اخوانى الكرام

كل عام وانتم بخير

عندي برنامج به نموذج به اربع قوائم منسدلة مبنية على جدول به بيانات كاملة عن المدرسة

ولكني عندما اقو باختيار مدرسة معينة ومحددة اريد ان تكون كل القوائم الباقية متحدد فيها تلقائي الادارة والصف ونوع المدرسة

وشكرا

برنامج ليست بوكس الادارة.rar

[محسن سرحان]

للرفع

[محسن سرحان]

للرفع

[AlwaZeeR]

السلام عليكم ورحمة الله وبركاته ،،،

اخي الكريم

كل عام وانت بالف خير

على حسب ما فهمت ...

جرب ووافني بالنتيجة

::

تحياتي

Alwazeer-listBox.rar

[محسن سرحان]

اشكرك احي

alwazeer

كل وانت بخير

المثال جميل ويفي بالغرض بنسبة 90%

ولكن هناك ملحوظة

هناك جدول في المثال اسمه T1 ارجو ان تكون القيم المختارة في النموذج ان تُسجل في الجدول المصدر  T1

وشكرا

[AlwaZeeR]

انشئ زر امر وضع في حدث عند النقر الكود التالي:

   Dim dbs As DAO.Database
   Dim rst As DAO.Recordset
  
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("T1")
   
   rst.AddNew
      
      rst("Edara").Value = [schoolID].[Column](2)
      rst("school").Value = [schoolID].[Column](1)
      rst("SAFE").Value = [schoolID].[Column](4)
      rst("school_kind").Value = [schoolID].[Column](3)

 rst.Update

::

تحياتي