Nezaketiniz için teşekkür eder iyi çalışmalar dilerim. Tuş ön izlemesini "evet" olarak ayarlamayı unutmayın, yoksa kod çalışmıyor. Yazmış olduğunuz kod benim yukarıda belirtmiş olduğum kod değil.

Private Sub Form_KeyPress(KeyAscii As Integer)

 

If KeyAscii = 246 Then '(ö) ise

KeyAscii = 214 '(Ö) yap

ElseIf KeyAscii = 231 Then '(ç) ise

KeyAscii = 199 '(Ç) yap

ElseIf KeyAscii = 351 Then '(ş) ise

KeyAscii = 350 '(Ş) yap

ElseIf KeyAscii = 105 Then '(i) ise

KeyAscii = 304 '(İ) yap

ElseIf KeyAscii = 252 Then '(ü) ise

KeyAscii = 220 '(Ü) yap

ElseIf KeyAscii = 287 Then '(ğ) ise

KeyAscii = 286 '(Ğ) yap

 

ElseIf KeyAscii = 305 Then '(ı) ise

KeyAscii = 73 '(I) yap

 

ElseIf KeyAscii > 96 And KeyAscii < 123 Then

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

End If

 

End Sub