Skip to main content

AccessTr.neT


Açılan Kutuda Yön Tuşu Çalıştırma

Açılan Kutuda Yön Tuşu Çalıştırma

Çözüldü #1
Selamlar

Forma veri girişi yaptığım açılır kutuda aşağı yön tuşuna bastığımda, açılır kutu içerisinde kayıtlar arasında hareket etmesini sağlayabilir miyiz?

Teşekkürler.
.rar vt.rar (Dosya Boyutu: 19,01 KB | İndirme Sayısı: 0)
Son Düzenleme: 22/10/2019, 12:49, Düzenleyen: cemre1970.
Cevapla
#2
tam olarak anlamadım
açılır kutuya girdiğinizde aşağı yukarı tuşları zaten çalışır,
tam olarak yapmak istediğinizi biraz daha ayrıntılı anlatır mısınız?
açılan kutu odaklanıldığında olayını aşağıdaki gibi düzenler misiniz
Private Sub Açılan_Kutu4_GotFocus()
Me.Açılan_Kutu4.Dropdown
End Sub
Cevapla
#3
(22/10/2019, 12:57)berduş yazdı: açılan kutu odaklanıldığında olayını aşağıdaki gibi düzenler misiniz
Private Sub Açılan_Kutu4_GotFocus()
Me.Açılan_Kutu4.Dropdown
End Sub


Sayın berduş, yapmak istediğim tam olarak 2. resimdeki gibidir


[Resim: do.php?img=9253]

"A"  tuşuna basıldığında açılan kutu içerisinde "A"  ile başlayan diğer kayıtlar arasında hareket edip seçebilmek mümkün müdür?
Teşekkürler 
[Resim: do.php?img=9254]

Teşekkürler.
Cevapla
#4
aşağıdaki kodu dener misiniz?
değiştiğinde olayının kod
Private Sub Açılan_Kutu4_Change()
Dim SqlYazi, txtGec As String

If Me.Açılan_Kutu4.SelLength = Len(Me.Açılan_Kutu4.Text) Then Exit Sub
If Me.Açılan_Kutu4.SelLength > 0 And Me.Açılan_Kutu4.SelLength < Len(Me.Açılan_Kutu4.Text) Then
    txtGec = Left(Me.Açılan_Kutu4.Text, Me.Açılan_Kutu4.SelStart)
Else
    txtGec = Me.Açılan_Kutu4.Text
End If

SqlYazi = " SELECT Tablo1.Kimlik, Tablo1.ADI " & _
          " FROM Tablo1 " & _
          " WHERE (((Tablo1.ADI) like '" & txtGec & "*')) " & _
          " ORDER BY Tablo1.ADI"
Debug.Print SqlYazi
Me.Açılan_Kutu4.RowSource = SqlYazi
Me.Açılan_Kutu4.Dropdown
End Sub
Cevapla
#5
(22/10/2019, 14:45)berduş yazdı: aşağıdaki kodu dener misiniz?
değiştiğinde olayının kod
Private Sub Açılan_Kutu4_Change()
Dim SqlYazi, txtGec As String

If Me.Açılan_Kutu4.SelLength = Len(Me.Açılan_Kutu4.Text) Then Exit Sub
If Me.Açılan_Kutu4.SelLength > 0 And Me.Açılan_Kutu4.SelLength < Len(Me.Açılan_Kutu4.Text) Then
    txtGec = Left(Me.Açılan_Kutu4.Text, Me.Açılan_Kutu4.SelStart)
Else
    txtGec = Me.Açılan_Kutu4.Text
End If

SqlYazi = " SELECT Tablo1.Kimlik, Tablo1.ADI " & _
          " FROM Tablo1 " & _
          " WHERE (((Tablo1.ADI) like '" & txtGec & "*')) " & _
          " ORDER BY Tablo1.ADI"
Debug.Print SqlYazi
Me.Açılan_Kutu4.RowSource = SqlYazi
Me.Açılan_Kutu4.Dropdown
End Sub


Çok teşekkürler, güzel olmuş, emeğinize sağlık.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da