Metin Kutusunda Tuşa Basıldığında Filtreleme

Private Sub SAD_KeyPress(KeyAscii As Integer)



On Error GoTo A

Forms!adlar.RecordSource = "adlartum"

If KeyAscii = vbKeySpace Then

DoCmd.GoToControl "SAD"

Me.SAD.SelStart = Nz(Len(Me.SAD) + 1, 0)

Else

DoCmd.GoToControl "SAD"

Me.SAD.SelStart = Nz(Len(Me.SAD), 0)

End If



A:





End Sub

Değerli arkadaşlar,
1.Örnek kodda görüldüğü üzere metin kutusundan her tuşa basıldığında adları filtreleyerek forma getiriyor,ancak ikinci ad yada soyadı için boşluk tuşunu kullandıktan sonra ,herhangi bir tuşa basıldığında boşluğu yok edip,birleşik olarak devam ediyor.
2.yazılan isim adlartum sorgusu tarafından bulunamıyorsa,hata veriyor.Bunu engellemek üzere on error goto kullandım.Ancak bu sefer  son yazılan değil tüm yazılanları seçiyor.

Yukarıda hatalarını verdiğim kodun bu hatalarını nasıl düzeltebilirim.

Saygılar
Altan

çalışmanızın ilgili kısmını ekleyebilir misiniz?

[attachment=31574]

ilgili mdb ekte

SAD_KeyPress tuşa basıldığında olayını silip değiştiğinde olayına aşağıdaki kodu yazmayı dener misiniz?

Dim txtKrt As String



txtKrt = Me.SAD.Text

Me.Requery

DoCmd.GoToControl "SAD"

Me.SAD = txtKrt

Me.SAD.SelStart = Nz(Len(Me.SAD), 0)

Sayın Berduş,
Boşluk tuşu sorunum çözüldü,teşekkür ederim.
2. sorunum olan hatalı isim yazdığımda on error goto kullanmazsam 1. ekteki hatayı veriyor.Kullanırsam cursor , SAD daki tüm alanı tutuyor,sona gitmiyor.2.ek

kodun en başına

On Error Resume Next

ekler misiniz?

o da olmuyor pardon