أخي @حمدى الظابط عدلت هذا الكود
' Me.Filter = "الفصل = forms![توزيع الحصص]!Mr"
' اصبح كما ترى بدلا من الفلتر mr اصبح mr1
Me.Filter = "الفصل = forms![توزيع الحصص]!Mr1"
Me.FilterOn = True
Me.اسم_المعلم.Visible = True
Me.المادة.Visible = True
Me.عدد_الحصص.Visible = True
Me.الاحد.Visible = True
Me.الاثنين.Visible = True
Me.الثلاثاء.Visible = True
Me.الاربعاء.Visible = True
Me.الخميس.Visible = True
Me.NavigationButtons = True
Me.Requery
End Sub