خطأ في الكود عند الاختيار من مربع تحرير وسرد

[بلال اليامين]

السلام عليكم

خطأ في الكود عند الاختيار من مربع تحرير وسرد

اليكم الكود  

Private Sub نص30_Click()
 Me.Child14.Form.FilterOn = False
           myCriteria = ""
        If Me.نص30 = "كل الافواج" Then
            Me.Child14.Form.FilterOn = False
        Else
            myCriteria = myCriteria & "("
            myCriteria = myCriteria & "[الموسم الدراسي]= '" & Me.نص30 & "'"
            myCriteria = myCriteria & ")"
        
            Debug.Print myCriteria
            Me.Child14.Form.Filter = myCriteria
            Me.Child14.Form.FilterOn = True
        End If
End Sub

واليك الصورة تظهر عند الاختيار

خطا.rar

تم تعديل يونيو 27, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة