AccessTr.neT

metin kutusuna ab girip düğmeye basınca liste kutusuna bab, baba verilerinin gelmesi gerek.
2007 ofis kullanıyorum, versiyon farkı olabili mi acaba.

Üstadım ben dün Dao yu biraz anlayayım diye örnek yapmıştım.

Yani maksat % yerine * kullanmak.

Sizin dosyada deneyemedim.
Birde bilmem olurmu koda tüm harflari yazmaktansa mesela 
Harf = "[az]"  yazıp bunun içini döngüyle alunıyormu.
Zamanım olmadığı için uğraşamadım.Eğer dediğimin içinde dolaşılırsa replace ile a ve b temizlenebilir.

Sadece olurnu diye merak ettim.

Deneme(4)=m  oluyor galiba

(03/02/2020, 12:59)alicimri yazdı: [ -> ]metin kutusuna ab girip düğmeye basınca liste kutusuna bab, baba verilerinin gelmesi gerek.
2007 ofis kullanıyorum, versiyon farkı olabili mi acaba.

Akşam bu konuya bir el atacağım.

(03/02/2020, 13:30)accessman yazdı: [ -> ]Deneme(4)=m  oluyor galiba

Olursa süper olur.

(03/02/2020, 12:59)alicimri yazdı: [ -> ]metin kutusuna ab girip düğmeye basınca liste kutusuna bab, baba verilerinin gelmesi gerek.
2007 ofis kullanıyorum, versiyon farkı olabili mi acaba.

Dosyayı bir deneyiniz.

Private Sub Komut0_Click()



Dim ys2 As dao.Recordset



For z = Liste1.ListCount - 1 To 0 Step -1

    Liste1.RemoveItem (z)

Next z

metin = Metin3.Text

harf = "a b c ç d e f g ğ h i ı j k l m n o ö p r s ş t u ü v y z"

harf = Split(harf, " ")

For i = 0 To UBound(harf)

If InStr(1, metin, harf(i)) = 0 Then

yharf = yharf & harf(i)

End If

Next



xx = "Select* From kelime Where F1 not Like '*[" & yharf & "]*'"



Set ys2 = CurrentDb.OpenRecordset(xx)



For x = 1 To ys2.RecordCount

Liste1.AddItem ys2("F1").Value

ys2.MoveNext

Next

End Sub



Private Sub Metin3_Change()

    Komut0_Click

End Sub