Arama Kutusu İle Liste Kutusunu Eşleştirme

Umarım isteğinize cevap verir.
İnceleyip dönerseniz sevinirim.

açılan kutunun tuşa basıldığı olayını aşağıdaki kodla değiştirirseniz esc tuşuna bastığınızda aramayı temizlemiş olursunuz.


Private Sub Açılan_Kutu258_KeyPress(KeyAscii As Integer)
Me.arama = arama & (Chr(KeyAscii))
If Chr(KeyAscii) = Chr(27) Then
Me.arama = ""
End If
Me.Liste262.Requery
End Sub

Bu arada bende askerliğimi Borçka'da yapmıştım. Şayet askersen iyi teskereler değilse iyi mesailer dilerim.

Arkadaşlar problemimi hallettim, herkese teşekkürler..
Ancak dönebildim, malum her zaman bilgisayarın başında olamıyorum..

On Change (değiştiğinde) olayında arama kutusunun (textbox1.text gibi) text özelliğini kullanarak istediğinizi yapabilirsiniz.
Keypress ile alıp, başka değişkenlere aktarmaya gerek kalmıyor bu şekilde.

(13/03/2013, 17:13)QATLET yazdı: Merhabalar;
siz arama kutusuna veri girerken enter tuşuna basmadan yada başkaca bir alana geçmeden arama kutunuz yeni girdiğiniz değeri almaz. Dolayısı ile liste kutusunda da arama kutusunun değerine uygun kaydı bulamazsınız.

Öncelikle arama kutusuna girdiğiniz her karekteri bir şekilde başkaca bir değişkene her tuşu ekleyerek atamanız ve o atadığınız değişkene göre listeyi requrey etmeniz gerektiğini düşünüyorum.

Ustalarımız daha iyi bilirler ama benim görüşüm bu.