textsayisi = XPText5.Text
Set Db = OpenDatabase("C:\Program Files\Common Files\FthDB\db.fth", dbOpenSnapshot)
Set kayitlar = Db.OpenRecordset("musteri")
 
x = kayitlar.RecordCount
kayitlar.MoveFirst
xlist1.clear
eleme = kayitlar!adi
Do
      If Left(eleme, Len(textsayisi)) = textsayisi Then
      XPList1.AddItem kayitlar!adi
      End If
      Y = Y + 1
      kayitlar.MoveNext
Loop Until Y = x
 
 
Arkadslar ben xptext5 e girilen karakterleri sağlayan kayıtları listemek istiyorum ama lisede sadece karakterleri sağlayan kyıtlar kalacak yani liste elemesi yapacam bu kodu yazdım ama sorun var bi ilgilenirseniz seviniyorum sididen tsk.

saol banada yardımcı olmuş oldun