13-05-13, 04:36 AM
ممكن لو انت مستخدم قاعدة البيانات ado
عن طريق الكود
فى حدث التكست مع اضافة بعض تعديلات خاصة بك
On Error Resume Next
If Text2 = "" Then
Me.Adodc1.Refresh
Me.Adodc1.Recordset.MoveLast
Else
Me.Adodc1.Recordset.Filter = " [اسم الحقل] LIKE '" & Me.Text1 & "*' "
End If
عن طريق الكود
فى حدث التكست مع اضافة بعض تعديلات خاصة بك
On Error Resume Next
If Text2 = "" Then
Me.Adodc1.Refresh
Me.Adodc1.Recordset.MoveLast
Else
Me.Adodc1.Recordset.Filter = " [اسم الحقل] LIKE '" & Me.Text1 & "*' "
End If
اعتذر عن الانقطاع لظروف خاصة 