Rapordaki kodu aşağıdaki ile değiştirirseniz daha doğru olacak gibi,
Kod:
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Me.Metin11 = StrConv(Left(adı, 1) & convert(Mid(adı, 2, Len(adı) - 1), 1), 3)
Me.Metin12 = StrConv(Left(soyadı, 1) & convert(Mid(soyadı, 2, Len(soyadı) - 1), 1), 3)
End Sub
Function convert(metin, secim)
metin = Replace(metin, "I", "ı")
metin = Replace(metin, "İ", "i")
convert = metin
End Function