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