Teşekkürler oldu. 
https://accesstr.net/konu-giris-maskesi-...#pid161055 konusundaki ek için
Tutardaki kuruşları wordde yazıyla parantez içinde yazarken kuruşları yazmıyor. Bu konu ile ilgilide yeni başlık açmalı mıyım ? yoksa buradan devam edebilir miyiz.

fonksiyonun kendinden kaynaklanan bir şey fonksiyonun düzenlenmesi gerek bence
yanlış mı anladım?
eğer fonksiyonun düzeltilmesini istiyorsanız yeni konu açın yoksa buradan devam edin.

öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin

Function Sayiyi_Metne_CevirKr(Sayi As Double)

Dim mtnTL, mtnKr, xSayi As String

Dim TlKr() As String

xSayi = CStr(Format(Sayi, "#,##0.00"))



If InStr(xSayi, ",") > 0 Then

    TlKr = Split(xSayi, ",")

    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))

    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))

    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "

Else

    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)

End If

End Function

sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin

=Sayiyi_Metne_CevirKr([SayiRakkamla])

dilerim işinize yarar

(13/12/2019, 16:21)berduş yazdı: öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin

Function Sayiyi_Metne_CevirKr(Sayi As Double)

Dim mtnTL, mtnKr, xSayi As String

Dim TlKr() As String

xSayi = CStr(Format(Sayi, "#,##0.00"))



If InStr(xSayi, ",") > 0 Then

    TlKr = Split(xSayi, ",")

    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))

    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))

    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "

Else

    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)

End If

End Function

sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin

=Sayiyi_Metne_CevirKr([SayiRakkamla])

dilerim işinize yarar

çok teşekkürler. oldu şimdi

sadece tek olay kuruş hanesi sıfır oluncada sıfır kuruş yazıyor. 510,00 TL için beşyüzon tl sıfır kuruş gibi. Ama olsun bu şekilde de işimi görür

Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "

kodunu aşağıdakiyle değiştirip deneyin

Sayiyi_Metne_CevirKr = mtnTL & " TL " & IIf(CLng(TlKr(1)) <> 0, mtnKr & " Kuruş ", "")