büyük harfe çevirme işi için koda ihtiyacınız var gibi görünüyor. Türkçe karakterleri doğru çevirmek için ise yeni kod yazmak gerekiyor. Ama tabi bu kadar büyük bir alanda performans nasıl olur bilemiyorum.

Bir ara büyük harfe çevirme işi için (Türkçe karakterleri de doğru çeviren) hazır bir kod vardı elimde ama şimdi bulamadım.

Kodu buldum (alıntıdır). Denersiniz.

Function Buyuk(Veri As String) As String

Dim a As Integer

Dim b As String

    For a = 1 To Len(Veri)

        If Mid(Veri, a, 1) = "i" Then

            b = "İ"

        ElseIf Mid(Veri, a, 1) = "ı" Then

            b = "I" 'Başka sorun çıkaran harf olursa buradan sonra ElseIf diye devam ederek yazın.

        Else

            b = Mid(UCase(Veri), a, 1)

        End If

        Buyuk = Buyuk & b

    Next

End Function

ilgilenen herkese teşekkür ederim.
başarılı olamadım.sağlık olsun.

Evvelki akşam elektrikler kesilip dün gece sabaha karşı geldiği için cevap yazamadım.

Kodu mu uygulayamadınız bilmiyorum ama gene de aşağıya eklediğim uygulamanıza bir bakın. RprDepoDurumu raporu, kaynağını tablodan değil, SrgDepoDurumu sorgusundan alır.

Ek Dosyalar

tablo sonsuz veri girme.rar(86.17 KB)

sn.WiniFred
çok teşekkür ediyorum.
istediğim tam olarak buydu.
ilgin için tekrar teşekkür ediyorum.
çalışmalarınızda başarılar diliyorum.