Sayıyı Basamaklara Ayırma Sorunu

sayıyı basamaklara ayırma ile ilgili ekte örnek mevcut.virgül olmayan sayılarda kullanabiliyorum.

virgül olan sayılarda basamaklara ayırma işlemi yapamıyorum.

örnek 3120  yi basamaklara ayırabiliyorum ama

         13120,50 yi basamaklara ayıramıyorum.


örnekleri inceledim ama neticeye ulaşamadım.muhtemelen aşağıdaki örnek benim istediğim olabilir ama accdb olduğu için açamadım  2003 kullanıyorum

şimdiden ilginize teşekkür ederim.



https://accesstr.net/konu-virgulden-once...-alma.html

metin kutularındaki değerli silip form current olayını aşağıdaki gibi düzenler misiniz

Private Sub Form_Current()

TmpMtn = CStr(Format(Me.satisfiyati, "#.##0,00"))



Vrg = InStr(TmpMtn, ",")

TmSayi = Format(Fix(Me.satisfiyati), "0000")

KsrSayi = "00"

If Vrg > 0 Then KsrSayi = Format(Mid(TmpMtn, Vrg + 1), "00")

Me.binn = Mid(TmSayi, 1, 1)

Me.yuzz = Mid(TmSayi, 2, 1)

Me.onn = Mid(TmSayi, 3, 1)

Me.bir = Mid(TmSayi, 4, 1)

Me.Metin245 = Mid(KsrSayi, 1, 1)

Me.Metin247 = Mid(KsrSayi, 2, 1)



End Sub

(14/09/2020, 10:17)berduş yazdı: Private Sub Form_Current()TmpMtn = CStr(Format(Me.satisfiyati, "#.##0,00"))Vrg = InStr(TmpMtn, ",")TmSayi = Format(Fix(Me.satisfiyati), "0000")KsrSayi = "00"If Vrg > 0 Then KsrSayi = Format(Mid(TmpMtn, Vrg + 1), "00")Me.binn = Mid(TmSayi, 1, 1)Me.yuzz = Mid(TmSayi, 2, 1)Me.onn = Mid(TmSayi, 3, 1)Me.bir = Mid(TmSayi, 4, 1)Me.Metin245 = Mid(KsrSayi, 1, 1)Me.Metin247 = Mid(KsrSayi, 2, 1)End Sub

Çok teşekkür ederim ,ellerinize sağlık.

Sorumun cevabını aldım.konuyu taşıyabiliriz.

Saygılar

Iyi çalışmalar)