AccessTr.neT
tabloda sonsuz bilgi girme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tabloda sonsuz bilgi girme (/konu-tabloda-sonsuz-bilgi-girme.html)

Sayfalar: 1 2 3

Cvp: tabloda sonsuz bilgi girme - WiniFred - 16/01/2012

[Resim: 13266640531.jpg]

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.

Cvp: tabloda sonsuz bilgi girme - WiniFred - 16/01/2012

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


Cvp: tabloda sonsuz bilgi girme - aguney16 - 16/01/2012

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


Cvp: tabloda sonsuz bilgi girme - WiniFred - 18/01/2012

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)


Cvp: tabloda sonsuz bilgi girme - aguney16 - 21/01/2012

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.