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

22/10/2019, 12:49

cemre1970

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.
22/10/2019, 12:53

berduş

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
22/10/2019, 14:10

cemre1970

(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




"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 


Teşekkürler.
22/10/2019, 14:45

berduş

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
22/10/2019, 15:33

cemre1970

(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.