Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Access Soruları (http://www.excel.web.tr/forumdisplay.php?f=57)
-   -   Textboxa yazdığım isim Listboxa gelmiyor (http://www.excel.web.tr/showthread.php?t=164246)

gundogdu42 23-05-2017 23:24

Textboxa yazdığım isim Listboxa gelmiyor
 
Arkadaşlar mrb,

Textboxa yazdığım harfe göre listboxa gelmiyor.
Daha önce Access 2003 versiyonunda geliyordu şimdi 2007 versiyonu yükledik gelmiyor.
Bu soruna nasıl bir çözüm bulabiliriz.
İlgilenen herkese şimdiden teşekkürler.

Private Sub TextBox5_Updated(Code As Integer)
Dim strSuz, SQL As String
If Me.TextBox5 <> "" Then
strSuz = " '*" & Me.TextBox5 & "*'"
Else
strSuz = "'*'"
End If
SQL = "SELECT DISTINCTROW MUSTERI.[*], MUSTERI.SOYADI, MUSTERI.ADI FROM MUSTERI WHERE MUSTERI.SOYADI LIKE " & strSuz & " ORDER BY MUSTERI.SOYADI;"

Me.Liste13.RowSource = SQL
End Sub

gundogdu42 24-05-2017 21:05

Yokmu arkadaşlar yardımcı olacak. Konu acil.

Mahmut Bayram 24-05-2017 22:38

Keypress olayına yazıp dener misiniz!

Kod:

Private Sub TextBox5_KeyPress(ByVal KeyAscii As Object)
Dim strSuz, SQL As String
If Me.TextBox5 <> "" Then
strSuz = " '*" & Me.TextBox5 & "*'"
Else
strSuz = "'*'"
End If
SQL = "SELECT DISTINCTROW MUSTERI.[*], MUSTERI.SOYADI, MUSTERI.ADI FROM MUSTERI WHERE MUSTERI.SOYADI LIKE " & strSuz & " ORDER BY MUSTERI.SOYADI;"

Me.Liste13.RowSource = SQL
End Sub


gundogdu42 24-05-2017 22:56

Mrb,

Mahmut bey öncelikle yardımınız için çok teşekkürler.
Bu şekilde istediğim oldu, Fakat yazdıklarımı sildiğimde listboxda aynı şekilde kalıyor. yani eski durumuna dönmüyor. aynı şekilde alanı boşaltan buton yaptım ondada alan boşalınca listbox eski haline gelmiyor.
Bununla ilgili de bir öneriniz olurmu.

Mahmut Bayram 24-05-2017 22:57

Bende * basınca listbox eski haline geldi.
access ten çıkınca durduruldu diye de hata verdi.

akd 12-06-2017 20:57

ofis2007 gelişimini tamamlamadan, ofis2010 çıkartılar,
ofis2010 çok güzel bu sorunlarla karşılaşmazsınız.


Saat 05:54

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.