Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Metin Kutusunda Tuşa Basıldığında Filtreleme - Yazar: vetaltan - 26/02/2020, 17:20
Task