Me.gecici = arama.Text
yerineMe.gecici = StrConv(Replace(arama.Text, "i", "İ"), 1)
Me.gecici = Replace(arama.Text, "ı", "I")
eklenirse sanırım sorun kalmaz. Veya
Function Degistir(Veri)
Veri = Replace(Veri, "i", "İ")
Veri = Replace(Veri, "ı", "I")
Degistir = Veri
End Function
Me.gecici = StrConv(Degistir(arama.Text), 1)
koduda kullanılabilir.