AccessTr.neT

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.

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

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