Skip to main content

AccessTr.neT


tabloda sonsuz bilgi girme

tabloda sonsuz bilgi girme

Çözüldü #13
[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.
Cevapla
Çözüldü #14
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
Cevapla
Çözüldü #15
ilgilenen herkese teşekkür ederim.
başarılı olamadım.sağlık olsun.
Cevapla
Çözüldü #16
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)
Cevapla
Çözüldü #17
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task