توقع باقى النص فى عملية البحث

أخي العزيز rokaphp

أضف الكود التالي:

Private Sub Text1_Change()
	Data1.RecordSource = "Select * From roka Where [name] Like '" & Text1 & "*'"
	Data1.Refresh
End Sub

ارجو التعديل على الملف المرفق