metin kutusu yerine açılır kutu ekledim
açılır kutu arama
Me.AKSoru.RowSource = "SELECT soruana.Kimlik, soruana.soru, soruana.cevap " & _
"FROM soruana " & _
"WHERE ((soruana.soru) Like ""*" & Me.AKSoru.Text & "*"") " & _
"ORDER BY soruana.[soru];"
Me.AKSoru.Dropdown