+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusunda Tuşa Basıldığında Filtreleme (/konu-metin-kutusunda-tusa-basildiginda-filtreleme.html)
Metin Kutusunda Tuşa Basıldığında Filtreleme - vetaltan - 26/02/2020
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
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
Cvp: Metin Kutusunda Tuşabasıldığında Filtreleme - berduş - 26/02/2020
çalışmanızın ilgili kısmını ekleyebilir misiniz?
Cvp: Metin Kutusunda Tuşabasıldığında Filtreleme - vetaltan - 27/02/2020
metinkutususüzmehatası.mdb.rar
(Dosya Boyutu: 294,91 KB | İndirme Sayısı: 4)
ilgili mdb ekte
Cvp: Metin Kutusunda Tuşabasıldığında Filtreleme - berduş - 28/02/2020
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)Cvp: Metin Kutusunda Tuşa Basıldığında Filtreleme - vetaltan - 28/02/2020
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
Cvp: Metin Kutusunda Tuşa Basıldığında Filtreleme - berduş - 28/02/2020
kodun en başına
On Error Resume Nexto da olmuyor pardon