(17/09/2022, 23:46)berduş yazdı: 1. soru için aşağıdaki kodu dener misiniz?

Private Sub arama_Change()

Me.Filter = "[AD_SOYAD] like '*" & Me.arama.Text & "*'"

Me.FilterOn = True

arama.SelStart = arama.SelLength

End Sub

Aklınıza sağlık. Evet çalışıyor. Bir başka forumda çok bilmiş arkadaşını birinin yorumuna ders niteliğinde oldu. Emeğiniz için teşekkür ediyorum.