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
#2
çalışmanızın ilgili kısmını ekleyebilir misiniz?
Cevapla
#3
.rar metinkutususüzmehatası.mdb.rar (Dosya Boyutu: 294,91 KB | İndirme Sayısı: 4)


ilgili mdb ekte
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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)
.rar metinkutususüzme_hy.rar (Dosya Boyutu: 18,29 KB | İndirme Sayısı: 4)
Cevapla
#5
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
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
kodun en başına
On Error Resume Next
ekler misiniz?

o da olmuyor pardon
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da