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