اريد طريقة البحث التلقائي لو سمحتووووووووووووووووو

أكتب الكود بتاعك في text1_change

جزاك الله خير اخي hishamnasr

انا كتبت هذا الكودا بس مانفع معاي .. ممكن توصلوني للكود الصح .؟؟

Dim FG As New ADODB.Recordset

Dim SQL As String

SQL = "select f from flag where f like '*" & Flag.Text & "*' "

Set FG = Cn.Execute(SQL)

If FG.BOF Then

Exit Sub

Else

SRCH.Caption = FG!f

FG.Close

Set FG = Nothing

End If

ولكم مني الدعاء

شباب تبون ادعيلكم ادعيلكم . تبون اوزع عليكم هدايا وزعت . اللي تبون بس حلو مشكلتي الله يخليكم .. وه بس :(

بأسرع وقت .. والا بشكيكم لربي :)

اكتب الكود التالي في حدث text_change

Dim sql
sql = "select * from table_name where feild_name like '%" + Text1.Text + "%'"
If rs.State = adStateOpen Then rs.Close
rs.Open sql, db, adOpenDynamic, adLockOptimistic
Set dl1.RowSource = rs
DataList.ListField = "feild_name"

مع العلم أن الكود مكتوب أكثر من مرة قبل ذلك .... ولكن يجب استخدام خاصية البحث

تحياتي لك

اخوك ناصر

اشكرا بعنف ومن اعماق قلبي اخي ناصر :)

شكراً