eğer karakter hatarı D, � veya ? şeklinde değilde her hatalı karakter yerine farklı sembol gösteriyorsa aşağıdaki kodu kullanabilirsin.
Kod:
Function convert(metin, secim)
Select Case secim
Case 0
metin = convert(metin, 1)
metin = convert(Left(metin, 1), 2) & Mid(metin, 2, Len(metin) - 1)
Case 1
metin = Replace(metin, "%E7", "ç") ' %E7 yerine ç
metin = Replace(metin, "%C7", "Ç")
metin = Replace(metin, "%F0", "ğ")
metin = Replace(metin, "%D0", "Ğ")
End Select
convert = metin
End Function
Private Sub Form_Current()
Me.adısoyadı.Value = convert([adısoyadı], 0)
End Sub