اريد لما اضغط اول حرف يحدد الإسم في ال ListBox

السلام عليكم

اقتباس

sqlss = "select name from table1 where name like '" & Text1 & "%' "

If rs.State = adStateOpen Then rs.Close

rs.Open sqlss, db, adOpenKeyset, adLockPessimistic

If rs.EOF = True Then GoTo end1:

rs.MoveFirst

Do

List1.AddItem rs.Fields("name")

rs.MoveNext

Loop Until rs.EOF = True

End If

يفضل اضافة textbox اعلى listbox لكي تتم فيه كتابة الاحرف

بالتوفيق

شكراً لك اخي احمد ولكن اخي احمد اين اضع الكود

انا وضعته جوه التكست عطاني انه يوجد خطأ بالكود

وجربت اضعه بداخل الـ List كمان ما زبط

Private Sub List1_Click()

sqlss = "select name from table1 where name like '" & Text1 & "%' "

If rs.State = adStateOpen Then rs.Close

rs.Open sqlss, db, adOpenKeyset, adLockPessimistic

If rs.EOF = True Then GoTo end1:

rs.MoveFirst

Do

List1.AddItem rs.Fields("name")

rs.MoveNext

Loop Until rs.EOF = True

End If

End Sub

ما زبط

ما الخطأ

انا اريد يحددلي الاسم من دون التكست يعني مثلاً لما اكون انا محدد اسم محمد واريد بعدها الذهاب لإسم أحمد اري بهذه الحالة لما اضغط على حرف الـ أ يروح على اسم أحمد

السلام عليكم

انا اسف لم اقل لك اين تضع الكود

تضعه في حدث change لل text

ظهر لي الخطأ هذا

احذف endif لاني احضرت الكود من برنامج لي وضع بدلها :end1

نفس المشكلة

هل هناك جدول تجلب منه الاسماء في قاعدة البيانات

هل هناك جدول تجلب منه الاسماء في قاعدة البيانات

شكراً لك أخي العزيز captinflent

هلا زبط معي

الله يعطيك الف عافية

وشكراً أيضاً للأخ AHMAD KALIL

شكراً لكم