بعد اذن اخي الاستاذ @الفلاحجى حل اخر في البداية عملنا استعلام اسميتة q_1 وجعلنا الاستعلام يساوي SELECT Student.المادة FROM Student GROUP BY Student.المادة HAVING (((Student.المادة) Like "*" & [Forms]![FORM2]![text3].[Text] & "*")) ORDER BY Student.المادة; ثم النموذج لمربع التحرير والسرد في تبويب بيانات غيرنا توسيع تلقائي الى لا اخيرا في حدث عند مفتاح اعلى وضعنا الكود التالي If Len(Me.text3.Text) > 0 Then Me.text3.RowSource = "q_1" Me.text3.Dropdown Else