السلام عليكم
خطأ في الكود عند الاختيار من مربع تحرير وسرد
اليكم الكود
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