+- 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ığı: Sayısal Değeri Yazıya Çevirmede Hata Kodu 95 ( İnvalid Use Of Null ) (/konu-sayisal-degeri-yaziya-cevirmede-hata-kodu-95-invalid-use-of-null.html)
Sayısal Değeri Yazıya Çevirmede Hata Kodu 95 ( İnvalid Use Of Null ) - Oğuz Türkyılmaz - 05/10/2018
Metin kutusuna girilen sayısal değerin metne çevrilmesi için yapılan işlemden sonra yeni kayıt yapmak istediğimde böyle bir hata kodu ile karşılaştım. Çözümü için ne yapabilirim. Teşekkürler.
Cvp: Sayısal Değeri Yazıya Çevirmede Hata Kodu 95 ( İnvalid Use Of Null ) - ozanakkaya - 05/10/2018
Merhaba, modüldeki ilgili fonksiyonu aşağıdaki ile değiştiriniz.
Function TL(Para) As String
If IsNull(Para) Or Para = "" Then
Exit Function
End If
Dim tum$, tam$, kurus$, TL_birim$, krs_birim$
tum = RoundA(Replace(Para, "-", ""), 2)
tam = Fix(tum)
kurus = RoundA(tum - tam, 2) * 100
TL_birim = IIf(tam = 0, "", " LİRA ")
krs_birim = IIf(kurus = 0, "", " KURUŞ")
TL = Ceviri(tam) & TL_birim & Ceviri(kurus) & krs_birim
End FunctionCvp: Sayısal Değeri Yazıya Çevirmede Hata Kodu 95 ( İnvalid Use Of Null ) - Oğuz Türkyılmaz - 06/10/2018
(05/10/2018, 23:25)ozanakkaya yazdı: Merhaba, modüldeki ilgili fonksiyonu aşağıdaki ile değiştiriniz.
Function TL(Para) As String
If IsNull(Para) Or Para = "" Then
Exit Function
End If
Dim tum$, tam$, kurus$, TL_birim$, krs_birim$
tum = RoundA(Replace(Para, "-", ""), 2)
tam = Fix(tum)
kurus = RoundA(tum - tam, 2) * 100
TL_birim = IIf(tam = 0, "", " LİRA ")
krs_birim = IIf(kurus = 0, "", " KURUŞ")
TL = Ceviri(tam) & TL_birim & Ceviri(kurus) & krs_birim
End Function
![[Resim: do.php?imgf=153877319488421.jpg]](https://accesstr.net/resim/do.php?imgf=153877319488421.jpg)
Diğer yazı ile yazılması gereken kutucukların referans Metin kutularının adlarını mtn_B ve mtn_C olarak değiştirip ilgili alanların denetim kaynaklarına yazdım o alanlarda otomatik olarak yazıya çevrildi.
Konu halloldu. Teşekkür ederim.