[محمد اسماعيل]

عندي قاعدة بيانات اكسيس 2007 مربوطة بالفيجول بيسك 

استخدم كود البحث بالطريقة  BindingSource1  الشرط الاول المدخل - الثاني التاريخ  ولكن كود البحث عن تاريخ لايعمل

اريد تعديل البحث عن التاريخ

كود :

If DataSet1.Tables("Table1").Compute("count(Studentsed)".ToLower, "Studentsed like '%".ToLower & TextBox9.Text.Trim & "%' ").ToString > 0 Then
            BindingSource1.Filter = "Studentsed like '%".ToLower & TextBox9.Text.ToLower & "%'"

        ElseIf IsDate(TextBox9.Text) Then

            Dim day As Date = TextBox9.Text

            TextBox9.Text = Format(day, "MM/yyyy")

            If DataSet1.Tables("Table1").Compute("count(Studentend)".ToLower, "Studentend like '%".ToLower & TextBox9.Text.Trim & "%' ").ToString > 0 Then
                BindingSource1.Filter = "Studentend like '%".ToLower & TextBox9.Text & "%'"


            End If

[alims]

السلام عليكم اخى انا التعديل لى عندى هو خطا هنا (day, "MM/yyyy") المفروض تكون كده (dd, "MM/yyyy")