AccessTr.neT

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.

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

(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

 

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.