Estafurullah neden yanlış anlayayım.. Maksat bi faydamız olsun.. Randıman alamamktan kasıt Türkçe karakterlerin yine Türkçe olarak kalması. Sonradan arama alanında arama yaparken hangi karakterli kaydedilmiş olacağı mühim oluyor.. Mesela benim adım Şevki eğer ben bunu Ş harfi ile kaydedersem ve sonradan Sevki diye aramaya kalkarsam bir sonuca ulaşamıyorum.. Hep aklımda bunu nasıl giderebilirim sorusu vardı bunu sizin konunuz sayesinde çözdüm.. Tabi tabloya kayıt yapma mevzusunu hiç düşünmemiştim sizin bu mesajınızı okuyana dek.. Birde her textbox a yazmaya gerek duymam diye düşündüm sadece sonradan lazım olacak 1-2 textbox işimi görür diye düşünmüştüm ve sanırım denedim form un key press olayına ekledim ama sonuc alamadım bir daha deneyeceğim.

---

Şimdi denedim.. kodu aşağıdaki şekilde girdiğimde textbox a yazarken işlevi yok..

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 351 Then 'KUCUK SHE

 KeyAscii = 83 'BUYUK S

 ElseIf KeyAscii = 350 Then ' BUYUK SHE

 KeyAscii = 83 'BUYUK S

  ElseIf KeyAscii = 304 Then 'BUYUK i

 KeyAscii = 73 ' BUYUK I

ElseIf KeyAscii = 305 Then 'KUCUK I

 KeyAscii = 73 ' BUYUK I

ElseIf KeyAscii = 287 Then 'KUCUK YUMUSAKG

 KeyAscii = 71 ' BUYUK G

 ElseIf KeyAscii = 286 Then 'BUYUK YUMUSAKG

 KeyAscii = 71 'BUYUK G

  ElseIf KeyAscii = 231 Then 'küçük Ç

 KeyAscii = 67 'BUYUK C

   ElseIf KeyAscii = 199 Then 'büyük Ç

 KeyAscii = 67 'BUYUK C

    ElseIf KeyAscii = 214 Then 'büyük Ö

 KeyAscii = 79 'BUYUK O

     ElseIf KeyAscii = 246 Then 'KÜÇÜK Ö

 KeyAscii = 79 'BUYUK O

     ElseIf KeyAscii = 220 Then 'büyük Ü

 KeyAscii = 85 'BUYUK U

      ElseIf KeyAscii = 252 Then 'KÜÇÜK Ü

 KeyAscii = 85 'BUYUK U

 ElseIf KeyAscii > 96 And KeyAscii < 123 Then

 KeyAscii = Asc(UCase(Chr(KeyAscii)))

 End If

End Sub