AccessTr.neT
Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. (/konu-vba-ile-olusturulan-sql-metninde-karakterinin-kullanimi.html)

Sayfalar: 1 2 3 4 5

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - alicimri - 03/02/2020

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

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 03/02/2020

Ü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.

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - accessman - 03/02/2020

Deneme(4)=m  oluyor galiba

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 03/02/2020

(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.

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 03/02/2020

(03/02/2020, 13:30)accessman yazdı: Deneme(4)=m  oluyor galiba
Olursa süper olur.

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 04/02/2020

(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.

[Resim: do.php?img=9525]

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